XMLDocument.CreateComment

From Xojo Documentation

Method

XMLDocument.CreateComment(Data as String) As XMLComment

Supported for all project types and targets.

Creates an XMLComment with the passed Data and returns it as an XMLComment.

Example

The following XML is stored in a constant called kXML:

 <?xml version="1.0" encoding="UTF-8"?>
 <League>
 	<Team name="Seagulls">
 		<Player name="Bob" position="1B" />
 		<Player name="Tom" position="2B" />
 	</Team>
 	<Team name="Pigeons">
 		<Player name="Bill" position="1B" />
 		<Player name="Tim" position="2B" />
 	</Team>
 	<Team name="Crows">
 		<Player name="Ben" position="1B" />
 		<Player name="Ty" position="2B" />
 	</Team>
 </League>

To add a comment to the first team node:

Dim xml As New XmlDocument(kXml)

// Create a Comment and assign it a value
Dim xc As XmlComment
xc = xml.CreateComment("TestComment")
xc.Value = "This node contains team information."

// Add the Comment to the XML document
xml.DocumentElement.FirstChild.AppendChild(xc)

TextArea1.Text = xml.ToString