Sub Main()
        Dim list As New List(Of String)
        list.Add("hallo")
        list.Add("welt")
        list.Add("!")
 
        ' Liste schreiben:
        WriteList2XML("C:\MeineListe.txt", list)
 
        list.Clear() ' Liste leeren und wieder laden:
 
        list = ReadListFromXML("C:\MeineListe.txt")
    End Sub
 
    Public Sub WriteList2XML(ByVal file As String, ByVal list As List(Of _
      String))
        Dim xw As New Xml.XmlTextWriter(file, System.Text.Encoding.Default)
        xw.WriteStartDocument()
        xw.WriteStartElement("items")
        For Each item As String In list
            xw.WriteElementString("it", item)
        Next
        xw.WriteEndElement()
        xw.WriteEndDocument()
        xw.Close()
    End Sub
 
    Public Function ReadListFromXML(ByVal file As String) As List(Of String)
        Dim l As New List(Of String)
        Dim xd As New Xml.XmlDocument
        xd.Load(file)
        For Each item As Xml.XmlNode In xd.ChildNodes(1)
            l.Add(item.Value)
        Next
        Return l
    End Function

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co