7,765
社区成员
发帖
与我相关
我的任务
分享
<?xml version="1.0"?>
<interface NAME="验证请求(输入模式)">
<PCODE>3300</PCODE>
<PNAME>非税代收</PNAME>
<COCODE>1000</COCODE>
<CONAME>验证请求(输入模式)</CONAME>
<DOWN>
<NODE>
<itemno>1</itemno>
<child/>
</NODE>
<NODE>
<itemno>2</itemno>
<child>
<itemno>3</itemno>
<child/>
</child>
</NODE>
</DOWN>
<UP>
<NODE>
<itemno>1</itemno>
<child/>
</NODE>
</UP>
</interface>
Dim xml_document As DOMDocument
Dim child_node As IXMLDOMElement
set xml_document = new DOMDocument
xml_document.Load "xxx.xml" '载入xml
set child_node = xml_document.selectSingleNode("NODE") '查找节点
Private Sub Command1_Click()
Dim xmlDoc As New DOMDocument
Dim xmlRootElement As IXMLDOMElement
Dim xmlError As IXMLDOMParseError
Dim Success As Boolean
Dim strR As String
xmlDoc.async = False
xmlDoc.validateOnParse = True
strPara = "http://192.168.0.1/YYYY/services/MMMwebservice?method=GetR&ConditionStr= admin"
Success = xmlDoc.Load(strPara)
If Success = True Then
Set xmlRootElement = xmlDoc.documentElement
strR = xmlRootElement.Text
Debug.Print strR
Else
MsgBox "读取失败!"
End If
Set xmlRootElement = Nothing
Set xmlError = xmlDoc.parseError
'……
Set xmlError = Nothing
End Sub
Dim xml_document As DOMDocument
Dim child_node As IXMLDOMElement
set xml_document = new DOMDocument
xml_document.Load "xxx.xml" '载入xml
set child_node = xml_document.selectSingleNode("节点名") '查找节点
<?xml version="1.0"?>
<interface NAME="验证请求(输入模式)">
<PCODE>3300</PCODE>
<PNAME>非税代收</PNAME>
<COCODE>1000</COCODE>
<CONAME>验证请求(输入模式)</CONAME>
<DOWN>
<NODE>
<itemno>1</itemno>
<child/>
</NODE>
<NODE>
<itemno>2</itemno>
<child>
<itemno>3</itemno>
<child/>
</child>
</NODE>
</DOWN>
<UP>
<NODE>
<itemno>1</itemno>
<child/>
</NODE>
</UP>
</interface>