Create XML Using the MSXML Object Library -

ticojj

浏览: 157609 次
性别:
来自: 广州

最近访客更多访客>>

subenkun

aa599013930

mf1389004071

wangsong76

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

Create XML Using the MSXML Object Library

博客分类：

' This procedure creates XML document
' and saves it to disk.
' Requires msxml.dll (Go to Project --> References and
' and choose Microsoft XML version 2.0, or whatever the
' current version you have installed)
' The example given below will write the following XML
' documents.
'
' <Family>
'    <Member Relationship="Father">
'       <Name>Some Guy</Name>
'    </Member>
' </Family>
'
'but it should be clear how to modify the code
'to create your own documents

Private Sub Create_XML()

   Dim objDom As DOMDocument
   Dim objRootElem As IXMLDOMElement
   Dim objMemberElem As IXMLDOMElement
   Dim objMemberRel As IXMLDOMAttribute
   Dim objMemberName As IXMLDOMElement

   Set objDom = New DOMDocument

   ' Creates root element
   Set objRootElem = objDom.createElement("Family")
   objDom.appendChild objRootElem

   ' Creates Member element
   Set objMemberElem = objDom.createElement("Member")
   objRootElem.appendChild objMemberElem

<?XML:NAMESPACE PREFIX = G ?>

Category:

ASP, HTML and XML

Type:

Snippets

Difficulty:

Beginning

Author:

Andrew Park

Version Compatibility: Visual Basic 6

More information:

This code shows you how to create simple xml document. Refer to comments for further details.

Instructions: Copy the declarations and code below and paste directly into your VB project.

------------------------------------------------------------

   ' Creates Attribute to the Member Element
   Set objMemberRel = objDom.createAttribute("Relationship")
   objMemberRel.nodeValue = "Father"
   objMemberElem.setAttributeNode objMemberRel

   ' Create element under Member element, and
   ' gives value "some guy"
   Set objMemberName = objDom.createElement("Name")
   objMemberElem.appendChild objMemberName
   objMemberName.Text = "Some Guy"

' Saves XML data to disk.
objDom.save ("c:\temp\andrew.xml")
End Sub

--------------------------------------------

copied from http://www.freevbcode.com/ShowCode.asp?ID=1919

分享到：