XML Class and Node InsertAfter

[Kael]

Hi,
I’ve made a class to help me accomplish some things faster but I’m having
problems inserting nodes. I’ve tried many different ways, but with no
success. This is a very stripped down version of what I’m trying to do. I
know that I’m simply missing some basic understanding, so hopefully someone
can enlighten me.

Public Class MYXMLCLASS
Public theXMLDocument As New XmlDataDocument
Public myXPath As String

Sub New()
myXPath = "/"
Exit Sub
End Sub

Public Function addDeclaration( ) As String
Dim myDeclaration As XmlDeclaration
myDeclaration = theXMLDocument. CreateXmlDeclar ation("1.0", Nothing,
Nothing)
myDeclaration = theXMLDocument. InsertBefore(my Declaration,_
theXMLDocument. DocumentElement )
lastNode = CType(myDeclara tion, XmlNode)
Return True
End Function

Public Function addNode(ByVal myXMLString As String) As String
Dim myNewDoc As New XmlDataDocument
Dim myReturnNode As XmlNode
Dim myCurrentNode As XmlNode =
theXMLDocument. SelectSingleNod e(myXPath)
myNewDoc.LoadXm l(myXMLString)
myReturnNode = theXMLDocument. DocumentElement .InsertAfter(my NewDoc,_
myCurrentNode)

Return myCurrentNode.O uterXml
End Function

This is called in another place
Dim myPageInfoXML As New MYXMLCLASS
myPageInfoXML.s etPath("/") // sets myXPath
myPageInfoXML.a ddDeclaration()
myPageInfoXML.a ddNode("<test>b lah</test>")

[Martin Honnen]

Kael wrote:

I’ve made a class to help me accomplish some things faster but I’m having
problems inserting nodes. I’ve tried many different ways, but with no
success. This is a very stripped down version of what I’m trying to do. I
know that I’m simply missing some basic understanding, so hopefully someone
can enlighten me.

Public Class MYXMLCLASS
Public theXMLDocument As New XmlDataDocument
Public myXPath As String

Sub New()
myXPath = "/"
Exit Sub
End Sub

Public Function addDeclaration( ) As String
Dim myDeclaration As XmlDeclaration
myDeclaration = theXMLDocument. CreateXmlDeclar ation("1.0", Nothing,
Nothing)
myDeclaration = theXMLDocument. InsertBefore(my Declaration,_
theXMLDocument. DocumentElement )
lastNode = CType(myDeclara tion, XmlNode)
Return True
End Function

Public Function addNode(ByVal myXMLString As String) As String
Dim myNewDoc As New XmlDataDocument
Dim myReturnNode As XmlNode
Dim myCurrentNode As XmlNode =
theXMLDocument. SelectSingleNod e(myXPath)
myNewDoc.LoadXm l(myXMLString)
myReturnNode = theXMLDocument. DocumentElement .InsertAfter(my NewDoc,_
myCurrentNode)

Return myCurrentNode.O uterXml
End Function

This is called in another place
Dim myPageInfoXML As New MYXMLCLASS
myPageInfoXML.s etPath("/") // sets myXPath
myPageInfoXML.a ddDeclaration()
myPageInfoXML.a ddNode("<test>b lah</test>")

I am not sure what you want to achieve but the XPath expression /
selects the root node which is the XML document itself in the DOM so I
don't think it makes much sense to try to call

Dim myCurrentNode As XmlNode =
theXMLDocument. SelectSingleNod e(myXPath)
myNewDoc.LoadXm l(myXMLString)
myReturnNode =
theXMLDocument. DocumentElement .InsertAfter(my NewDoc,_
myCurrentNode)

It is also not clear where you create a documentElement at all.

If you want to start from scratch to create a new XmlDocument by parsing
a string of XML markup then you can simply use the LoadXml method.
If you have a need after that to parse some snippet of XML markup in a
string to insert stuff in the document then use a DocumentFragmen t and
set its InnerXml e.g. (pseudo code)
Dim DocFrag as XmlDocumentFrag ment
DocFrag = theXMLDocument. CreateDocumentF ragment()
DocFrag.InnerXm l = "<test>blah </test>"
theXMLDocument. DocumentElement .AppendChild(Do cFrag)
--

Martin Honnen
http://JavaScript.FAQTs.com/

[Kael]

"Martin Honnen" wrote:

I am not sure what you want to achieve but the XPath expression /
selects the root node which is the XML document itself in the DOM so I
don't think it makes much sense to try to call

Dim myCurrentNode As XmlNode =
theXMLDocument. SelectSingleNod e(myXPath)
myNewDoc.LoadXm l(myXMLString)
myReturnNode =
theXMLDocument. DocumentElement .InsertAfter(my NewDoc,_
myCurrentNode)

It is also not clear where you create a documentElement at all.

If you want to start from scratch to create a new XmlDocument by parsing
a string of XML markup then you can simply use the LoadXml method.
If you have a need after that to parse some snippet of XML markup in a
string to insert stuff in the document then use a DocumentFragmen t and
set its InnerXml e.g. (pseudo code)
Dim DocFrag as XmlDocumentFrag ment
DocFrag = theXMLDocument. CreateDocumentF ragment()
DocFrag.InnerXm l = "<test>blah </test>"
theXMLDocument. DocumentElement .AppendChild(Do cFrag)
--

Martin Honnen
http://JavaScript.FAQTs.com/

I guess I striped it down too much. The idea is to insert nodes where ever I
need to with in the intance's 'theXMLDocument ' property. The 'myXPath'
property acts as a sort of cursor, so that when I call my 'addNode' (or any
method) the class instance has a point of reference to work from.

Ignore the DocumentElement in the statement... that was left over from
playing around with it.. although, I obviously don't understand it's
function too well.

I'll play around with the CreateDocumentF ragment to see if I can get this to
work.. and I may try doing a switch on node types (ie figuring out what
'myXPath' actually points to) and going from there.

If I'm still confusing.. sorry. I don't post very often.