Question

vb如何读取XML文件

<?xml version="1.0" encoding="GBK" standalone="yes" ?><output> <prm_akc021/> <prm_ykb109/> <prm_ykc120/> <prm_yac168/> <prm_yab139>445208</prm_yab139> <prm_ykc150>0</prm_ykc150> <prm_aac003>方杰</prm_aac003> <prm_aac004>1</prm_aac004> <prm_aac002>445224199602121916</prm_aac002> <prm_aac006>1996-02-12</prm_aac006> <prm_akc023>20</prm_akc023> <prm_aab001>10005271</prm_aab001> <prm_aab004>靖海镇</prm_aab004> <prm_aab019/> <prm_aab020/> <prm_yab136>009</prm_yab136> <prm_aab021/> <prm_aac031>1</prm_aac031> <prm_yae102>2007-09-30 00:00:00</prm_yae102> <prm_akc087>0.00</prm_akc087> <prm_ykc280>1100</prm_ykc280> <prm_ykc281>1102</prm_ykc281> <prm_yae524/> <prm_ykc282/> <prm_ykc283/> <prm_ykc364/> <prm_appcode>1</prm_appcode> <prm_errormsg/> <prm_aac001>102094910</prm_aac001> <prm_yab003>445208</prm_yab003> <prm_ykb065>3</prm_ykb065></output>
你好，文件格式如上。我想逐个读出里面的数据，如445208，有什么办法，谢谢帮忙看看，急！

Answer 1

　　Dim xDoc As Object
　　Dim xmlFile As String
　　Dim strWidth As String
　　Dim strHeight As String
　　Set xDoc = CreateObject("MSXML2.DOMDocument")
　　xmlFile = "C:\1.xml"
　　xDoc.Load xmlFile

　　t1 = xDoc.selectSingleNode("output").selectSingleNode("prm_ykb109").Text
　　t2 = xDoc.selectSingleNode("output").selectSingleNode("prm_yab139").Text

　　MsgBox t1 & t2

把你的xml保存在C盘根目录，名字叫1.xml

以上测试分别取出prm_ykb109和prm_ykb139两个值，其他的以此类推