登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>XML教程>>XML应用>>用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
来源:不详 ‖ 作者:佚名 ‖ 点击: ‖ 时间:13-07-06 10:26:22 ‖ 【 】‖ 我要投稿




顶一下
-
用vb将word文档(或其他的二进制数据)生成xml文件并互相转换
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
|<< << < 1 2 3 > >> >>|
加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
  • 上一篇:XML基础之 DataSet加载XML数据文件
  • 下一篇:无
  • 相关文章列表
    请文明参与讨论,禁止漫骂攻击。  
    网友评论