用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换

原创 2001年11月29日 13:26:00

用vb将word文档(或其他的二进制数据)生成xml文件并互相转换<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

1.    建立一个新的vb工程

2.    引用 Microsoft XML,版本 2.0 或以上

3.    在窗体form1上建立按钮 cmdCreateXML cmdGetBinary

代码:

Option Explicit
Dim oDoc As DOMDocument
Dim DOCINPATH As String
Dim XMLOUTPATH As String
Dim DOCOUTPATH As String

Private Sub cmdCreateXML_Click()
   
    Dim oEle As IXMLDOMElement
    Dim oRoot As IXMLDOMElement
    Dim oNode As IXMLDOMNode
       
    DOCINPATH = App.Path & "/DocInput.doc"
    XMLOUTPATH = App.Path & "/XmlOuput.xml"
         
    Call ReleaseObjects
   
    Set oDoc = New DOMDocument
    oDoc.resolveExternals = True
   
' Create processing instruction and document root
    Set oNode = oDoc.createProcessingInstruction("xml", "version='1.0'")
    Set oNode = oDoc.insertBefore(oNode, oDoc.childNodes.Item(0))
   
' Create document root
    Set oRoot = oDoc.createElement("Root")
    Set oDoc.documentElement = oRoot
    oRoot.setAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"

' Add a few simple nodes with different datatypes
    Set oNode = oDoc.createElement("Document")
    oNode.Text = "Demo"
    oRoot.appendChild oNode
   
    Set oNode = oDoc.createElement("CreateDate")
    oRoot.appendChild oNode
    Set oEle = oNode
   
' Use DataType so MSXML will validate the data type
    oEle.dataType = "date"
         
    oEle.nodeTypedValue = Now
   
    Set oNode = oDoc.createElement("bgColor")
    oRoot.appendChild oNode
    Set oEle = oNode
   
' Use DataType so MSXML will validate the data type
    oEle.dataType = "bin.hex"
        
    oEle.Text = &HFFCCCC
   
    Set oNode = oDoc.createElement("Data")
    oRoot.appendChild oNode
    Set oEle = oNode
   
' Use DataType so MSXML will validate the data type
    oEle.dataType = "bin.base64"
    
' Read in the data
    oEle.nodeTypedValue = ReadBinData(DOCINPATH)
   
' Save xml file
    oDoc.save XMLOUTPATH
   
    MsgBox XMLOUTPATH & " is created for you."
  
End Sub

Function ReadBinData(ByVal strFileName As String) As Variant
    Dim lLen As Long
    Dim iFile As Integer
    Dim arrBytes() As Byte
    Dim lCount As Long
    Dim strOut As String
   
'Read from disk
    iFile = FreeFile()
    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的地方

c# word文档与二进制数据的相互转换

c# word文档与二进制数据的相互转换  最近项目出使用到了将word文档以二进制的方法存到数据库中,并再次读取出二进制数据转换为word文档。最后总结了一下,不多说看示例方法: ...
  • jpzy520
  • jpzy520
  • 2014年02月26日 16:02
  • 2085

java 利用XML形式导出word

用XML做就很简单了。Word从2003开始支持XML格式,大致的思路是先用office2003或者2007编辑好word的样式,然后另存为xml,将xml翻译为FreeMarker模板,最后用jav...
  • qq_33212500
  • qq_33212500
  • 2017年01月17日 14:16
  • 3196

Android 将数据写入到word中

新建一个文件 public void saveFile(String fileName, Context context, int rawid) throws IOException { ...
  • linzhenxiang123
  • linzhenxiang123
  • 2016年12月20日 23:30
  • 1484

XML文件与实体类的互相转换

  • 2013年07月29日 14:46
  • 26KB
  • 下载

将Xml文件从文本格式转换为二进制格式可以划分为六个步骤

Step 1. 收集有资源ID的属性的名称字符串   这一步除了收集那些具有资源ID的Xml元素属性的名称字符串之外,还会将对应的资源ID收集起来放在一个数组中。这里收集到的属性名称字符串保存在一个...
  • naildawn
  • naildawn
  • 2015年10月07日 21:04
  • 397

c# word文档与二进制数据的相互转换

c# word文档与二进制数据的相互转换  最近项目出使用到了将word文档以二进制的方法存到数据库中,并再次读取出二进制数据转换为word文档。最后总结了一下,不多说看示例方法: ...
  • jpzy520
  • jpzy520
  • 2014年02月26日 16:02
  • 2085

excel文档解析和生成xml文件

  • 2012年05月15日 09:34
  • 9.92MB
  • 下载

读取数据库表数据转换成XML文件

  • 2011年06月08日 14:43
  • 15KB
  • 下载

C#将数据库数据生成XML文件

  • 2011年07月14日 14:01
  • 2KB
  • 下载

XML文件与实体类之间的互相转换

XML文件与实体类的互相转换 一.将XML文件反序列化为实体类对象   1. 通常程序的配置信息都保存在程序或者网站的专门的配置文件中(App.config/web.config)。但是现在为了演...
  • mengyulove
  • mengyulove
  • 2013年07月16日 15:04
  • 4490
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
举报原因:
原因补充:

(最多只允许输入30个字)