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

1、定義一些變量PublicIniFileNameAsString,vbNullStringAsString,maxSizeAsLong,section1AsString,section2AsString初始話這些變量PublicFunctioninitial()IniFileName=App.Path&config.inivbNullString=maxSize=255section1=basicssection2=otherstemp_str=String(255,0)建立緩沖區(qū)EndFunction聲明INI函數(shù)PublicDeclareFunctionGetPrivateProfileIn

2、tLibkernel32AliasGetPrivateProfileIntA(_ByVallpApplicationNameAsString,_ByVallpKeyNameAsString,_ByValnDefaultAsLong,_ByVallpFileNameAsString)AsLongPublicDeclareFunctionGetPrivateProfileStringLibkernel32AliasGetPrivateProfileStringA(_ByVallpApplicationNameAsString,_ByVallpKeyNameAsAny,_ByVallpDefault

3、AsString,_ByVallpReturnedStringAsString,_ByValnSizeAsLong,_ByVallpFileNameAsString)AsLongPublicDeclareFunctionWritePrivateProfileStringLibkernel32AliasWritePrivateProfileStringA(_ByVallpApplicationNameAsString,_ByVallpKeyNameAsAny,_ByVallpStringAsAny,_ByVallpFileNameAsString)AsLong調(diào)用函數(shù)dimsourceasstr

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

5、,0,IniFileName下一個(gè)例子OptionExplicitPrivateDeclareFunctionGetPrivateProfileStringLibkernel32AliasGetPrivateProfileStringA(_ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpDefaultAsString,_ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLongPrivateDeclareFunctionWriteP

6、rivateProfileStringLibkernel32AliasWritePrivateProfileStringA(_ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,_ByVallpFileNameAsString)AsLongPrivateFunctionGetIni(ByValApplicationNameAsString,ByValKeyNameAsString,ByValFileNameAsString)AsStringDimBuffAsString,TmpStrAsStringBuff

7、=String(1024,0)CallGetPrivateProfileString(ApplicationName,KeyName,Buff,Len(Buff)+1,FileName)IfAsc(Mid(Buff,1,1)=0ThenGetIni=:ExitFunctionDimIAsIntegerForI=2ToLen(Buff)IfAsc(Mid(Buff,I,1)=0ThenTmpStr=Mid(Buff,1,I-1)NextIfTmpStr=ThenTmpStr=BuffGetIni=TmpStrEndFunctionPrivateFunctionPutIni(ByValApplic

8、ationNameAsString,ByValKeyNameAsString,ByValStrAsString,ByValFileNameAsString)AsLongWritePrivateProfileStringApplicationName,KeyName,Str,FileNameEndFunctionPrivateFunctionDelIni(ByValApplicationNameAsString,ByValKeyNameAsString,ByValFileNameAsString)AsLongWritePrivateProfileStringApplicationName,Key

9、Name,0&,FileNameEndFunctionPrivateSubForm_Load()Shell(Getlni(lujing,pa,INI文件的路徑及名稱.ini)&Getlni(lujing,pal,INI文件的路徑及名稱.ini)EndSub再次講解這是API函數(shù),使用前必須在公共部分定義，可以建公共模塊，也可以在窗體最上面寫(xiě).代碼:PublicDeclareFunctionGetPrivateProfileStringLibkernel32AliasGetPrivateProfileStringA(ByVallpApplicationNameAsString,ByVallpKe

10、yNameAsAny,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLongPublicDeclareFunctionWritePrivateProfileStringLibkernel32AliasWritePrivateProfileStringA(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallpFileNameAsString)AsLong

11、然后GetPrivateProfileStringWritePrivateProfileString這兩個(gè)函數(shù)就可以用了.讀取和寫(xiě)入代碼如下PrivateSubSetIniS(ByValSectionNameAsString,ByValKeyWordAsString,ByValValStrAsString)Dimres%res%=WritePrivateProfileString(SectionName,KeyWord,ValStr,C:123.ini)EndSubPrivateFunctionGetIniS(ByValSectionNameAsString,ByValKeyWordAsString,ByValDefStringAsString)AsStringDimllLenAsLongD