你好
我正在写一个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
私有 功能 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中的节点的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!