51Testing软件测试论坛

标题: 我这段才能读出来xml中需要的元素。 [打印本页]

作者: jackymail 时间: 2008-1-4 16:19
标题: 我这段才能读出来xml中需要的元素。
Set Doc=CreateObject("Microsoft.XMLDOM")
Doc.async=False
Doc.load("c:\liang.xml")
Set Root=Doc.DocumentElement
GetNodeText

Public Function GetNodeText()
' Msgbox Root.NodeName

Set cNodes= Root.ChildNodes
lNodes= cNodes.length

For i=0 to lNodes-1
Msgbox cNodes.item(i).text
Msgbox cNodes.item(i).NodeName
Msgbox cNodes.item(i).NodeType
' Msgbox cNodes.item(i).NodeValue 这个不是包含的元素值。

If cNodes.item(i).ChildNodes.Length>1 Then
Set Root=cNodes.item(i)
GetNodeText
End If
Next
End Function

[ 本帖最后由 jackymail 于 2008-1-4 17:02 编辑 ]

作者: lantianwei 时间: 2008-1-4 22:06
我来顶一下,呵呵!

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)