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

基础概念

INI文件是一种简单的文本文件格式，用于存储配置信息。它通常包含多个节（sections），每个节包含多个键值对（key-value pairs）。数据库连接字符串是用于指定如何连接到数据库的一组参数。

类型

标准INI文件：包含节和键值对。
扩展INI文件：可能包含注释和其他元数据。

应用场景

应用程序配置：存储应用程序的各种设置。
数据库连接信息：存储数据库的连接参数。

示例代码（VB.NET）

以下是一个简单的VB.NET示例，展示如何读取和写入INI文件中的数据库连接字符串。

读取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

写入INI文件中的数据库连接字符串

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