vB¶ÁÈ¡xmlÎļþ(¼±,Çë¸÷λ¸ßÊÖ°ïæ) - VB / »ù´¡Àà
vb¶ÁÈ¡xmlÎļþ,´ó¼ÒºÃ,ÎÒÓÐÒ»¸öxmlÎļþ
<?xml version="1.0" encoding="GB2312" ?>
<NewDataSet>
<WorkFlow>
<FlowName>²âÊÔÁ÷³Ì1</FlowName>
<FlowGUID>441B264D</FlowGUID>
</WorkFlow>
<WorkFlow>
<FlowName>²âÊÔÁ÷³Ì2</FlowName>
<FlowGUID>441B264E</FlowGUID>
</WorkFlow>
</NewDataSet>
<WorkFlow>
<FlowName>²âÊÔÁ÷³Ì3</FlowName>
<FlowGUID>441B264C</FlowGUID>
</WorkFlow>
ÎÒÓÃvBдһ¶Î´úÂëÒª°Ñÿһ¸öworkflowÀïÃæµÄÊý¾Ý¶Á³öÀ´,È»ºó²åÈëµ½Êý¾Ý¿âÖÐ,±ÈÈçµÚÒ»¸öflowname ÎÒÒª¶Á³ö²âÊÔÁ÷³Ì
1,441B264D,µÚ¶þ¸öÁ÷³ÌÎÒÒª¶Á³ö²âÊÔÁ÷³Ì2,441B264E,È»ºóÎÒ»áÓÃÒ»¸öÓï¾ä²åÈëÊý¾Ý¿â,ÇëÎÊÔõôÓÃÑ»·Ð´?¸÷λ¸ßÊÖ°ï°ïæ
ËÑË÷һϣ¬ÍøÉÏÓÐʵÀý
ÕâÖÖÀý×ÓÍøÉÏÌ«¶à
²Î¿¼ http://topic.csdn.net/t/20040314/23/2842665.html
{{
Ïà¹ØÎÊ´ð£º
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎͼ¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......