VB操作INI文件方法(經(jīng)典詳細(xì)教程)

1、1. 定義一些變量Public IniFileName As String, vbNullString As String, maxSize As Long, section1 As String, section2 As String2. 初始話(huà)這些變量Public Function initial()IniFileName = App.Path & "" & "config.ini" vbNullString = "" maxSize = 255 section1 = "basics" sect

2、ion2 = "others"temp_str = String(255, 0) ' 建立緩沖區(qū) End Function3. 聲明 INI 函數(shù)Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" ( _ByVal lpApplicationName As String, _ByVal lpKeyName As String, _ByVal nDefault As Long, _ByVal lpFil

3、eName As String) As LongPublic 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 lpFil

4、eName As String) As LongPublic Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _ByVal lpApplicationName As String, _ByVal lpKeyName As Any, _ByVal lpString As Any, _ByVal lpFileName As String) As Long4. 調(diào)用函數(shù)dim source as stringGetPri

5、vateProfileString section1, "source", vbNullString, temp_str, maxSize, IniFileName source = Mid(temp_str, 0, 5) ' 緩沖區(qū)長(zhǎng)度 249，直接去匹配是不可以的， 需要首先提取出有效字符xpos.Text = GetPrivateProfileInt(section1, "xpos", 1, IniFileName) dim a as intergera = GetPrivateProfileInt(section1, "auto

6、", 1, IniFileName)WritePrivateProfileString section1, "auto", "0", IniFileName下一個(gè)例子Option ExplicitPrivate Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _ByVal lpApplicationName As String, ByVal lpKeyName As Any

7、, ByVal lpDefault As String, _ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPrivate Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _ByVal lpApplicationName As String, ByVal lpKeyName As An

8、y, ByVal lpString As Any, _ByVal lpFileName As String) As LongPrivate Function GetIni(ByVal ApplicationName As String, ByVal KeyName As String, ByVal FileName As String) As StringDim Buff As String, TmpStr As StringBuff = String(1024, 0)Call GetPrivateProfileString(ApplicationName, KeyName, "&q

9、uot;, Buff, Len(Buff) + 1, FileName)If Asc(Mid(Buff, 1, 1) = 0 Then GetIni = "": Exit FunctionDim I As IntegerFor I = 2 To Len(Buff)If Asc(Mid(Buff, I, 1) = 0 Then TmpStr = Mid(Buff, 1, I - 1)NextIf TmpStr = "" Then TmpStr = BuffGetIni = TmpStrEnd FunctionPrivate Function PutIni(

10、ByVal ApplicationName As String, ByVal KeyName AsString, ByVal Str As String, ByVal FileName As String) As Long WritePrivateProfileString ApplicationName, KeyName, Str, FileName End FunctionPrivate Function DelIni(ByVal ApplicationName As String, ByVal KeyName AsString, ByVal FileName As String) As

11、LongWritePrivateProfileString ApplicationName, KeyName, 0&, FileName End FunctionPrivate Sub Form_Load()Shell (GetIni("lujing", "pa", "INI 文件的路徑及名稱(chēng) .ini") & "" & GetIni("lujing", "pa1", "INI 文件的路徑及名稱(chēng) .ini")End Sub再次講解這

12、是 API 函數(shù) ,使用前必須在公共部分定義 ,可以建公共模塊 ,也可以在窗體最上 面寫(xiě).代碼: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

13、Long, ByVal lpFileName As String) As Long Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVallpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long然后 GetPrivateProfileS

14、tring WritePrivateProfileString 這兩個(gè)函數(shù)就可以 用了.讀取和寫(xiě)入代碼如下Private Sub SetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String)Dim res%res% = WritePrivateProfileString(SectionName, KeyWord, ValStr, "C:123.ini") End SubPrivate Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As Strin