XML相关！

Question

问题A:格式如下的xml文件，如何解析读取成一个长字符串，并保存在一个txt文本文件中？
 
<DATA>    <ROWDATA  
           <P_WFBH>4309002005JK000010641</P_WFBH>
    </ROWDATA>
    <ROWDATA  
           <P_WFBH>4309002005JK000010642</P_WFBH>
    </ROWDATA>
    <ROWDATA  
           <P_WFBH>4309002005JK000010643</P_WFBH>
    </ROWDATA></DATA>-----------------我是裸体的分割线---------------------------------------问题B，如上xml文件格式中，页首加入
<?xml version="1.0" encoding="GB2312"?> 
如何顺利解析？（xml中文）各位看官不管能不能帮到小的。。这里谢谢了！

Answer 1

基本上一样我做的一个treeview的
Dim objXML As DOMDocument
Dim nXML  As Node
Dim childnode As Node
Dim secondnode As NodePrivate Sub Command1_Click() 'xmlDom object
 'Set objXML = CreateObject("Microsoft.XMLDOM")
 Set objXML = New DOMDocument
 objXML.async = False
 'load the xml menu file
 objXML.Load ("mysites.xml")
 Set objLst = objXML.getElementsByTagName("site")
 'how many items
 intNoOfHeadlines = objLst.length
 'looping over the items -1 because it's starts from 0\
 Set nXML = TreeView1.Nodes.Add(, , "root", "站点信息")
 'Call LoadTree(nXML, children)
For i = 0 To intNoOfHeadlines - 1
    Set objHdl = objLst.Item(i)
    key1 = "p" & i
    Set childnode = TreeView1.Nodes.Add(nXML, tvwChild, "", objHdl.childNodes(0).Text)
    Set secondnode = TreeView1.Nodes.Add(childnode, tvwChild, "", objHdl.childNodes(1).Text)
    'List2.AddItem objLst.Item(i).Attributes(i).Text
    'List3.AddItem objHdl.childNodes(2).Text
NextEnd Submysites.xml<?xml version="1.0"?>
<mysites>
<site>
<topic>news</topic>
<name>CNN</name>
<url>http://www.cnn.com</url>
</site>
<site>
<topic>sport</topic>
<name>Sydney 2000</name>
<url>http://www.olympics.com</url>
</site>
<site>
                         <topic>Travel</topic>
                         <name>VirtualTourist</name>
                         <url>http://www.virtultourist.com</url>
             </site>
             <site>
                         <topic>computers</topic>
                         <name>Experts-exchange</name>
                         <url>http://www.experts-exchange.com</url>
             </site>
             <site>
                         <topic>computers</topic>
                         <name>Microsoft</name>
                         <url>http://www.microsoft.com</url>
              </site>
              <site>
                         <topic>sport</topic>
                         <name>Sportelo</name>
                         <url>http://www.sportelo.co.il</url>
              </site>
              <site>
                        <topic>computers</topic>
                        <name>myscript</name>
                        <url>http://www.myscript.co.il</url>
              </site>
</mysites>

Answer 2

你想把你的文件解析成什么样子VB做这个可以使用DOM,可以参考楼上的,也可以当成文本直接找出需要过滤的标记,如<>这样子,前后过滤就行如果是web的话那就更简单,直接解析出来好了.

Answer 3

online(龙卷风V3.0--笑傲江湖(MS MVP-VB)) 
感谢您给我提供的方法 但是使用起来确实有点痛苦 改的地方不少 还没改对daisy8675(莫依 MS MVP-VB)
是这样的，有2个xml文档 数据各100条 我需要取出A的任意一条与B相关的某条进行比对 （根据某数据项相同进行判断） 然后将结果再输出