

(BEISPIEL1)  Ändern des Text-Inhaltes (Element.TextContent) eines Elementes
(BEISPIEL2)  Löschen des Text-Inhaltes (Element.TextContent) eines Elementes 
(BEISPIEL3)  Beachten Sie, dass die Festlegung der TextContent-Eigenschaft den *kompletten* Inhalt eines Knotens ersetzt, auch wenn er Kinder hat!

LINK: https://gambas-playground.proko.eu/?gist=3a3fd86a80d3c6207f5350ac3469cf39

Use "gb.xml"

Dim contents As String = "<xml>"
"<foo>"
"<p attr=\"1\">Hello</p>"
"<p attr=\"2\">Hi</p>"
"<p attr=\"3\">Greetings</p>"
"</foo>"
"</xml>"

Dim element As XmlElement
Dim doc As New XmlDocument
doc.FromString(contents)

(BEISPIEL1)
element = doc.GetElementsByTagName("p")[1] 'Get the second p element | Holen Sie sich das zweite p-Element
element.TextContent = "Hi everyone !" 'Change its content | Ändern Sie den Inhalt 
element.Value = "Hi everyone !" ' Alternative instruction | Alternative Anweisung 

Print doc.ToString(True)

Print "----------------------------------------------------------------------------------------------------------------"

(BEISPIEL2)
element.ClearChildren() 'The second p element is now empty
'Actually, element.TextContent = "" should work as well, but there is a bug. Oops. :)  FEHLER IN DER KOMPONENTE ??
Print doc.ToString(True)

Print "----------------------------------------------------------------------------------------------------------------"

'Also note that setting the TextContent property will replace a node's content, even if it has children:

(BEISPIEL3)
element = doc.GetElementsByTagName("foo")[0]
element.TextContent = "boop"
Print doc.ToString(True)

