ÈçºÎ¹¹ÔìÕâÑù¸ñʽµÄxmlÎļþ - .NET¼¼Êõ / VB.NET
<?xml version="1.0" encoding="UTF-8"?>
<GPS>
<organization name=¡±µçÁ¦Ñо¿Ôº¡± >
<position name=¡±À¥Ã÷¡± count=¡±2¡± >
<cart >
<id></id>
<number></number>
< state ></state>
<address></address>
< dwTime ></dwTime>
</cart>
<cart >
<id></id>
<number></number>
< state ></state>
<address></address>
< dwTime ></dwTime>
</cart>
</position>
<position name=¡±ºìºÓ¡± count=¡±1¡± >
<cart >
<id></id>
<number></number>
< state ></state>
<address></address>
< dwTime ></dwTime>
</cart>
</position>
</ organization>
</GPS>
Äܲ»ÄÜÕë¶ÔÎÒµÄxml д¸öÀý×Ó£¬¶Ôxml¸ñʽ¹¹Ôì²»ÊǺÜÇå³þ£¬Ð»Ð»£¡
Ïà¹ØÎÊ´ð£º
<?xml version="1.0" encoding="utf-8" ?>
- <LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" android:orientation="vertical&q ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÎÒÓÐÒ»¸öÀàËƵÄxmlµÄ string£¬Ïëͨ¹ý±éÀúÔõô¸öxml Êä³öÎÒÏëÒªµÄelementµÄÖµ
xml Ϊ£º
<Discover xmlns="urn:schemas-microsoft-com:xml-analysis">
<RequestType>DISCOVER_XML_ME ......