VB6 中处理 INI 文件的方法

Attribute VB_Name = "modINIFile"
Option Explicit

Public Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String,_
ByVal lpKeyName As Any,_
ByVal lpDefault As String,_
ByVal lpReturnedString As String,_
ByVal nSize As Long,ByVal lpFileName As String) As Long

Public Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String,_
ByVal lpString As Any,_
ByVal lpFileName As String) As Long

Public Declare Function GetPrivateProfileSection Lib "kernel32" _
Alias "GetPrivateProfileSectionA" _
(ByVal lpAppName As String,_
ByVal lpFileName As String) As Long

Public Declare Function WritePrivateProfileSection Lib "kernel32" _
Alias "WritePrivateProfileSectionA" _
(ByVal lpAppName As String,_
ByVal lpString As String,_
ByVal lpFileName As String) As Long

' 从INI 文件中取得相关项
' 02 Mar 2006 James Space(128)=> Space(500)
Public Function GetItemFromINI(Section As String,_
Key As String,FileName As String) As String

Dim Valid As String
Dim Size As Integer
Dim Path As String
Dim s As String

s = Space(500)
Size = Len(s)
Valid = GetPrivateProfileString(Section,Key,"",s,Size,FileName)
s = Left(s,Valid)
GetItemFromINI = Trim(s)

End Function

' 将新的INI Item 的值，写入INI文件项中Public Sub writeItemToINI(Section As String,_ Key As String,Value As String,FileName As String) WritePrivateProfileString Section,Value,FileName End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!