本文介绍了通过VB6的XML中的节点的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

你好

我正在写一个vb代码,它将生成xml文件.我正在取得一些进步,但是我被困住了.当我运行vb程序时,即使它包含在vb代码中,也不会显示 MessageDetails 节点.我究竟做错了什么?以下是vb代码

Hello

I am writing a vb code that will generate xml files. I am making some progress, but I am stuck. When I run the vb program, the MessageDetails node is not displayed, eventhough it is contained in the vb code. What am I doing wrong? Below is the vb code

'为文档创建注释. 'Set node = dom.createElement("node3")
私有 功能 CreateDOM()
昏暗
.设置 dom = 新建 DOMDocument30
dom.asyn c == 错误
dom.validateOnParse = 错误
dom.resolveExternals == False
dom.preserveWhiteSpace ==
CreateDOM = dom
结束 功能
私有 Form_Load()
昏暗 dom,节点,attr
昏暗 默认NS As 字符串
错误 转到 错误处理程序
设置 dom = CreateDOM
'创建针对xml的处理指令.
设置 节点= dom.createProcessingInstruction( " xml" " version ='1.0''" )
dom.appendChild节点
设置 节点 没什么
'创建针对xml样式表的处理指令.
设置 node = dom.createProcessingInstruction( "xml-stylesheet" ,_
size:11px>)
dom.appendChild节点
设置 node ==
设置 node = dom.createComment ( 使用XML DOM对象创建的示例XML文件." )
dom.appendChild节点
设置 node == 没什么
字体样式="color:blue">"http://www.govtalk.gov.uk/CM/envelope""
>'创建根元素.
RootElement
设置 RootElement = dom.createNode(NODE_ELEMENT, " GovTalkMessage" ,DefaultNS )
设置 节点= dom.createNode(NODE_ELEMENT, " EnvelopeVersion" ,DefaultNS)
'.将根元素添加到DOM实例中.
dom.appendChildRootElement
'插入换行符+选项卡.
R ootElement.appendChilddom.createTextNode(vbNewLine + vbTab)
'创建并向刚刚创建的根元素添加更多节点.
style ="color:green">'创建文本元素.
'Set node = dom.createElement(" node1")
node.Text == " 2.0"
在根元素中添加文本节点.
RootElement.appendChild节点
> 设置 节点= 没什么
RootElement.appendChild dom.createTextNode(vbNewLine + vbTab)
'创建一个元素以保留一个CDATA部分.
设置node = dom.createElement("node2")
设置 node == dom.createNode(NODE_ELEMENT, > "标题" ,DefaultNS)
设置 cd = dom.createCDATASection( <一些标记文本>"" )
node.appendChild cd
设置 cd = 没有
dom.documentElement.appendChild子节点
font> 节点= dom.createNode(NODE_ELEMENT, " MessageDetails" ,DefaultNS)
设置 节点= 没什么
'添加一个换行符加标签.
RootElement.appendChilddom.createTextNode(vbNewLine + vbTab)
"color:green">'创建一个元素以容纳三个空的子元素.
设置 node = dom.createNode(NODE_ELEMENT, " node3; ,Defau ltNS)
RootElement.appendChild节点
添加
RootElement.appendChilddom.createTextNode(vbNewLine)
> Set 节点= 没什么
'将XML文档保存到文件中. /font>
dom.save App.Path +
设置 RootElement == 没什么
设置 dom == 没什么
退出 Sub
ErrorHandler:
.MsgBoxErr.Description
结束 >
 Private Function CreateDOM() 
    Dim dom 
    Set dom = New DOMDocument30 
    dom.async = False 
    dom.validateOnParse = False 
    dom.resolveExternals = False 
    dom.preserveWhiteSpace = True 
    Set CreateDOM = dom 
End Function 
 
Private Sub Form_Load() 
    Dim dom, node, attr 
    Dim DefaultNS As String 
     
    On Error GoTo ErrorHandler 
 
    Set dom = CreateDOM 
     
    ' Create a processing instruction targeted for xml. 
    Set node = dom.createProcessingInstruction("xml""version='1.0'"
    dom.appendChild node 
    Set node = Nothing 
     
    ' Create a processing instruction targeted for xml-stylesheet. 
    Set node = dom.createProcessingInstruction("xml-stylesheet", _ 
                                "type='text/xml' href='test.xsl'"
    dom.appendChild node 
    Set node = Nothing 
     
    ' Create a comment for the document. 
    Set node = dom.createComment("sample xml file created using XML DOM object."
    dom.appendChild node 
    Set node = Nothing 
     
     
     
    DefaultNS = "http://www.govtalk.gov.uk/CM/envelope" 
     
    ' Create the root element. 
    Dim RootElement 
    Set RootElement = dom.createNode(NODE_ELEMENT, "GovTalkMessage", DefaultNS) 
     Set node = dom.createNode(NODE_ELEMENT, "EnvelopeVersion", DefaultNS) 
 
    ' Add the root element to the DOM instance. 
    dom.appendChild RootElement 
    ' Insert a newline + tab. 
    RootElement.appendChild dom.createTextNode(vbNewLine + vbTab) 
    ' Create and add more nodes to the root element just created. 
    ' Create a text element. 
   ' Set node = dom.createElement("node1") 
    node.Text = "2.0" 
    ' Add text node to the root element. 
    RootElement.appendChild node 
    Set node = Nothing 
      ' Add a newline plus tab. 
    RootElement.appendChild dom.createTextNode(vbNewLine + vbTab) 
     
    ' Create an element to hold a CDATA section. 
    'Set node = dom.createElement("node2") 
    Set node = dom.createNode(NODE_ELEMENT, "Header", DefaultNS) 
 
    Set cd = dom.createCDATASection("<some mark-up text>"
    node.appendChild cd 
    Set cd = Nothing 
    dom.documentElement.appendChild node 
     
    Set node = dom.createNode(NODE_ELEMENT, "MessageDetails", DefaultNS) 
     
    Set node = Nothing 
      ' Add a newline plus tab. 
    RootElement.appendChild dom.createTextNode(vbNewLine + vbTab) 
     
    ' Create an element to hold three empty subelements. 
  '  Set node = dom.createElement("node3") 
    Set node = dom.createNode(NODE_ELEMENT, "node3", DefaultNS) 
    
    RootElement.appendChild node 
       ' Add a newline. 
    RootElement.appendChild dom.createTextNode(vbNewLine) 
    Set node = Nothing 
     
    ' Save the XML document to a file. 
    dom.save App.Path + "\dynamDom.xml" 
    Set RootElement = Nothing 
    Set dom = Nothing 
    Exit Sub 
     
ErrorHandler: 
    MsgBox Err.Description 
End Sub 
 

推荐答案


这篇关于通过VB6的XML中的节点的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!

05-28 22:20
查看更多