XML / INI fil

XmlDocument boer vaere ret simpelt at bruge til formaalet.

Her er lidt til inspiration:

Dim controls_xml As New XmlDocument
Dim root As XmlNode = controls_xml.CreateElement("root")
controls_xml.AppendChild(root)
Dim itemsInRoot As XmlNode = controls_xml.CreateElement("item")
Dim tb1 As XmlNode = controls_xml.CreateElement("textbox1")
Dim tb2 As XmlNode = controls_xml.CreateElement("textbox2")
Dim tb3 As XmlNode = controls_xml.CreateElement("textbox3")
Dim tb4 As XmlNode = controls_xml.CreateElement("textbox4")
tb1.AppendChild(controls_xml.CreateTextNode(TextBox1.Text))
tb2.AppendChild(controls_xml.CreateTextNode(TextBox2.Text))
tb3.AppendChild(controls_xml.CreateTextNode(TextBox3.Text))
tb4.AppendChild(controls_xml.CreateTextNode(TextBox4.Text))
itemsInRoot.AppendChild(tb1)
itemsInRoot.AppendChild(tb2)
itemsInRoot.AppendChild(tb3)
itemsInRoot.AppendChild(tb4)
root.AppendChild(itemsInRoot)


controls_xml.InsertBefore(controls_xml.CreateXmlDeclaration("1.0", "UTF-8", "yes"), controls_xml.DocumentElement)
controls_xml.Save("controls.ini")

Det skaber en xml ala:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<root>
  <item>
    <textbox1>asd</textbox1>
    <textbox2>sdf</textbox2>
    <textbox3>dfg</textbox3>
    <textbox4>fgh</textbox4>
  </item>
</root>

Håber det kan bruges

kom udenom problemer ved at gøre følgende:

Dim fs As New FileStream("c:\config\filnavn.ini", FileMode.Create, FileAccess.Write)
Dim s As New StreamWriter(fs)
  s.WriteLine(Form3.TextBox1.Text)
  s.Close()

Så skal jeg bare åbne filen og læse hvad der står i det