这篇文章主要介绍了如何读写VB.NET INI文件,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。自从注册表诞生以来ini文件正在逐渐失去其市场占有率,然而基于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文件”这篇文章对大家有帮助,同时也希望大家多多支持编程网,关注编程网精选频道,更多相关知识等着你来学习!
--结束END--
本文标题: 如何读写VB.NET INI文件
本文链接: https://www.lsjlt.com/news/292870.html(转载时请注明来源链接)
有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
下载Word文档到电脑,方便收藏和打印~
2024-05-10
2024-05-10
2024-05-09
2024-05-09
2024-05-09
2024-05-09
2024-05-09
2024-05-09
2024-05-09
2024-05-09
回答
回答
回答
回答
回答
回答
回答
回答
回答
回答
0