2011年计算机等考二级VB辅导知识技巧总结(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。

　　按照上面的方法，同样可以将任意的二进制数据存为xml，然后再重新生成二进制数据。可以用于web传输等等可以使用xmlhttp的地方。

　　2011年上半年计算机等级考试报名时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总