Probleme mit XML

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Schay.

    Probleme mit XML

    Moin,

    ich komme einfach nicht drauf, wie ich eine Variable in eine XML schreiben kann.

    In dem Folgenden code werden zwar schon die werte die ich im code eingeben habe in die xml geschrieben jedoch bekomme ich es nicht hin das z.b. variable a als dateiname genommen wird und z.b. variable b anstatt von person.

    VB.NET-Quellcode

    1. Public Class Form1Public a, b As String
    4. Private Sub XMLWriter() Handles button1.click
    5. a = TextBox1.Text
    6. B = "irgendwas"
    7. ' Auswahl einer Kodierungsart fr die Zeichenablage Dim enc As New System.Text.UnicodeEncoding
    8. ' XmlTextWriter-Objekt fr unsere Ausgabedatei erzeugen: Dim XMLobj As Xml.XmlTextWriter _
    9. = New Xml.XmlTextWriter("quicky.xml", enc)With XMLobj
    10. ' Formatierung: 4er-Einzge verwenden
    11. .Formatting = Xml.Formatting.Indented
    12. .Indentation = 4
    13. ' Dann fangen wir mal an:
    14. .WriteStartDocument()
    15. ' Beginn eines Elements "Personen". Darin werden wir mehrere
    16. ' Elemente "Person" unterbringen. .WriteStartElement("Personen")
    17. ' Hier kommt das erste Element "Person". Eine Person hat
    18. ' in unserem einfachen Beispiel einen Titel, einen Nach-
    19. ' namen und einen Vornamen. Als Demo soll uns das gengen.
    20. .WriteStartElement("Person") ' <Person .WriteAttributeString("Titel", "Dr.")
    21. .WriteAttributeString("Name", "Meyer").WriteAttributeString("Vorname", "Hans")
    22. .WriteEndElement() ' Person />
    23. ' Hier kommt (noch immer im Element "Personen" das zweite
    24. ' Element "Person".
    25. .WriteStartElement("Person") ' <Person .WriteAttributeString("Titel", "")
    26. .WriteAttributeString("Name", "Schmidt").WriteAttributeString("Vorname", "Carlos")
    27. .WriteEndElement() ' Person />
    28. ' Nachdem das Element "Personen" zwei Elemente "Person"
    29. ' erhalten hat, beenden wir die Ausgabe fr "Personen"...
    30. .WriteEndElement() ' </Personen>
    31. ' ... und schlieáen das XML-Dokument (und die Datei)
    32. .Close() ' Document
    33. End WithEnd Sub
    34. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    36. ' Wir ben”tigen einen XmlReader fr das Auslesen der XML-Datei Dim XMLReader As Xml.XmlReader _
    37. = New Xml.XmlTextReader("quickie.xml")
    38. ' Es folgt das Auslesen der XML-Datei With XMLReader
    39. Do While .Read ' Es sind noch Daten vorhanden
    40. ' Welche Art von Daten liegt an? Select Case .NodeType
    41. ' Ein Element Case Xml.XmlNodeType.Element
    42. label1.text = ("Es folgt ein Element vom Typ " & .Name)
    43. ' Alle Attribute (Name-Wert-Paare) abarbeiten
    44. If .AttributeCount > 0 Then
    45. ' Es sind noch weitere Attribute vorhanden
    46. While .MoveToNextAttribute ' n„chstes label1.text = ("Feldname: " & .Name & _
    47. " -> " & _"Feldwert: " & .Value)
    48. End While
    49. End If
    50. ' Ein Text Case Xml.XmlNodeType.Text
    51. label1.text = ("Es folgt ein Text: " & .Value)
    52. ' Ein Kommentar Case Xml.XmlNodeType.Comment
    53. label1.text = ("Es folgt ein Kommentar: " & .Value)
    54. End Select
    55. Loop ' Weiter nach Daten schauen
    56. .Close() ' XMLTextReader schlieáen
    57. End WithEnd Sub
    58. End Class

    Kann mir jemand sagen wie das geht bitte ;( ich bin am verzweifeln.
    Vielen Dank im Voraus
    Viele Grüße
    Schay

    Schay schrieb:

    ich bin am verzweifeln.

    Abgesehen davon, dass du den Forum-Editor nicht auf "Quellcode" Ansicht geschaltet hast, wodurch dein Quellcode leider bis zur Unleserlichkeit fehlformatiert wurde, hast du bislang folgendes gemacht:
    XML Tutorial (voll dokumentiert!) per Copy und Paste eingefügt. Zwei Variablen dazugesetzt und dann ... nix mehr.
    Wie wäre es denn, wenn du dir mal die Kommentarzeilen durchliest? Denn dan würdest du - nach Einschaltung deines Hirns - ggfs schnell selbst darauf kommen, wo du was machen musst.
    Kommst du nicht drauf, empfiehlt es sich, erstmal mit was einfacherem anzufangen, da dir offensichtlich noch eine Menge Grundlagen fehlen.


    Ich bin ja am lesen und selber machen !
    Hab es jetzt auch geschafft hier mit schreibe ich ja eine xml-datei

    VB.NET-Quellcode

    1. Dim enc As New System.Text.UnicodeEncoding
    2. Dim XMLobj As Xml.XmlTextWriter _= New Xml.XmlTextWriter(varfilename & ".xml", enc)

    nur wie kann ich die jetzt z.b. in c:/abcd/ schreiben ?(