// 定义变量
OLEObject lole_xmlhttp
OLEObject lole_xml
// 创建MSXML2.XMLHTTP对象
lole_xmlhttp = CREATE OLEObject
lole_xmlhttp.ConnectToNewObject("MSXML2.XMLHTTP")
// 创建MSXML2.DOMDocument对象
lole_xml = CREATE OLEObject
lole_xml.ConnectToNewObject("MSXML2.DOMDocument")
// 加载XML数据
lole_xml.loadXML(xml) ----------------------这里xml就是待解析的xml字符串,可以作为参数传进来
// 处理XML数据
IF lole_xml.parseError.errorCode <> 0 THEN
MessageBox("Error", lole_xml.parseError.reason)
ELSE
// 在这里可以通过lole_xml对象访问和处理XML数据
// 提取node节点的值
string ls_xpath,ls_node
OLEObject lole_node
ls_xpath = "/Root/" + node ---------------------------------------这里Root根据需要替换根节点,node是根节点下要提取的节点的值。
lole_node = lole_xml.selectRootNode(ls_xpath)
IF Not IsNull(lole_node) THEN
ls_node = lole_node.text
ELSE
ls_node = "未获取到节点的值"
END IF
MessageBox("the value of node is :", ls_node)
END IF
return ls_node
// 释放对象
DESTROY lole_xmlhttp
DESTROY lole_xml