声明:
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