如何讀寫VB.NET INI文件

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

自從注冊表誕生以來ini文件正在逐漸失去其市場占有率，然而基于ini文件的獨立性，致使其還沒有到達退出歷史舞臺的地步，很多應用程序的初始化和一些界面參數的設置仍然很愿意從ini文件中讀取，為了保證操作需用參數對ini文件的讀取的通明性，建議使用一個模塊來完成此工作。注：所有操作調用標準的WinAPI函數來完成。讀寫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

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