vb读取写在ini中的数据库连接字符串

Imports System.IO
Imports Microsoft.VisualBasic.FileIO

Public Function ReadConnectionStringFromIni(filePath As String, section As String, key As String) As String
    Dim connectionString As String = ""
    Using parser As New TextFieldParser(filePath)
        parser.TextFieldType = FieldType.Delimited
        parser.SetDelimiters("=")

        While Not parser.EndOfData
            Dim currentRow As String() = parser.ReadFields()
            If currentRow(0).Trim() = section Then
                While Not parser.EndOfData AndAlso currentRow(0).Trim() <> ""
                    currentRow = parser.ReadFields()
                    If currentRow(0).Trim() = key Then
                        connectionString = currentRow(1).Trim()
                        Exit While
                    End If
                End While
                Exit While
            End If
        End While
    End Using
    Return connectionString
End Function

Public Sub WriteConnectionStringToIni(filePath As String, section As String, key As String, value As String)
    Dim lines As New List(Of String)(File.ReadAllLines(filePath))
    Dim sectionFound As Boolean = False

    For i As Integer = 0 To lines.Count - 1
        If lines(i).StartsWith(section & "=") Then
            sectionFound = True
            lines(i + 1) = key & "=" & value
            Exit For
        End If
    Next

    If Not sectionFound Then
        lines.Add(section & "=")
        lines.Add(key & "=" & value)
    End If

    File.WriteAllLines(filePath, lines)
End Sub