dotNETportal.cz

Čá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

Omlouvám se za Triplepost, ale vyřešil jsem to, stačilo si to pořadně přečíst...