Çó¸öºÃ°ì·¨ÕÒµ½XMLÖÐÖ¸¶¨Ãû×ֵĽڵã
ÐèÒª¶ÔxmlÎļþÖÐÖ¸¶¨µÄ½Úµã½øÐд¦Àí£¬Îļþͨ³£1µ½2M
ÓÃxmlµÄ½âÎöÆ÷
Çó¸öºÃ°ì·¨
ÎÊÂ¥ÉÏ£¬
Set value_node = xmlRootElement.selectSingleNode("portType")ÊDz»ÊÇ·µ»ØËùÓÐÏàͬÃû×Ö½ÚµãµÄ¼¯ºÏ£¿
Êǵģ¬Äã¿ÉÒÔÓÃÒ»¸öÑ»·À´²Ù×÷¡£Ã¿¸ö×ӽڵ㲻ÊÇÓи¸½ÚµãÂð¡£¾ßÌåµ½Äĸö¸¸½ÚµãϵÄij¸ö¡£
For Each vNode In xmlRootElement.childNodes.Item(0).childNodes
»òFor i=0 to xmlRootElement.childNodes.Item(0).childNodes.length-1
¾ßÌåµÄ¿ÉÒԲο¼http://www.w3school.com.cn/xmldom/index.asp
ÎÊÌâÊÇselectNodes()Ò²¿ÉÒÔ·µ»Ø×Ó½ÚµãµÄ×Ó½ÚµãÂ𣿠Èç¹ûÃû×ÖÏàͬ¡£Åθ´
ÁíÍ⣬µ±ÎÒ´´½¨×Ó½ÚµãµÄʱºò×ÜÊÇÓö¯Ì¬Êý×éÏȱ£´æºÃ¸¸½Úµã£¬È»ºóÔÙappend£¬¸Ð¾õºÜÂé·³£¬Çë½ÌÄúÊÇÔõô´¦ÀíµÄ£¿
VB code:
Private oXMLDom As MSXML2.DOMDocument
Private oXMLElement As MSXML2.IXMLDOMElement
Private oTemElement() As MSXML2.IXMLDOMElement
Private oNodeAttr As MSXML2.IXMLDOMAttribute
Private Sub Generate_Click()
Dim oThisNode As MSXML2.IXMLDOMNode
'<--Create a new DOMDoc and then set the root element
Set oXMLDom = CreateObject("MSXML2.DOMDocument")
oXMLDom.async = False
oXMLDom.validateOnParse = False
Set oXMLElement = oXMLDom.createElement("Root")
Set oXMLDom.documentElement = oXMLElement
'<--Create the child nodes and set the attributes(or values) if needed
ReDim oTem
Ïà¹ØÎÊ´ð£º
ÈçºÎ¶ÔxmlÄÚÈÝÊý¾Ý½øÐбȽÏ
ÀýÈ磺
<?xml version='1.0' encoding='utf-8'?>
<TestLIST>
<PID>40</PID>
<TestName>ÉîÛÚÊÐ</TestName>
......
ÎÒÓÐÒ»¸öÀàËÆµÄxmlµÄ string£¬Ïëͨ¹ý±éÀúÔõô¸öxml Êä³öÎÒÏëÒªµÄelementµÄÖµ
xml Ϊ£º
<Discover xmlns="urn:schemas-microsoft-com:xml-analysis">
<RequestType>DISCOVER_XML_ME ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎͼ¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......
ÎÒÏÖÔÚÐèÒªÓÃschemaÀ´ÑéÖ¤Ò»¸öXMLÎļþ£¬µ«ÊÇÈ´·ÖÁ˼¸¸öXSDÎļþ£¬ÆäÖÐÓÐÒ»¸öÖ÷XSDÎļþ£¬ÓÃ#Include°üº¬ÁËÆäËûµÄXSDÎļþ¡£ÎÒÔÚXMLÎļþÖÐÖ®ÒýÓÃÖ÷XSDÎļþ£¬µ«ÊDz»³É¹¦£¬ÇëÎÊÎÒÊDz»ÊÇҪȫ²¿ÒýÓ㬻¹ÊÇÆäËûÎÊÌ⣿Èç¹ûÈ«²¿ ......
ÏÖÔÚÎÒдÁË´æ´¢¹ý³Ì£¬°Ñ±íÀïÃæµÄÊý¾Ýµ¼³öµ½xmlÖУ¬ÏÖÔڵĸñʽÊÇ£º
<?xml version="1.0" encoding="GBK" ?>
<PEOPLE>
<PERSON PERSONID="1">
&l ......