网页功能: 加入收藏 设为首页 网站搜索  
用vb将word文档生成xml文件并互相转换
发表日期:2006-08-10作者:[转贴] 出处:  

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 StringAs 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 NothingThen

'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的地方

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 用vb将word文档生成xml文件并互相转换
本类热点文章
  在VB应用程序中调用Excel2000
  在VB中使用水晶报表的一种简易编程方法
  BOM表查询的VB实现方法
  如何將Excel的文件导入Access文件
  把DataGrid的数据快速写入EXCEL
  Visual Basic 导出到 Excel 提速之法
  DataGrid 控件的使用
  VB中DataCombo和DataList 控件的使用
  ADO三大对象的属性、方法、事件及常数
  VB中MSHFlexGrid控件的应用
  VB+ADO检测数据库并发操作和处理并解决..
  用VB+WORD模版+数据库来制作格式合同..
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00315