VB读写XML怎么防止有乱码?

Dim XML As DOMDocument 'xml 对象
Dim XmLRoot As IXMLDOMElement 'xml根节点
Dim I As Integer
Set XML = New DOMDocument
If XML.Load("c:\TDDOWNLOAD\200901.XML") = False Then
  MsgBox "打开xml出错！"
  Exit Sub
End If
Set XmLRoot = XML.documentElement '建立根节点对象
For I = 1 To XmLRoot.childNodes.length
  MsgBox XmLRoot.childNodes.Item(I).nodeName  '获得所有根节点下所有子节点的节点名
  MsgBox XmLRoot.childNodes.Item(I).Text  '获得所有根节点下所有子节点所含的文本内容
Next
Set XML = Nothing

使用上面的程序读,中文会变成乱码,还需要设置编码方式吗?求教

---

加一句 XML.validateOnParse = True 试试

---

引用

加一句 XML.validateOnParse = True 试试

没有效果

---

---

End_rbody_63509885//-->
该回复于2010-02-23 16:30:37被管理员删除



对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP








Tiger_Zhao
(VB老鸟)

等　级：
13
4
4



#4楼 得分：10回复于：2010-02-23 09:14:17


xml 文件开头要指定编码
XML code:
<?xml version="1.0" encoding="gb2312"?>

---

---

End_rbody_63512553//-->
该回复于2010-02-23 16:30:18被管理员删除



对