ÈçºÎ¹¹ÔìÕâÑù¸ñʽµÄ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¸ñʽ¹¹Ôì²»ÊǺÜÇå³þ£¬Ð»Ð»£¡
Ïà¹ØÎÊ´ð£º
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎͼ¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......