如何讀寫VB.NET INI文件

這篇文章主要介紹了如何讀寫VB.NET INI文件，具有一定借鑒價(jià)值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

自從注冊(cè)表誕生以來ini文件正在逐漸失去其市場占有率，然而基于ini文件的獨(dú)立性，致使其還沒有到達(dá)退出歷史舞臺(tái)的地步，很多應(yīng)用程序的初始化和一些界面參數(shù)的設(shè)置仍然很愿意從ini文件中讀取，為了保證操作需用參數(shù)對(duì)ini文件的讀取的通明性，建議使用一個(gè)模塊來完成此工作。注：所有操作調(diào)用標(biāo)準(zhǔn)的WinAPI函數(shù)來完成。讀寫VB.NET INI文件例子代碼：

DimRetAsLong  DimStartAsLong  PublicFileNameAsString  ConstBufSize=10240 DimbufAsString*BufSize  PrivateDeclareFunctionGetPrivateProfileIntLib"kernel32"Alias"GetPrivateProfileIntA"  (ByVallpApplicationNameAsString,ByVallpKeyNameAsString,ByValnDefaultAsLong,ByVallpFileNameAsString)AsLong   PrivateDeclareFunctionGetPrivateProfileSectionLib"kernel32"Alias"GetPrivateProfileSectionA"  (ByVallpAppNameAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLong   PrivateDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias"GetPrivateProfileStringA"  (ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLong   PrivateDeclareFunctionWritePrivateProfileSectionLib"kernel32"Alias"WritePrivateProfileSectionA"  (ByVallpAppNameAsString,ByVallpStringAsString,ByVallpFileNameAsString)AsLong   PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"  (ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallpFileNameAsString)AsLong   PublicSubSetValue(ByValclsNameAsString,ByValkeyAsString,ByValVAsString)  Ret=WritePrivateProfileString(clsName,key,V,FileName)  EndSub   PublicFunctionGetValue(ByValclsNameAsString,ByValkeyAsString)AsString  Ret=GetPrivateProfileString(clsName,key,"",buf,BufSize,FileName)  Start=1 GetValue=RetStr()  EndFunction   PrivateFunctionRetStr()AsString  DimiAsLong  i=InStr(Start,buf,Chr(0))  Ifi>StartThen  RetStr=Mid(buf,Start,i-Start)  EndIf  Start=i+1  EndFunction

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“如何讀寫VB.NET INI文件”這篇文章對(duì)大家有幫助，同時(shí)也希望大家多多支持億速云，關(guān)注億速云行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來學(xué)習(xí)!