Copy Code code as follows:
Class Clsgetprofile
' ルートドキュメント
Private Rootdoc
' xmlファイル name とセクション をセットする
' Argument: "1"ファイル name not NULL
' 戻 I did easily: なし
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
' キーの impose 応 する を obtained する
' Argument: "1"キー name not NULL
' "2"セクション name not NULL
' 戻 I did easily: キーの impose 応 する
Public Function GetItem (strSectionName, ItemName)
Set Sectionnode = Rootdoc.selectsinglenode (strsectionname)
GetItem = Sectionnode.selectsinglenode (itemname). attributes (0). nodevalue
End Function
End Class
' Use サンプル
' クラスインスタンスを generation する
' Dim config:set config = New clsgetprofile
' Configure ファイル name とセクション をセットする
' Call Config.setprofile ("Config.xml")
' きーの impose 応 する をゲットする
' 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ファイル name とセクション をセットする
' Argument: "1"ファイル name not NULL
' 戻 I did easily: なし
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
' キーの impose 応 する を obtained する
' Argument: "1"キー name not NULL
' "2"セクション name not NULL
' 戻 I did easily: キーの impose 応 する
Public Function GetItem (strSectionName, ItemName)
Set Sectionnode = Rootdoc.selectsinglenode (strsectionname)
GetItem = Sectionnode.selectsinglenode (itemname). attributes (0). nodevalue
End Function
End Class
' Use サンプル
' クラスインスタンスを generation する
' Dim config:set config = New clsgetprofile
' Configure ファイル name とセクション をセットする
' Call Config.setprofile ("Config.xml")
' きーの impose 応 する をゲットする
' 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")
Configuration file Format:
Copy Code code as follows:
<?xml version= "1.0" encoding= "UTF-8"?>
<Configuration>
<!--メッセージ definition
-->
<MessageDefine>
<info.001 value= "Backup start. "/>
<info.002 value= "Backup finally. "/>
<info.003 value= "Backup is always the reason. "/>
<info.004 value= "Backup stop. "/>
</MessageDefine>
<!--その his configuration
-->
<OtherSection>
<user value= "root"/>
</OtherSection>
<WindowsLogToolConfig>
<port value= "3306"/>
</WindowsLogToolConfig>
</Configuration>