XML解析，，急！！！！用VB6.0，亲！

Question

<?xml version="1.0" encoding="utf-8" ?><logistics_address_search_response><addresses list="true"><address_result><addr>田贝三路</addr><area_id>440303</area_id><cancel_def>true</cancel_def><city>深圳市</city><contact_id>123807114</contact_id><contact_name>figo1</contact_name><country>罗湖区</country><get_def>true</get_def><mobile_phone>13692120641</mobile_phone><province>广东省</province><seller_company>asd</seller_company><send_def>false</send_def><phone>1234-12345678-1234</phone><memo>asd</memo><zip_code>223456</zip_code></address_result><address_result><addr>田贝三路</addr><area_id>440303</area_id><cancel_def>false</cancel_def><city>深圳市</city><contact_id>123897054</contact_id><contact_name>figo</contact_name><country>罗湖区</country><get_def>false</get_def><mobile_phone>1309223441</mobile_phone><province>广东省</province><send_def>false</send_def><zip_code>223456</zip_code></address_result><address_result><addr>田贝三路</addr><area_id>440303</area_id><cancel_def>false</cancel_def><city>深圳市</city><contact_id>130783042</contact_id><contact_name>figo</contact_name><country>罗湖区</country><get_def>false</get_def><mobile_phone>13123420641</mobile_phone><province>广东省</province><seller_company>asd</seller_company><send_def>false</send_def><phone>1234-12345678-1234</phone><memo>asd</memo><zip_code>223456</zip_code></address_result><address_result><addr>田贝三路</addr><area_id>440303</area_id><cancel_def>false</cancel_def><city>深圳市</city><contact_id>130866967</contact_id><contact_name>figo</contact_name><country>罗湖区</country><get_def>false</get_def><mobile_phone>1234420641</mobile_phone><province>广东省</province><seller_company>asd</seller_company><send_def>false</send_def><memo>asd</memo><zip_code>123456</zip_code></address_result><address_result><addr>田贝二路</addr><area_id>440303</area_id><cancel_def>false</cancel_def><city>深圳市</city><contact_id>131314929</contact_id><contact_name>figo</contact_name><country>罗湖区</country><get_def>false</get_def><mobile_phone>13666120641</mobile_phone><province>广东省</province><seller_company>asd</seller_company><send_def>false</send_def><phone>0755-25601791-8005</phone><memo>asd</memo><zip_code>123456</zip_code></address_result><address_result><addr>田贝三路</addr><area_id>440303</area_id><cancel_def>false</cancel_def><city>深圳市</city><contact_id>131339076</contact_id><contact_name>figo</contact_name><country>罗湖区</country><get_def>false</get_def><mobile_phone>13692121212</mobile_phone><province>广东省</province><send_def>false</send_def><zip_code>123456</zip_code></address_result></addresses></logistics_address_search_response><!--top010096123136.cm3-->

Answer 1

- <address_result>
  <addr>田贝三路</addr> 
  <area_id>440303</area_id> 
  <cancel_def>true</cancel_def> 
  <city>深圳市</city> 
  <contact_id>123807114</contact_id> 
  <contact_name>figo1</contact_name> 
  <country>罗湖区</country> 
  <get_def>true</get_def> 
  <mobile_phone>13692120641</mobile_phone> 
  <province>广东省</province> 
  <seller_company>asd</seller_company> 
  <send_def>false</send_def> 
  <phone>1234-12345678-1234</phone> 
  <memo>asd</memo> 
  <zip_code>223456</zip_code> 
  </address_result>
- <address_result>
  <addr>田贝三路</addr> 
  <area_id>440303</area_id> 
  <cancel_def>false</cancel_def> 
  <city>深圳市</city> 
  <contact_id>123897054</contact_id> 
  <contact_name>figo</contact_name> 
  <country>罗湖区</country> 
  <get_def>false</get_def> 
  <mobile_phone>13692120641</mobile_phone> 
  <province>广东省</province> 
  <send_def>false</send_def> 
  <zip_code>223456</zip_code> 
  </address_result>
----说明，主要是address_result节点下的子节点数不一定一样，有时多，有时少，有时一样

Answer 2

Public Function RecordsetFromXMLString(ByVal sXml As String) As ADODB.Recordset  
    Dim oStream As ADODB.Stream  
    Set oStream = New ADODB.Stream  
      
    oStream.Open  
    oStream.WriteText sXml  
  
    oStream.Position = 0  
  
    Dim oRecordset As ADODB.Recordset  
    Set oRecordset = New ADODB.Recordset  
         
    oRecordset.Open oStream  
  
    oStream.Close  
    Set oStream = Nothing  
  
    Set RecordsetFromXMLString = oRecordset  
  
    Set oRecordset = Nothing  
End Function  读到ADO的RecordSet对象里试试，要是不行的话就只能用DOM对象来分析了