VB.NET 调用金蝶登录，并解析PropsString

本篇是上一篇的姊妹篇，使用VB.NET实现，这有点类似.NET 4.0之后，C#的Dynamic方式实现，具体看代码，调用方式与上一篇类似：

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Data.OleDb
Imports System.Data.SqlClient

Namespace System
    Public Class KingdeeLogin
        Private _kindeeLoginObject As Object
        Private _sqlConnectionString As String
        Private _accountName As String
        Private _userName As String
        Private _userId As Integer

        Public Sub New()
            _kindeeLoginObject = CreateObject("K3Login.ClsLogin")
        End Sub

        Public Function CheckLogin() As Boolean
            Dim result As Boolean = _kindeeLoginObject.CheckLogin
            If result Then
                InitialLoginDatas()
            End If
            Return result
        End Function


#Region "解析金蝶的PropsString"

        Private Sub InitialLoginDatas()
            Dim kingdeePropsString As String = _kindeeLoginObject.PropsString
            _accountName = _kindeeLoginObject.AcctName
            ParsePropsStringToField(kingdeePropsString)
        End Sub

        Private Sub ParsePropsStringToField(ByVal propsString As String)
            Dim datas = ReadPropsStringToDictinary(propsString)
            _userName = GetValueFromDictionary("UserName", datas)
            _userId = CInt(GetValueFromDictionary("UserID", datas))
            _sqlConnectionString = ConvertSqlConnectionString(GetValueFromDictionary("ConnectString", datas))
            '在这里大家可以继续扩展哦
        End Sub

        Private Function ConvertSqlConnectionString(ByVal oleDbConnectionString As String) As String
            Dim oleBuilder As New OleDbConnectionStringBuilder(oleDbConnectionString)
            Dim sqlBuilder As New SqlConnectionStringBuilder
            sqlBuilder.UserID = oleBuilder("User ID").ToString()
            sqlBuilder.Password = oleBuilder("Password").ToString()
            sqlBuilder.DataSource = oleBuilder("Data Source").ToString()
            sqlBuilder.InitialCatalog = oleBuilder("Initial Catalog").ToString()

            Dim IntegratedSecurity As New Object
            If oleBuilder.TryGetValue("Integrated Security", IntegratedSecurity) Then
                If IntegratedSecurity.ToString().ToUpper() = "SSPI" Then
                    sqlBuilder.IntegratedSecurity = True
                End If
            Else
                sqlBuilder.IntegratedSecurity = False
            End If

            Return sqlBuilder.ConnectionString
        End Function

        Private Function ReadPropsStringToDictinary(ByVal propsString As String) As Dictionary(Of String, String)
            Dim result As New Dictionary(Of String, String)
            Dim curIndex As Integer = 0

            While curIndex < propsString.Length
                curIndex += ReadSection(result, propsString)
            End While
            Return result
        End Function

        Private Function ReadSection(ByVal sections As Dictionary(Of String, String), ByVal source As String) As Integer
            Dim lengthResult As Integer = 0
            Dim key As String = ""
            Dim value As String = ""

            lengthResult += ReadKey(source, key)
            lengthResult += ReadValue(source.Substring(lengthResult), value)
            sections.Add(key, value)
            Return lengthResult

        End Function

        Private Function ReadKey(ByVal source As String, ByRef key As String) As Integer
            key = ""
            Dim lengthResult As Integer = 0
            For i As Integer = 0 To source.Length
                lengthResult = i + 1
                If source(i) = "=" Then
                    Exit For
                Else
                    key += source(i)
                End If
            Next

            Return lengthResult
        End Function

        Private Function ReadValue(ByVal source As String, ByRef value As String)
            value = ""
            Dim lengthResult As Integer = 0
            Dim charStack As New Stack(Of Char)

            For i As Integer = 0 To source.Length
                Dim c = source(i)
                lengthResult += i + 1

                If c = "{" Then
                    If charStack.Count > 0 Then value += c
                    charStack.Push(c)
                ElseIf c = "}" Then
                    charStack.Pop()
                    If charStack.Count > 0 Then value += c
                ElseIf c = ";" Then
                    If charStack.Count > 0 Then value += c Else Exit For
                Else
                    value += c
                End If
            Next
            Return lengthResult
        End Function

        Private Function GetValueFromDictionary(ByVal key As String, ByVal source As Dictionary(Of String, String)) As String
            Dim dicKey As String = ""
            For Each sKey As String In source.Keys
                If key.Trim.ToUpper = sKey.Trim.ToUpper Then
                    dicKey = sKey
                    Exit For
                End If
            Next

            If (String.IsNullOrEmpty(dicKey)) Then Return String.Empty
            Return source(dicKey)
        End Function

#End Region

        Public ReadOnly Property SqlConnectionString() As String
            Get
                Return _sqlConnectionString
            End Get
        End Property

        Public ReadOnly Property AccountName() As String
            Get
                Return _accountName
            End Get
        End Property

        Public ReadOnly Property UserName() As String
            Get
                Return _userName
            End Get
        End Property

        Public ReadOnly Property UserID() As Integer
            Get
                Return _userId
            End Get
        End Property

    End Class
End Namespace

希望可以帮助到使用VB.NET为金蝶做二次开发的人。