Open strFileName For Binary Access Read As iFile

　　lLen = FileLen(strFileName)

　　ReDim arrBytes(lLen - 1)

　　Get iFile, , arrBytes

　　Close iFile

　　ReadBinData = arrBytes

　　End Function

　　Private Sub WriteBinData(ByVal strFileName As String)

　　Dim iFile As Integer

　　Dim arrBuffer() As Byte

　　Dim oNode As IXMLDOMNode

　　If Not (oDoc Is Nothing) Then

　　注釋： Get the data

　　Set oNode = oDoc.documentElement.selectSingleNode("/Root/Data")

　　注釋： Make sure you use a byte array instead of variant

　　arrBuffer = oNode.nodeTypedValue

　　注釋： Write to disk

　　iFile = FreeFile()

　　Open strFileName For Binary Access Write As iFile

　　Put iFile, , arrBuffer

　　Close iFile

　　End If

　　End Sub

　　Private Sub cmdGetBinary_Click()

　　DOCOUTPATH = App.Path & "DocOutput.doc"

　　Set oDoc = New DOMDocument

　　If oDoc.Load(XMLOUTPATH) = True Then

　　注釋： Save the Doc as another file

　　WriteBinData DOCOUTPATH

　　MsgBox DOCOUTPATH & " is created for you."

　　Else

　　MsgBox oDoc.parseError.reason

　　End If

　　End Sub

　　Private Sub Form_Unload(Cancel As Integer)

　　ReleaseObjects

　　End Sub

　　Private Sub ReleaseObjects()

　　Set oDoc = Nothing

　　End Sub

　　4. 建立word文檔DocInput.doc。

　　5. 保存文檔在工程目錄下。

　　6. 運(yùn)行程序點(diǎn)擊cmdCreateXML 按鈕.一個(gè) XML 文件XmlOuput.xml 就建立了。

　　點(diǎn)擊 cmdGetBinary 按鈕就可以生成word文檔 DocOutput.doc。

　　按照上面的方法，同樣可以將任意的二進(jìn)制數(shù)據(jù)存為xml，然后再重新生成二進(jìn)制數(shù)據(jù)。可以用于web傳輸?shù)鹊瓤梢允褂脁mlhttp的地方。

　　2011年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧匯總