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文件
代码如下
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文件
解决方案 »
- 不熟悉VB,请教高手,App对象是怎么实现的?
- 怎么让access数据库区分全角和半角字符啊?
- 请教:关于vb做票据打印程序的纸张设置问题!急!!!!在线等!!!
- 如何改变VB Combobox 下拉键头的颜色
- 求InstallShield的中文版或汉化版,版本不限
- 怎么将程序图标放在输入法那一栏去?
- VB中viewlist 左边列表右边显示窗口问题
- 一个关于vba中word的问题
- 急,急,急,判断操作系统类型(windows98,windows2000),用什么API函数?
- 寻高打!如何将几个RichText文档同并为一个RichText文档???急急!
- VB调用DLL嵌套问题?
- 最近老做噩梦,散分
要分行的话,试试
Replace(objXML.XML, ">" & vbNewLine & FourSpace & FourSpace & "</", "></")
如果想取其中节点的值,需要引用XML库,用XML对象来操作。
//
你text3.multiline是不是=false啊
.
.
Open "xxx.xml" For Output As #1
Print #1, text4
Close #1
Dim xmlD As New DOMDocument,xmlE As IXMLDOMElement
if xmlD.loadXML(Text3.Text)=true then
Set xmlE = xmlDoc.documentElement
'处理xmlE