|
Částečně vyřešeno, zapisování jsem vyřešil, jenže mi to napiše toto:
<adresa>Krátká 498, Brno</adresa>
<kontakt>474569321</kontakt>
<kdo jmeno="Honza Skočil" />
můj kód je takový to:
Dim root As XmlNode = doc.DocumentElement
Dim kdoE As XmlElement = doc.CreateElement("kdo")
Dim adrE As XmlElement = doc.CreateElement("adresa")
Dim konE As XmlElement = doc.CreateElement("kontakt")
If Not TextBox1.Text = "" And Not TextBox2.Text = "" And Not TextBox3.Text = "" Then
kdoE.SetAttribute("jmeno", TextBox1.Text)
adrE.InnerText = TextBox2.Text
root.InsertAfter(adrE, root.LastChild)
konE.InnerText = TextBox3.Text
root.InsertAfter(konE, root.LastChild)
root.InsertAfter(kdoE, root.LastChild)
doc.Save("data.xml")
Else
MsgBox("Musí být vyplněno jméno s přijmením", MsgBoxStyle.Critical, "")
End If
|