2011年計算機等考二級VB輔導知識技巧總結(jié)(30)

　　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. 運行程序點擊cmdCreateXML 按鈕.一個 XML 文件XmlOuput.xml 就建立了。

　　點擊 cmdGetBinary 按鈕就可以生成word文檔 DocOutput.doc。

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

　　2011年上半年計算機等級考試報名時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等考二級VB輔導知識技巧匯總