|
【VB源码推荐：一个操作Ini文件的类】
''''--------cIniFile.cls 代码----------------
''''这里定义了一个cIniFile类
Option Explicit
''''// Private member that holds a reference to
''''// the path of our ini file
Private strInI As String
''''// Win API Declares
Private Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Private 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
Private Function MakePath(ByVal strDrv As String, _
ByVal strDir As String) As String
''''// Makes an INI file: Guarantees a sub dir
Do While Right$(strDrv, 1) = "\"
strDrv = Left$(strDrv, Len(strDrv) - 1)
Loop
Do While Left$(strDir, 1) = "\"
strDir = Mid$(strDir, 2)
Loop
''''// Return the path
MakePath = strDrv & "\" & strDir
End Function
Public Sub CreateIni(strDrv As String, strDir As String)
''''// Make a new ini file
strInI = MakePath(strDrv, strDir)
End Sub
Public Sub WriteFile(strSection As String, _
strKey As String, _
strValue As String)
''''// Write to strINI
WritePrivateProfileString strSection, _
strKey, strValue, strInI
End Sub
Public Function GetFile(strSection As String, _
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)
[聊天工具]解读珊瑚虫CoralQQ.ini代码的秘密 [系统软件]解析boot.ini文件，亲身经验
[VB.NET程序]在VB6中用WINDOWS API函数读写INI文件 [Delphi程序]Delphi中初始化.Ini文件的读写
[Delphi程序]delphi读取ini文件
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
