vbscript 讀取xml格式的配置文件

更新時間：2009年02月25日 05:16:12 作者：

最近一項(xiàng)目中，vbs腳本需要讀取配置文件，本來考慮用ini來做配置文件，但是vbs里沒有現(xiàn)成讀寫ini文件的支持，于是考慮用xml來做配置文件，使用xmldom來讀取。寫成個class使用起來應(yīng)該方便一些。貼來備忘一下。

復(fù)制代碼代碼如下:

Class clsGetProfile 
' ルートドキュメント 
Private rootDoc 
' xmlファイル名とセクション名をセットする 
' 引數(shù)：　「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 
' キーの対応する値を取得する 
' 引數(shù)： 「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ファイル名とセクション名をセットする 
' 引數(shù)：　「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 
' キーの対応する値を取得する 
' 引數(shù)： 「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") 

配置文件格式：

復(fù)制代碼代碼如下:

<?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> 