vb调用dll 返回的是标准的xml,怎么获取
代码如下
    Public Declare Function getHospitalInfo Lib "TyInterFace.dll " (ByVal name As String, ByVal CENTER_NO As String) As String    Public Declare Function getCenter Lib "TyInterFace.dll " (ByVal CENTER_NO As String) As String    Public Declare Function getAllCenter Lib "TyInterFace.dll " () As String
Option ExplicitPrivate Sub Form_Load()
Text2.Text = getCenter("3506010011")
Text3.Text = getAllCenter()
End Sub
返回的文本结果<?xml version='1.0' encoding='gb2312'?><function><function_id>GetCenter</function_id><data rowcount=\"1\" columns=\"5\"><row rownum=\"0\"><column colnum=\"0\" colname=\"CenterNO\">3506010011</column><column colnum=\"1\" colname=\"HOSP_CODE\">123456</column><column colnum=\"2\" colname=\"ORG_LEVEL\">3</column><column colnum=\"3\" colname=\"UserNo\">hbcyy</column><column colnum=\"4\" colname=\"BK\">MQ==china</column></row></data></function>
这样得到文本 全在一行 怎么转xml  或直接生成xml文件

解决方案 »

  1.   

    这已经是xml格式了,直接存。xml。
    要分行的话,试试
    Replace(objXML.XML, ">" & vbNewLine & FourSpace & FourSpace & "</", "></")
      

  2.   

    直接保存成xxxx.xml的文件,对于XML来说只要标签没问题分不分行没影响。
      

  3.   


    如果想取其中节点的值,需要引用XML库,用XML对象来操作。
      

  4.   

    Text3.Text = getAllCenter()
    //
    你text3.multiline是不是=false啊
      

  5.   


    .
    .
    Open "xxx.xml" For Output As #1
    Print #1, text4
    Close #1
      

  6.   

    引用Microsoft XML, v6.0
    Dim xmlD As New DOMDocument,xmlE As IXMLDOMElement
    if xmlD.loadXML(Text3.Text)=true then
    Set xmlE = xmlDoc.documentElement
    '处理xmlE