如何读取XML文件的内容

aries1979

因为要进行数据验证，如何按一定格式（比如指定读取某个XML TAG里的内容）？

DontTest

Dim xmlDoc As Object
    Dim x As Object
    Dim y As Object
    Dim xml as stirng
Dim i,ii as interger

    xml="c:\test\xmltest.xml"
    Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    xmlDoc.async = "false"
    xmlDoc.Load (xml)    'xml是你制定的xml文件
    Set x = xmlDoc.getElementsByTagName("Option")
    For i = 1 To x.length()
       msgbox x.Item(i - 1).getAttribute("id")
           For ii = 1 To x.Item(i - 1).childNodes.length
                Set y = x.Item(i - 1).childNodes.Item(ii - 1)
                msgbox CStr(y.Text)
            Next
    next

战神

楼上的能不能对你的代码稍做一下解释啊？不是很明白呀

wsly

haotie!

wsly

不过现在robot还没装起来,没发子试过,有谁试试先?
我以前是用xslt先解析一遍做的.

wsly

不过现在robot还没装起来,没发子试过,有谁试试先?
我以前是用xslt先解析一遍做的.