7,763
社区成员
发帖
与我相关
我的任务
分享
'新建一个对象
Dim pcode As String
Set xdoc = New MSXML2.DOMDocument
'设置检验数据合法性标志
xdoc.validateOnParse = True
xdoc.async = False
If xdoc.Load(xml_filename) Then
'读取DATA节点的pcode属性值
pcode = xdoc.selectSingleNode("//DATA").getAttribute("pcode")
<?xml version="1.0" encoding="GB2312"?>
<interface>
<DATA name="验证请求(输入模式)" pcode="3300" />
<DOWN>
<NODE itemno="" itemlen="" fieldtype="" funcname="" extinfo="" original=""/>
</DOWN>
<UP>
<NODE itemno="" itemlen="" fieldtype="" funcname="" extinfo="" original=""/>
</UP>
</interface>