vb调用dll 返回的是标准的xml，如何获取

2012-12-14

vb调用dll 返回的是标准的xml，怎么获取vb调用dll 返回的是标准的xml，怎么获取代码如下Public Declare Func

vb调用dll 返回的是标准的xml，怎么获取
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 Explicit

Private 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文件

[解决办法]
这已经是xml格式了，直接存。xml。
要分行的话，试试
Replace(objXML.XML, ">" & vbNewLine & FourSpace & FourSpace & "</", "></")
[解决办法]
不用分行，直接保存。
[解决办法]
+1

引用:

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

[解决办法]
怎么保存啊都在一行
[解决办法]
直接保存成xxxx.xml的文件，对于XML来说只要标签没问题分不分行没影响。
[解决办法]

引用:

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

如果想取其中节点的值，需要引用XML库，用XML对象来操作。
[解决办法]
Text3.Text = getAllCenter()
//
你text3.multiline是不是=false啊
[解决办法]

引用:

怎么保存啊都在一行


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

[解决办法]
引用Microsoft XML, v6.0

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

热点排行

Bad Request.

VB

vb调用dll 返回的是标准的xml，如何获取