Hallo zusammen,
Ich will in eine bereits bestehende *.xml Datei Datensätze schreiben, die ich vorher mittels einer InputBox eingebe.
Die Variablen werden ganz normal befüllt, allerdings werden dei Datensätze nicht die *xml Darei geschrieben.
Wäre super wenn mir da jemand helfen könnte.
Hier ein Ausschnitt der *.xml Datei, damit man einen ungefähren Eindruck davon erhällt, wo die Werte herkommen.
PS: xPath geht nicht, da ich hier mit VBs und nicht mit VB arbeite
Ich will in eine bereits bestehende *.xml Datei Datensätze schreiben, die ich vorher mittels einer InputBox eingebe.
Die Variablen werden ganz normal befüllt, allerdings werden dei Datensätze nicht die *xml Darei geschrieben.
Wäre super wenn mir da jemand helfen könnte.
VB.NET-Quellcode
- Sub DatensatzEingeben()
- Dim XMLDokument, XMLWurzel, XMLBenutzer, XMLBenutzerliste
- Dim XMLBenutzername, XMLVorname, XMLNachname, XMLGeburtsdatum, XMLAbteilungsnummer
- Set XMLDokument = CreateObject("Msxml.DOMDocument") 'Erzeuge XMLDokument
- XMLDokument.load("C:\Users\Admin\Desktop\WSH und VBS\CSV Dateien\BenutzerReal.xml")
- Set XMLBenutzer = XMLDokument.createElement("USER")
- XMLBenutzerliste.appendChild XMLBenutzer
- Set XMLBenutzername = XMLDokument.createElement("BENUTZERNAME")
- XMLBenutzername.Text = InputBox("Bitte hier den Benutzernamen eingeben", "Benutzername", "Benutzername", 2000, 2000)
- XMLBenutzer.appendChild XMLBenutzername
- Set XMLVorname = XMLDokument.createElement("VORNAME")
- XMLVorname.Text = InputBox("Bitte hier den Vornamen eingeben", "Vorname", "Vorname", 2000, 2000)
- XMLBenutzer.appendChild XMLVorname
- Set XMLNachname = XMLDokument.createElement("NACHNAME")
- XMLNachname.Text = InputBox("Bitte hier den Nachnamen eingeben", "Nachname", "Nachname", 2000, 2000)
- XMLBenutzer.appendChild XMLNachname
- Set XMLGeburtsdatum = XMLDokument.createElement("GEBURTSDATUM")
- XMLGeburtsdatum.Text = InputBox("Bitte hier das Geburtsdatum eingeben", "Geburtsdatum", "Geburtsdatum", 2000, 2000)
- XMLBenutzer.appendChild XMLGeburtsdatum
- Set XMLAbteilungsnummer = XMLDokument.createElement("ABTEILUNGSNUMMER")
- XMLAbteilungsnummer.Text = InputBox("Bitte hier die Abteilungsnummer eingeben", "Abteilungsnummer", "Abteilungsnummer", 2000, 2000)
- XMLBenutzer.appendChild XMLAbteilungsnummer
- XMLDokument.Save "C:\Users\Admin\Desktop\WSH und VBS\CSV Dateien\BenutzerReal.xml"
- End Sub
Hier ein Ausschnitt der *.xml Datei, damit man einen ungefähren Eindruck davon erhällt, wo die Werte herkommen.
XML-Quellcode
- <BENUTZER>
- <USERS>
- <USER>
- <BENUTZERNAME>benjaminbluemchen</BENUTZERNAME>
- <VORNAME>benjamin</VORNAME>
- <NACHNAME>bluemchen</NACHNAME>
- <GEBURTSDATUM>32.01.2005</GEBURTSDATUM>
- <ABTEILUNGSNUMMER>9</ABTEILUNGSNUMMER>
- </USER>
- <USER>
- <BENUTZERNAME>princessvalium</BENUTZERNAME>
- <VORNAME>princess</VORNAME>
- <NACHNAME>valium</NACHNAME>
- <GEBURTSDATUM>25.04.1832</GEBURTSDATUM>
- <ABTEILUNGSNUMMER>5</ABTEILUNGSNUMMER>
- </USER>
- <USER>
- <BENUTZERNAME>revoLutzer</BENUTZERNAME>
- <VORNAME>revo</VORNAME>
- <NACHNAME>lutzer</NACHNAME>
- <GEBURTSDATUM>88.08.1888</GEBURTSDATUM>
- <ABTEILUNGSNUMMER>12</ABTEILUNGSNUMMER>
- </USER>
- </USERS>
- </BENUTZER>
PS: xPath geht nicht, da ich hier mit VBs und nicht mit VB arbeite