¼ÆËãxmlÌØ¶¨Ìõ¼þµÄ½Úµã¸öÊý£¬ÓÃxpathÀ´
ÓÐÈçÏÂÒ»¸öXMLÎļþ£º
XML code:
<A>
<B>
<SF1>b1-SF1-1</SF1>
<SF1>b1-SF1-2</SF1>
<SF2>b1-SF2-1</SF2>
<SF3>b1-SF3-1</SF3>
<SF3>b1-SF3-2</SF3>
<SF3>b1-SF3-3</SF3>
<SF3>b1-SF3-4</SF3>
</B>
<B>
<SF1>b2-SF1-1</SF1>
<SF1>b2-SF1-2</SF1>
<SF2>b2-SF2-1</SF2>
<SF3>b2-SF3-1</SF3>
<SF3>b2-SF3-2</SF3>
<SF3>b2-SF3-3</SF3>
<SF3>b2-SF3-4</SF3>
</B>
<C>
<SF1>c1-SF1-1</SF1>
<SF4>c1-SF4-1</SF4>
<D>test</D>
</C>
<E>EE</E>
<SF4>root1></SF4>
<SF2>root2></SF2>
</A>
¼ÆËãÒÔSF¿ªÍ·µÄ½Úµã¸öÊý£¬ÔõÑù¼ÆËã°¡£¿ÊÇÓÃXML±à³Ì£¬Èçxpath£¬ÊǶ¯Ì¬µÄ¼ÆË㣬лл£¡±¾ÈËÏëµ½Ò»¸ö£º<xsl:value-of select="count(//SF1) + count(//SF2) + count(//SF3) + count(//SF4)">£¬²»¹ýÊǾ²Ì¬µÄ£¬²»ºÏÒªÇó¡£ÒòΪ½ÚµãÊÇͨfor-each¶¯Ì¬Éú³ÉµÄ!
XML code:
<?xml version="1.0"?>
<xsl:stylesheet
Ïà¹ØÎÊ´ð£º
Êý¾Ý¿â±íÖÐÓÐÒ»ÁУ¨TranXml£©ÀàÐÍÊÇxml£¬´æ´¢µÄÊÇÀàËÆ
<fathernode>
<a>aaa
</a>
<b>bbb
</b>
</fathernode>
µÄÐÅÏ¢£¬²¢ÇÒͨ¹ý²éѯ·½· ......
DataSetµ¼³öxml Åú´¦Àí(Ñ»·)µÃÔõô´¦Àí
XMLÎļþ
<A>
<B>
<C>
</C>
&nb ......
ÈçºÎ¶ÔxmlÄÚÈÝÊý¾Ý½øÐбȽÏ
ÀýÈ磺
<?xml version='1.0' encoding='utf-8'?>
<TestLIST>
<PID>40</PID>
<TestName>ÉîÛÚÊÐ</TestName>
......
´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽ
XML code:
<folder state="unchecked" label="È«²¿">
¡¡¡¡ <folder state="unchecked&qu ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......