vb - VB / »ù´¡Àà

ÎÒÏë°Ñ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
L=LOF(f)
redim b(L-1)
b=inputb(L,#f)
close #f
s=strconv(b,vbUnicode)

---

ÉÏÃæµÄ¶Á³öµÄxmlÊǺÃÏñÊÇ·±Ìå×Ö

---

ÏÖÔÚÖ»Ïë°ÑxmlÀïµÄÊý¾Ý¶ÁÈ¡³öÀ´£¬×é³ÉÒ»¸ö×Ö·û´®£¬²»¶ÁÈ¡xmlµÄ¸ñʽ£¬ÇëÎÊÔõôʵÏÖ°¡£¡

---

Èç¹ûÄãµÄxmlÊDZê×¼¸ñʽ£¬ÓÃϱߵķ½·¨¾Í¿ÉÒÔ¶Á³öÀ´µÄ
  Dim xml As MSXML2.DOMDocument30
  Set xml = New MSXML2.DOMDocument30
  xml.async = False
  xml.Load CD_Down.FileName

  Dim oRst As ADODB.Recordset
   
  Set oRst = New ADODB.Recordset
   
  oRst.Open xml

---

ÏòÂ¥ÉϵģºÑ§Ï°£¬
ÏòÂ¥ÉϵģºÑ§Ï°£¬
ÏòÂ¥ÉϵģºÑ§Ï°£¬
ÏòÂ¥ÉϵģºÑ§Ï°£¬

---

ÒýÓÃxml¶ÔÏóÀ´´¦Àí....
recordset.open xmlÖ»ÄÜ´¦ÀíÓÉrecordset.save xml±£´æµÄ³Ö¾ÃÐԼǼ¼¯....

---

ÏÖÔÚÎÒµÄÕâ¸öxmlÎļþÊÇÓÃwordÁí´æ³öÀ´µÄ£¬¿Ï¶¨²»ÊDZê×¼µÄ£¬¿ÉÊÇÎÒÖ»ÏëÒª¶ÁÈ¡xmlÖеÄÊý¾Ý£¬²»Ïë¶ÁÈ¡Èκθñʽ

---

ÒýÓÃ

ÉÏÃæµÄ¶Á³öµÄ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