使用VBScript读取ini文件

最新推荐文章于 2022-12-20 17:28:56 发布

nighsen

最新推荐文章于 2022-12-20 17:28:56 发布

阅读量4.2k

点赞数

分类专栏：脚本的世界文章标签： vbscript ini function

本文链接：https://blog.csdn.net/nighsen/article/details/5873291

版权

本文提供了一个VBScript函数，用于从带有Index索引项的ini文件中读取配置信息。示例代码展示了如何从[TUDOU]部分获取特定索引的值。

摘要由CSDN通过智能技术生成

在很多使用VBScript的时候需要从ini文件中读取相应的配置信息，现放置一个解析函数如下：

VBScript文件

'获取当前路径 strPath = Wscript.ScriptFullName Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strPath) cPathTemp = objFSO.GetParentFolderName(objFile) If Right(cPathTemp, 1) = "/" then cPath = objFSO.GetParentFolderName(objFile) Else cPath = objFSO.GetParentFolderName(objFile) & "/" End If MsgBox GetProfile(cPath&"set.ini", "TUDOU", "0", "TUDOU.BING") '*************************************************************** Function GetProfile(strFileName, strSection, indexnumber, strName) Dim st, idx st = False idx = False Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") Const ForReading = 1 Set eXmlFile = objFSO.OpenTextFile