如何從xml文件中使用vbscript提取變量名及其值

我有如下xml文件&我想提取變量名&它的值。你能幫我解決這個問題嗎？我的XML格式是如何從xml文件中使用vbscript提取變量名及其值

<?xml version="1.0" encoding="utf-8" ?> 
<configuration> 
    <configSections> 
     <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" > 
      <section name="MyApps.Properties.Settings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" /> 
     </sectionGroup> 
    </configSections> 
    <connectionStrings> 
     <add name="MyApps.Properties.Settings.dbConnString" connectionString="Data Source=MSTEST01\TQA;Initial Catalog=TQA;Persist Security Info=True;User ID=UserID;Password=Pwd" 
      providerName="System.Data.SqlClient" /> 
    </connectionStrings> 
    <applicationSettings> 
     <MyApps.Properties.Settings> 
      <setting name="BasePath" serializeAs="String"> 
       <value>\\Results</value> 
      </setting> 
      <setting name="cPath" serializeAs="String"> 
       <value>C:\Controller</value> 
      </setting> 
      <setting name="ePath" serializeAs="String"> 
       <value>C:\Debug\E.exe</value> 
      </setting> 
      <setting name="fPath" serializeAs="String"> 
       <value>C:\Framework</value> 
      </setting> 
      <setting name="engineId" serializeAs="String"> 
       <value>1</value> 
      </setting> 
      <setting name="wPath" serializeAs="String"> 
       <value>C:\S5</value> 
      </setting> 
     </MyApps.Properties.Settings> 
    </applicationSettings> 
</configuration>

，我期待像例如輸出executablePath = 「d：\ MYEXE.EXE」

在此先感謝

來源

2012-04-04 Shree

第2分[這個答案]（http://stackoverflow.com/a/2181953/69820）應該讓你開始 – 2012-04-04 07:59:51

@Nathan賴斯我嘗試下面的代碼，並能夠獲得所需的值，（「C：\ test \ myxml.xml」） strQuery =「變量，但堅持retreive connectionstring變量及其值/configuration/applicationSettings/MyApps.Properties.Settings/*「 Set colItem = xmlDoc.SelectNodes（strQuery） For Each objItem IncolItem If if objItem.Attributes.Length> 0 Then MsgBox objItem.Attributes（0）.Text＆「：」＆objItem.Text End If Next – Shree 2012-04-05 05:20:22

終於讓我找到我的答案，可以有人建議如果有更好的選擇？以下是我的腳本

Set xmlDoc = CreateObject("Microsoft.XMLDOM") 

xmlDoc.async = "False" 
xmlDoc.Load ("C:\STEPRunRequest\STEPRunner.exe.config") 
strQuery = "/configuration/applicationSettings/Eunner.Properties.Settings/*" 

Set colItem = xmlDoc.SelectNodes(strQuery) 
Set xmlElement = xmlDoc.DocumentElement.SelectSingleNode("/configuration/configSections[@connectionStrings]") '='" <SomeValue> & "' 
Set queryNode = xmlDoc.SelectSingleNode(".//node()[@connectionString]") 
MsgBox queryNode.Attributes(1).Text 

For Each objItem In colItem 
If objItem.Attributes.Length > 0 Then 
    MsgBox objItem.Attributes(0).Text & ": " & objItem.Text 

End If 
Next

來源

2012-04-05 06:07:26 Shree

您也可以嘗試以下操作。利用getAttribute - Cscript vbs。

Set objXML2 = CreateObject("Microsoft.XMLDOM") 
objXML2.async = "false" 
strdir="c:\config.xml" 
If (Not objXML2.load(strdir)) Then 
    wscript.echo "Unable to load file '" & strdir & "'. " 
    WScript.Quit(1) 
End If 

Set colNodes = objXML2.selectNodes ("/configuration/applicationSettings/Eunner.Properties.Settings") 
For Each objNode in colNodes 
    wscript.echo objnode.getAttribute("name")& " : " & objNode.text 
Next

來源

2012-05-23 03:58:48

如何從xml文件中使用vbscript提取變量名及其值

回答

相關問題