我这段才能读出来xml中需要的元素。

jackymail

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

我来顶一下,呵呵!