温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

如何读写VB.NET INI文件

发布时间:2021-12-02 11:41:08 来源:亿速云 阅读:178 作者:小新 栏目:编程语言

这篇文章主要介绍了如何读写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文件”这篇文章对大家有帮助,同时也希望大家多多支持亿速云,关注亿速云行业资讯频道,更多相关知识等着你来学习!

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI