如何将一个XML文件,读取到一个字符串变量中呀..

Question

我想用 open 22.xml for input as #f ,,便读出来的是乱码呀...

Answer 1

Dim TempStr As String,MyText as String,OneText As Byte
OneText=0
open "C:\22.xml" for input as #1
do While Not EOF(1)
   Line Input #1,TempStr
   If OneText=0 then
      MyText=TempStr
      OneText=1
   Else
      MyText=MyText & Chr(13) & Chr(10) & TempStr
   End If
Loop
Close #1
Text1.text=MyText

Answer 2

2.xml的格式如下:- <DataSet1 xmlns="http://www.tempuri.org/DataSet1.xsd">
- <SouNewsTABLE>
  <NID>5</NID> 
  <Title>三峡工地150项目部1号</Title> 
  <DownTime>2004-10-26T02:52:30Z</DownTime> 
  <PubTime>2004-10-26T02:52:30Z</PubTime> 
  <Content><p>　　施工中，1号拌和楼满足了工程进度要求，并创出单楼混凝土拌制月产110166.5立方米，日前4673立方米、班产1737立方米的世界记录。同时，施工质量、安全生产实现“双零”目标。该拌和楼还连续3年被三峡总公司公司授予“红旗设备”。p></Content> 
  <FirstPic /> 
  <AllPic /> 
  <Media>IT168</Media> 
  <MediaClass>1号拌和楼满足了工程进度要求</MediaClass> 
  <URL>http://www.mNewsId=11341</URL> 
  <HavePic>0</HavePic> 
  <HaveSmallPic>0</HaveSmallPic> 
  <ContentText>　　施工中，1号拌和楼满足了工程进度要求，并创出单楼混凝土拌制月产110166.5立方米，日前4673立方米、班产1737立方米的世界记录。同时，施工质量、安全生产实现“双零”目标。该拌和楼还连续3年被三峡总公司公司授予“红旗设备”。</ContentText> 
  </SouNewsTABLE>
  </DataSet1>我想把这些文件读入一个变量中,进行处理,可是用OPEN INPUT 打开的内容,,全是乱码呀..请高手指点..乱码格式如下:
<DataSet1 xmlns="http://www.tempuri.org/DataSet1.xsd"><SouNewsTABLE><NID>102</NID><Title>涓夊场宸ョ▼鍗囪埞鏈轰笂闂搁杈呭姪闂搁棬鍙婂娴佸簳瀛斿皝鍫甸椄闂ㄥ埗閫犳嫑鏍囧紑鏍?/Title><DownTime>2004-10-26T08:02:54Z</DownTime><PubTime>2004-10-26T08:02:54Z</PubTime><Content>&lt;p&gt;銆€銆€涓夊场宸ョ▼鍗囪埞鏈轰笂闂搁杈呭姪闂搁棬鍙婂娴佸簳瀛斿皝鍫甸椄闂ㄥ埗閫犳嫑鏍囧紑鏍?lt;/p&gt;
&lt;p&gt;銆€銆€涓夐棬宄℃按宸ユ満姊板巶銆佹鏄岄€犺埞鍘傘€佹睙鍗楅€犺埞闆嗗洟鍏徃銆佸す姹熸按宸ユ満姊板巶銆佷腑鍥芥按鐢靛叓灞€銆佽憶娲插潩闆嗗洟鍏徃绛?瀹跺拰鍚勪紒涓氬弬涓庣珵鏍囥€傚彈鎷涙爣浜轰腑鍥戒笁宄℃€诲叕鍙稿鎵橈紝涓夊场鍥介檯鎷涙爣鍏徃璐熻矗浠ｇ悊姝ゆ鎷涙爣娲诲姩銆?lt;/p&gt;</Content><FirstPic></FirstPic><AllPic></AllPic><Media>涓浗涓夊场宸ョ▼鎶?/Media><MediaClass>涓浗涓夊场宸ョ▼鎶瑕侀椈</MediaClass><URL>http://www.ctgpc.com/news/view_info.php?mNewsId=11343&amp;PHPSESSID=4cc6156bf7d8fd5897ecf73b07500fae</URL><HavePic>0</HavePic><HaveSmallPic>0</HaveSmallPic><ContentText>銆€銆€涓夊场宸ョ▼鍗囪埞鏈轰笂闂搁杈呭姪闂搁棬鍙婂娴佸簳瀛斿皝鍫甸椄闂ㄥ埗閫犳嫑鏍囧紑鏍?
銆€銆€涓夐棬宄℃按宸ユ満姊板巶銆佹鏄岄€犺埞鍘傘€佹睙鍗楅€犺埞闆嗗洟鍏徃銆佸す姹熸按宸ユ満姊板巶銆佷腑鍥芥按鐢靛叓灞€銆佽憶娲插潩闆嗗洟鍏徃绛?瀹跺拰鍚勪紒涓氬弬涓庣珵鏍囥€傚彈鎷涙爣浜轰腑鍥戒笁宄℃€诲叕鍙稿鎵橈紝涓夊场鍥介檯鎷涙爣鍏徃璐熻矗浠ｇ悊姝ゆ鎷涙爣娲诲姩銆?/ContentText></SouNewsTABLE></DataSet1>