VB.net 程序.ini文件的读取方法

来源：互联网发布：单片机最小系统原理编辑：程序博客网时间：2024/04/24 20:19

声明：

    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Integer, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer
    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Integer, ByVal lpFileName As String) As Integer
    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Integer, ByVal lpString As String, ByVal lpFileName As String) As Integer
    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Integer, ByVal lpString As Integer, ByVal lpFileName As String) As Integer

取得方法

    Public Function fncGetIni0(ByVal pSectionName As String, ByVal pKeyword As String) As String
        Try
            Dim strResultString As New VB6.FixedLengthString(144)
            Dim intTemp As Short
            Dim strReturnValue As String
            Dim intLocation As Short
            intTemp = GetPrivateProfileString(pSectionName, pKeyword, "", strResultString.Value, 144, "C:/test.ini")
            'Search the value of the Keyword
            If intTemp > 0 Then
                'the of value the keyword is not null
                strReturnValue = ""
                For intLocation = 1 To 144
                    If Asc(Mid(strResultString.Value, intLocation, 1)) = 0 Then
                        Exit For
                    Else
                        strReturnValue = strReturnValue & Mid(strResultString.Value, intLocation, 1)
                    End If
                Next
            End If
            Return strReturnValue
        Catch ex As Exception
            Throw
        End Try
    End Function

简单的使用，读取ini文件

写入ini文件

    Public Sub subSetIni1(ByVal pSectionName As String, ByVal pKeyword As String, ByVal pValue As String)
        Try
            WritePrivateProfileString(pSectionName, pKeyword, pValue, "C:/test.ini")
        Catch ex As Exception
            Throw
        End Try
    End Sub