通过VB6的XML中的节点 [英] Nodes in XML via VB6

问题描述

你好

我正在写一个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") 设置 " node3;

私有 功能 CreateDOM()

昏暗

. dom = DOMDocument30

错误

dom.validateOnParse = 错误

False 真

结束 功能

私有 子 Form_Load()

昏暗 dom，节点，attr

<字体样式="color:blue">昏暗 默认NS As 字符串

错误 转到 错误处理程序

设置

'创建针对xml的处理指令.

设置 节点= dom.createProcessingInstruction( " xml" ， " version ='1.0''" 节点

'创建针对xml样式表的处理指令.

设置 node = dom.createProcessingInstruction( size:11px>)

dom.appendChild节点

设置 无

设置 node = dom.createComment ( 使用XML DOM对象创建的示例XML文件." )

dom.appendChild节点

node ==

字体样式="color:blue">"http://www.govtalk.gov.uk/CM/envelope""

>'创建根元素.

暗 RootElement

设置 " GovTalkMessage" 设置 节点= dom.createNode(NODE_ELEMENT， " EnvelopeVersion"

dom.appendChildRootElement

R ootElement.appendChilddom.createTextNode(vbNewLine + vbTab)

'创建并向刚刚创建的根元素添加更多节点.

style ="color:green">'创建文本元素.

'Set node = dom.createElement(" node1") " 2.0"

RootElement.appendChild节点

> 节点= 没什么

RootElement.appendChild dom.createTextNode(vbNewLine + vbTab)

'创建一个元素以保留一个CDATA部分.

设置node = dom.createElement("node2")

设置 "标题" 设置 cd = dom.createCDATASection( <一些标记文本>"" cd =

dom.documentElement.appendChild子节点

font> 节点= dom.createNode(NODE_ELEMENT， " MessageDetails"

<字体样式= "color:blue">设置 节点= 没什么

RootElement.appendChilddom.createTextNode(vbNewLine + vbTab)

"color:green">'创建一个元素以容纳三个空的子元素.

RootElement.appendChild节点

添加<换行符.

RootElement.appendChilddom.createTextNode(vbNewLine)

> 节点= 没什么

'将XML文档保存到文件中. /font>

dom.save App.Path +

设置 没什么 设置 没什么

退出 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

推荐答案

adebayoa
欢迎来到MSDN Visual Basic语言论坛，

此论坛仅支持Visual Basic .NET版本(7、8、9 ...)，因此，您的Visual Basic 6问题不在这里这不是最好的询问场所，这里是论坛，新闻组，资源和网站的列表，以获取有关您的问题的答案:

• Visual Basic 6新建组
• MSDN Library上的Visual Basic 6.0
• MSDN Visual Basic 6.0资源中心
• 代码项目
• Planet源代码
• Visual Basic互操作和升级 (将VB6代码更新为.NET)
  
  最好的问候，
  XINGWEI
  

Hi adebayoa
 Welcome to MSDN Visual Basic Language Forum,

This forum supports Visual Basic .NET versions only (7, 8, 9, ...), so, your Visual Basic 6 question is an off-topic here and this isn't the best place to ask it, here is a list of forums, newsgroups, resources and sites, to get an answer about your question :

• Visual Basic 6 Newgroups
• Visual Basic 6.0 on MSDN Library
• MSDN Visual Basic 6.0 Resource Center
• VB City
• VB-Helper
• VB Forums
• CodeGuru
• Code Project
• Planet Source Code
• Visual Basic Interop and Upgrade (Update VB6 codes to .NET)
  
  Best regards,
  XINGWEI
  

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