vb XMLDOM解析xml中文出现乱码

Question

xml内容如下
  <?xml version="1.0" encoding="gb2312" ?> 
<root>
<data>
  <LYWYX>A0006296139</LYWYX> 
  <sfzh>222405197809120815</sfzh> 
  <dabh /> 
  <sfrxm>许龙男</sfrxm> 
  <hpzl>01</hpzl> 
  <hphm /> 
  <yb_ywdm>KM1BK</yb_ywdm> 
  <WB_YWDMSM>科目一重新考试</WB_YWDMSM> 
  <sjly>手工录入</sjly> 
  <sjje>0</sjje> 
  <sfbz /> 
  </data>
<data>
  <LYWYX>A0006296139</LYWYX> 
  <sfzh /> 
  <dabh /> 
  <sfrxm>湖南省湘咨招标咨询责任有限责任公司</sfrxm> 
  <hpzl>20</hpzl> 
  <hphm>AB0099</hphm> 
  <yb_ywdm>O_A_20_K33</yb_ywdm> 
  <WB_YWDMSM>(车)临时入境汽车临时号牌(轿车)</WB_YWDMSM> 
  <sjly>车管业务</sjly> 
  <sjje>0</sjje> 
  <sfbz /> 
  </data>
  </root>
但在VB中读出中文是乱码,哪位大侠能帮忙解决,先谢了

Answer 1

VB原码如下:xmlHTTP.responseText的内容则出现了乱码Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
   Set xmlDoc = CreateObject("Microsoft.XMLDOM")
         url = "http://10.142.50.88:801/interface/1.asp"
     xmlHTTP.open "GET", url, False
   xmlHTTP.setRequestHeader "Content-type", "text/xml"
   xmlHTTP.Send
   If xmlHTTP.Status <> 200 Then
        MsgBox "无法连接WEB服务器，请检查"
        End
   End If
   
   xmlDoc.loadXML xmlHTTP.responseText
   Set Item = xmlDoc.getElementsByTagName("data")
   lsh = Item.length
   For i = 0 To lsh - 1
     lywyx(i) = Item.Item(i).getElementsByTagName("lywyx").Item(0).Text
     dabh(i) = Item.Item(i).getElementsByTagName("dabh").Item(0).Text
     hpzl(i) = Item.Item(i).getElementsByTagName("hpzl").Item(0).Text
     hphm(i) = Item.Item(i).getElementsByTagName("hphm").Item(0).Text
     yb_ywdm(i) = Item.Item(i).getElementsByTagName("yb_ywdm").Item(0).Text
     sjly(i) = Item.Item(i).getElementsByTagName("sjly").Item(0).Text
     sjje(i) = Item.Item(i).getElementsByTagName("sjje").Item(0).Text
     sfbz(i) = Item.Item(i).getElementsByTagName("sfbz").Item(0).Text
     WB_YWDMSM(i) = Item.Item(i).getElementsByTagName("WB_YWDMSM").Item(0).Text
   Next
  

Answer 2

直接访问http://10.142.50.88:801/interface/1.asp得到的是上面的xml文件内容

Answer 3

xml用utf-8格式节点中不能有中文啊

Answer 4

问题解决,
xmlDoc.loadXML bytes2BSTR(xmlHTTP.responseBody)
Function bytes2BSTR(vIn)
    Dim strReturn, i, ThisCharCode, innerCode, Hight8, Low8, NextCharCode
    strReturn = ""
      
    For i = 1 To LenB(vIn)
      ThisCharCode = AscB(MidB(vIn, i, 1))
      If ThisCharCode < &H80 Then
        strReturn = strReturn & Chr(ThisCharCode)
      Else
        NextCharCode = AscB(MidB(vIn, i + 1, 1))
        strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
        i = i + 1
      End If
    Next
    bytes2BSTR = strReturn
  End Function
    

Answer 5

xmlDoc.loadXML StrConv(xmlHTTP.responseBody, vbUnicode)

Answer 6

请问这个是做在VB里的吗？我用你的代码试了下，可是运行不出，可以详细解释下吗？能不能加QQ指点下啊？453183901