vb - VB / 基础类

我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？

---

dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
L=LOF(f)
redim b(L-1)
b=inputb(L,#f)
close #f
s=strconv(b,vbUnicode)

---

上面的读出的xml是好像是繁体字

---

现在只想把xml里的数据读取出来，组成一个字符串，不读取xml的格式，请问怎么实现啊！

---

如果你的xml是标准格式，用下边的方法就可以读出来的
  Dim xml As MSXML2.DOMDocument30
  Set xml = New MSXML2.DOMDocument30
  xml.async = False
  xml.Load CD_Down.FileName

  Dim oRst As ADODB.Recordset
   
  Set oRst = New ADODB.Recordset
   
  oRst.Open xml

---

向楼上的：学习，
向楼上的：学习，
向楼上的：学习，
向楼上的：学习，

---

引用xml对象来处理....
recordset.open xml只能处理由recordset.save xml保存的持久性记录集....

---

现在我的这个xml文件是用word另存出来的，肯定不是标准的，可是我只想要读取xml中的数据，不想读取任何格式

---

引用

上面的读出的xml是好像是繁体字

测试. 不是繁体 是乱码.

---

引用

dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f