vbs读取xml的值问题？

lyj841120

XML格式：
   <Enviroment>
    <Variable>
      <name>strDBName</name>
      <value>app</value>
    </Variable>
    ----
   </Enviroment>

我现在想取到strDBName得value值“app”，脚本该怎么写？想写成一个共通函数(GetXmlVale(path,nodel));比如GetXmlVale("D:\Enviroment.xml", strDBName)); 返回“app”。

[ 本帖最后由 lyj841120 于 2009-9-3 14:53 编辑 ]

nbkhic

这个我写过现成的函数去解决，我来找一下，忘了放在哪里了....

nbkhic

'读取xml结点信息
Function readConfig(byval path, byval nodeName)
        Set xmlDoc = Nothing
        Set xmlDoc = CreateObject("Msxml2.DOMDocument")
        'loadXML
        xmlDoc.load(path)
        Set root = xmlDoc.documentElement
        Set objChildNodes = root.getElementsByTagName(nodeName)'Getting nodes collection
        Dim num, res
        Set res = CreateObject("scripting.dictionary")'新建字典
        num = objChildNodes.length'获取Nodes集合的个数
        For i = 0 To (num - 1)'循环为字典赋值
                res.Add objChildNodes(i).firstChild.text, objChildNodes(i).lastChild.text
        Next
        set xmlDoc = Nothing
        Set readConfig = res
End Function

上面这个函数应该能为你提供思路，如果你的Node下面最多只有2个child的话，那么上面这个函数就够用了。

xzguang

Function GetXmlVale(ByVal Name, ByVal sPath)
                        Set doc = XMLUtil.CreateXML()
                        Dim child,children
                        doc.LoadFile sPath
                        Set root = doc.GetRootElement()
                        Set children = root.ChildElements()
                        Set child = children.ItemByName(Name)

                        For i = 1 To  child.ChildElements().Count  Step 1
                                Set grandChild = child.ChildElements().Item(i)
                                Msgbox(grandChild.Value())
                        Next
                        GetXmlVale=0
End Function



这在QTP代码上找来的，如果是QTP脚本这个function 改一下应该可以满足你的要求，这用法 GetXmlVale("D:\Enviroment.xml", "Variable")  ,可以找出strDBName，app

[ 本帖最后由 xzguang 于 2009-9-3 15:35 编辑 ]

lyj841120

回复 3# 的帖子
回复 4# 的帖子
谢谢你们，我参照你们的改了下OK了。

joseph_wh

原帖由 lyj841120 于 2009-9-3 13:50 发表
XML格式：
   <Enviroment>
    <Variable>
      <name>strDBName</name>
      <value>app</value>
    </Variable>
    ----
   </Enviroment>

我现在想取到strDBName得value值“app”，脚本该怎么写？想写成一个共通函数(GetXmlVale(path,nodel));比如GetXmlVale("D:\Enviroment.xml", strDBName)); 返回“app”。
...

你这XML的格式就是环境配置文件的格式，直接导入用就行

Dim strDBN
Environment.LoadFromFile("C:\YourXmlFile.xml")
strDBN = Environment("strDBName")
Msgbox CStr(strDBN)