vbscript 读取xml格式的配置文件
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
复制代码 代码如下: Class clsGetProfile '' ルートドキュメント Private rootDoc '' xmlファイル名とセクション名をセットする '' 引数： 「1」ファイル名 NOT NULL '' 戻り値：なし Public Sub setProfile(strFileName) Set data_xml = CreateObject("Microsoft.XMLDOM") data_xml.async = False data_xml.load(strFileName) Set rootDoc = data_xml.documentElement End Sub '' キーの対応する値を取得する '' 引数： 「1」キー名 NOT NULL '' 「2」セクション名 NOT NULL '' 戻り値：キーの対応する値 Public Function getItem(strSectionName, itemName) Set sectionNode = rootDoc.selectSingleNode(strSectionName) getItem = sectionNode.selectSingleNode(itemName).attributes(0).nodeValue End Function End Class '' 使用サンプル '' クラスインスタンスを生成する ''Dim config : Set config = New clsGetProfile '' 配置ファイル名とセクション名をセットする ''Call config.setProfile("Config.xml") '' きーの対応する値をゲットする ''WScript.Echo config.getItem("MessageDefine", "INFO.001") ''WScript.Echo config.getItem("MessageDefine", "INFO.003") ''WScript.Echo config.getItem("MessageDefine", "ERROR.009") ''WScript.Echo config.getItem("MessageDefine", "ERROR.012") Class clsGetProfile '' ルートドキュメント Private rootDoc '' xmlファイル名とセクション名をセットする '' 引数： 「1」ファイル名 NOT NULL '' 戻り値：なし Public Sub setProfile(strFileName) Set data_xml = CreateObject("Microsoft.XMLDOM") data_xml.async = False data_xml.load(strFileName) Set rootDoc = data_xml.documentElement End Sub '' キーの対応する値を取得する '' 引数： 「1」キー名 NOT NULL '' 「2」セクション名 NOT NULL '' 戻り値：キーの対応する値 Public Function getItem(strSectionName, itemName) Set sectionNode = rootDoc.selectSingleNode(strSectionName) getItem = sectionNode.selectSingleNode(itemName).attributes(0).nodeValue End Function End Class '' 使用サンプル '' クラスインスタンスを生成する ''Dim config : Set config = New clsGetProfile '' 配置ファイル名とセクション名をセットする ''Call config.setProfile("Config.xml") '' きーの対応する値をゲットする ''WScript.Echo config.getItem("MessageDefine", "INFO.001") ''WScript.Echo config.getItem("MessageDefine", "INFO.003") ''WScript.Echo config.getItem("MessageDefine", "ERROR.009") ''WScript.Echo config.getItem("MessageDefine", "ERROR.012") 配置文件格式： 复制代码 代码如下: <?xml version="1.0" encoding="UTF-8"?> <Configuration> <!--メッセージ定義 --> <MessageDefine> <Info.001 value="処理開始。"/> <Info.002 value="処理終了。"/> <Info.003 value="処理異常終了。"/> <Info.004 value="処理中止。"/> </MessageDefine> <!-- その他配置 --> <OtherSection> <host value="192.168.0.241"/> <user value="root"/> </OtherSection> <WindowsLogToolConfig> <host value="192.168.0.188"/> <port value="3306"/> </WindowsLogToolConfig> </Configuration> |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: Vbs 脚本编程简明教程之一下一篇: 当某IP 连接我机器的3389端口 报警的脚本
关于vbscript 读取xml格式的配置文件的所有评论
