本文主要向您展示VBS如何读取配置文件中的配置项。内容简单易懂，条理清晰，希望能帮你解开疑惑。让边肖带领大家学习《VBS如何读取配置文件中的配置项》一文。
下面是读取配置文件的函数：此功能仅适用于配置文件(。ini，txt，inf):格式如下。
[Mark 1]key 1=key 1 value key 2=key 2 value.[Mark 2]key 1=key 1 value key 2=key 2 value
核心代码
* * * * * * * *并返回值'参数： file path-配置文件的完整路径' Mark-配置开始标记' Key-要获取的配置项的名称'，调用方法3360 ret=getconfig(' d : \ configure . ini '，' computer '，IP ')'作者：胡晓最高法院'日期：2013-06-20 ' * * * * * * * * * * * * * * * * * * * * * * *。str _ readlinesetfso=createobject(' scripting。文件系统对象')'确定配置文件是否有If fso。文件存在(文件路径)然后“初始化”配置标志。打开配置文件设置config file=FSO . opentextfile(file path，1)循环读取文件数据线doster _ ReadLine=config file . ReadLine wscript . echostr _ ReadLine '判断读取的数据线是否为空If Str_ReadLine '' Then '判断读取的数据线是否为配置起始标记If LCase(Trim(Str _ ReadLine))='[' LCase(mark)']' Then '找到配置起始标记Flag=1 '循环读取当前配置起始标记下的配置项。直到在当前配置标签下找到需要的配置项'或者下一个配置项开始标签出现时，退出doster _ ReadLine=configfile . ReadLine retNum=instr(Str _ ReadLine，=')'检查读取的配置项是否有等号If retNum 0 Then '判断得到的配置项名称是否为需要的配置项If Trim(LCase(Left(Str_ReadLine， Retnum-1)))=trim (lcase (key))然后'获取配置项等号后的数据getconfig=trim(right(str _ readline，len (str _ readline)-retnum))'找到后，退出函数Exit Function End If End If '判断是否是开始标记if (instr (str _ readline，'[' 0)和instr (str _ readline，]' 0)然后'标记当前配置项开始标记下一个配置Flag=0 '退出函数End If循环直到(Flag=为止atendofstream)。结束if循环，直到配置文件。“关闭文件配置文件”。未找到“关闭集FSO=无其他”文件，并给出了一条消息，表明MsgBox“配置文件”[“文件路径”]不存在，请检查路径是否正确结束结束功能。
实例：
我们需要读取d:\config\environment.ini文件中[Computer2]下的IP项的值，文件内容如下：
[computer 1]computer name=computer 1ip=192 . 168 . 1 . 1[computer 2]computer name=computer 2ip=192 . 168 . 1 . 2
使用上面的函数获取。
IP=GetConfig(' d : \ config \ environment . ini '，' Computer2 '，' IP')Msgbox IP
以上就是《VBS如何读取配置文件配置项》一文的全部内容。感谢您的阅读！相信大家都有一定的了解，希望分享的内容对大家有所帮助。想了解更多知识，请关注行业资讯频道！
内容来源网络，如有侵权，联系删除，本文地址：https://www.230890.com/zhan/63493.html