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

代碼如下:

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")

配置文件格式：

代碼如下:

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