Xml mit VB in .net

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von dingsda.

    Xml mit VB in .net

    Hallo VB-Paradise,

    wer kann mir bitte die Verwendung von Xml in .net ein bisschen erklären?

    was ich bisher verstanden hab:

    man erstellt ein XmlDocument-Objekt dann kann man mit Load eine xml-Datei einlesen und mit save die Xml-Datei wieder abspeichern.

    VB.NET-Quellcode

    1. Dim xmlDoc As New Xml.XmlDocument
    2. xmlDoc.Load(filename)
    3. xmlDoc.Save(filename)


    Wenn ich aber überhaupt noch gar keine xml-Datei habe sondern erst eine im VB-Code erstellen will... wie macht man dann das?

    Wie kann man z.B. ein Xml-Tag anlegen? mit den Tagnamen "dings" und dem Wert "123"

    Wie kann man ein Attribut zu diesem Xml-Tag anlegen? mit den Attributnamen "attr" und dem Wert "456"

    z.B. so:

    (dings attr="456")123(/dings)

    die runden Klammern sollen hier jezte mal eckig sein.

    bin mir nicht sicher ob ich die Begriffe richtig verwende...?

    was ist eigentlich der Unterschied zwischen einem XmlNode, XmlAttribut, XmlElement und XmlTextNode??

    wie kann man den Xml-Text formatiert in einer TextBox ausgeben, also so dass die Elemente richtig eingerückt erscheinen und nicht nur als "Suppe" alles in einer Zeile.

    Vielen Dank für alle Eure Erklärungen

    dingsda

    Hallo dingsda,

    schau Dir am besten mal dieses kleine Tutorial an. Dort sind die Grundlagen erklärt.

    Knoten mit Attributen schreiben:

    VB.NET-Quellcode

    1. With XMLWriter
    2. .WriteStartElement("dings")
    3. .WriteAttributeString("attr_1", "value_1")
    4. .WriteAttributeString("attr_2", "value_2")
    5. .WriteEndElement()
    6. End With


    Knoten mit Elementen schreiben:

    VB.NET-Quellcode

    1. With XMLWriter
    2. .WriteStartElement("dings")
    3. .WriteElementString("attr_1", "value_1")
    4. .WriteElementString("attr_2", "value_2")
    5. .WriteEndElement()
    6. End With


    Die Beispiele habe ich nicht getestet! Sollten so aber funktionieren.
    Attributen stehen immer mit in den "< >". Elemente stehen hingegen zwischen "> <". Teste einfach mal ein wenig mit dem Tutorial, dann passt das schon.


    Viele Grüße,
    Pry
    Dateien umbenennen und nummerieren - nichts leichter als das!

    Basic File Renamer: 100%

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Pry“ ()

    singu schrieb:

    XmlDocument ist nach meiner Meinung besser, weil da hat man alles wichtige drin und man benötigt nur eine Klasse.
    Das kommt halt auch immer drauf an, welchen Umfang das ganze annehmen soll. Habe XMLDocument auch schon verwendet. Klappt letztlich beides.
    Der Eintrag im Openbook ist natürlich ebenso sehenswert, keine Frage.
    Dateien umbenennen und nummerieren - nichts leichter als das!

    Basic File Renamer: 100%

    Hallo Pry und singu, vielen dank für die infos und die guten Links. ich hab es jetzt mal über das XmlDocument gelöst. Und zur Vereinfachung der Erzeugung des XmlDocuments hab ich mir ne Klasse gebaut XmlStack

    VB.NET-Quellcode

    1. Dim myDoc As Xml.XmlDocument
    2. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. myDoc = New Xml.XmlDocument
    4. myDoc.AppendChild(myDoc.CreateXmlDeclaration("1.0", "iso-8859-1", ""))
    5. End Sub
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. Dim XStack As New XmlStack(myDoc, "MyDoc")
    9. With XStack
    10. .PushElement("Dings").AddAttribute("da", "456").SetText("Olala")
    11. .PopElement()
    12. .PushElement("Trara").AddAttribute("da", "12").AddAttribute("dada", "34")
    13. .PushElement("Dings", "da")
    14. .PopElement()
    15. .PushElement("Etc").AddAttribute("king", "23").AddAttribute("fung", "45")
    16. TextBox1.Text = .OuterXml
    17. End With
    18. End Sub
    20. Public Class XmlStack
    21. Private _doc As System.Xml.XmlDocument
    22. Private _stack As New System.Collections.Generic.Stack(Of System.Xml.XmlNode)
    23. Private _currentNode As System.Xml.XmlNode
    24. Public Sub New(ByVal newXmlDoc As System.Xml.XmlDocument, ByVal docRootElementName As String)
    25. _doc = newXmlDoc
    26. _currentNode = _doc
    27. Me.PushElement(docRootElementName)
    28. End Sub
    29. Public Function PushElement(ByVal aname As String) As XmlStack
    30. Dim newNode As Xml.XmlNode = _doc.CreateElement(aname)
    31. _currentNode.AppendChild(newNode)
    32. _currentNode = newNode
    33. _stack.Push(_currentNode)
    34. Return Me
    35. End Function
    36. Public Function PushElement(ByVal aname As String, ByVal aText As String) As XmlStack
    37. Me.PushElement(aname)
    38. _currentNode.InnerText = aText
    39. Return Me
    40. End Function
    41. Public Sub PopElement()
    42. _stack.Pop()
    43. _currentNode = _stack.Peek
    44. End Sub
    45. Public Function AddAttribute(ByVal aname As String, ByVal avalue As String) As XmlStack
    46. Dim newAttrib As Xml.XmlAttribute = _doc.CreateAttribute(aname)
    47. newAttrib.Value = avalue
    48. _currentNode.Attributes.Append(newAttrib)
    49. Return Me
    50. End Function
    51. Public Function SetText(ByVal aText As String) As XmlStack
    52. _currentNode.InnerText = aText
    53. Return Me
    54. End Function
    55. Public Function OuterXml() As String
    56. Return _doc.OuterXml
    57. End Function
    58. End Class

    doch irgendwie glaub ich langsam dass das mit dem XmlWriter doch ne sehr gute Idee wäre.
    ich hab den noch nicht so ganz begriffen.
    wie kann man mit dem XmlWriter den Xml-Text eines XmlDokuments indented und formatiert in einer TextBox ausgeben?
    könnt ich mir nochmal helfen?
    also irgendwie so?
    myXmlDoc.WriteContentTo(myXmlWriter)
    tschau
    dingsda

    Xml-Datei mit Einrückung formatiert in TextBox ausgeben

    OK, vielleicht war die Frage nicht gut gestellt; habs dann selber rausgefunden, war ja nicht so schwer ;)
    der Vollständigkeit halber hier noch die Antwort auf meine Frage

    VB.NET-Quellcode

    1. Public Sub ShowFormattedXmlDoc()
    2. Dim sw As New System.IO.StringWriter
    3. Dim xw As New System.Xml.XmlTextWriter(sw)
    4. xw.Formatting = System.Xml.Formatting.Indented
    5. xw.Indentation = 3
    6. myDoc.WriteContentTo(xw)
    7. TextBox1.Text = sw.ToString
    8. sw.Dispose()
    9. End Sub

    Gruß
    dingsda

  • Benutzer online 1

    1 Besucher

  • Tags

  • 3 Benutzer haben hier geschrieben

Facebook
Telefonspende