|
VB源码推荐：一个操作Ini文件的类(2) strKey As String) As String
Dim strTmp As String
Dim lngRet As String
strTmp = String$(100, Chr(32))
lngRet = GetPrivateProfileString(strSection, _
strKey, "", strTmp, _
Len(strTmp), strInI)
GetFile = strTmp
End Function
Public Property Let INIFile(ByVal New_IniPath As String)
'// Sets the new ini path
strInI = New_IniPath
End Property
Public Property Get INIFile() As String
'// Returns the current ini path
INIFile = strInI
End Property
'--------cIniFile.cls 使用举例----------------
Dim myIniFile As New cIniFile
'---指定访问的ini文件
If Len(App.Path) > 3 Then
'under disk root dir , eg: "C:\"
myIniFile.INIFile = App.Path & "\setting.ini"
Else
myIniFile.INIFile = App.Path & "setting.ini"
End If
'---写入ini文件
myIniFile.WriteFile "setting", "username", strUser
'---读出ini文件的数据
' 注意，如果是字符串，则去掉末尾一个字符
' ----flybird@chinaASP.com
strUser = Trim(myIniFile.GetFile("setting", "username"))
strUser = Left(strUser, Len(strUser) - 1)
|
