Imports System
Imports System.Xml.Serialization
Imports System.IO
 
Public Class Teilnehmer
    Public tnrNummer As Integer
    Public Person As String
    Public Punkte As Single
End Class
 
Public Class Kurs
    Public Tnliste As String = "D:\xmlKursTeilnehmer.xml"
 
    Public Shared Sub Main()
        Dim xt As New Kurs
        Dim p As New Teilnehmer
        p.tnrNummer = "1001"
        p.Person = "Maximilian"
        p.Punkte = "90"
 
        'Wie bekomme ich 2 weitere Personen dazu? Hier liegt jetzt noch mein 
       ' Problem[u]
        xt.xmlSpeichern(p)
 
 
        Dim p1 As Teilnehmer
        p1 = xt.xmlLesen
        Console.WriteLine("{0,15}{1,8}{2,15}", "Tnr", "Name", "Punkte")
        Console.WriteLine("{0,16}{1,13}{2,5}", p.tnrNummer, p.Person, p.Punkte)
 
        Console.ReadLine()
    End Sub
 
    Private Sub xmlSpeichern(ByVal p As Teilnehmer)
        Dim meineSerialisierer As New XmlSerializer(GetType(Teilnehmer))
        Dim sw As New StreamWriter(Tnliste)
        meineSerialisierer.Serialize(sw, p)
        sw.Close()
    End Sub
 
    Private Function xmlLesen() As Teilnehmer
        Dim meineSerialisierer As New XmlSerializer(GetType(Teilnehmer))
        Dim sr As New StreamReader(Tnliste)
        Dim p As Teilnehmer
        p = meineSerialisierer.Deserialize(sr)
        sr.Close()
        Return p
    End Function
End Class

MFG Gizmo

Option Strict On
Imports System.Xml.Serialization
Imports System.Collections.Generic
 
Public Class Kurs
    Public Tnliste As String = "F:\daten\xmlKursTeilnehmer.xml"
 
    Structure Teilnehmer
        Public tnrNummer As String
        Public Person As String
        Public Punkte As String
    End Structure
 
    Shared Personen As New System.Collections.Generic.List(Of Teilnehmer)
 
    Public Shared Sub Main()
 
        Dim xt As New Kurs
        Dim p As New Teilnehmer
        p.tnrNummer = "1001"
        p.Person = "Maximilian"
        p.Punkte = "90"
 
        Personen.Add(p)
 
        p.tnrNummer = "1002"
        p.Person = "Friedrich"
        p.Punkte = "82"
 
        Personen.Add(p)
 
        'Wie bekomme ich 2 weitere Personen dazu? Hier liegt jetzt noch mein 
        ' Problem
        xt.xmlSpeichern(Personen)
 
        Dim Personen2 As List(Of Teilnehmer)
        Personen2 = xt.xmlLesen
        Console.WriteLine("{0,15}{1,8}{2,15}", "Tnr", "Name", "Punkte")
        With Personen2
            For i As Integer = 0 To Personen2.Count - 1
                With .Item(i)
                    Console.WriteLine("{0,16}{1,13}{2,5}", .tnrNummer, .Person, _
                      .Punkte)
                End With
            Next i
        End With
 
        Console.ReadLine()
    End Sub
 
    Private Sub xmlSpeichern(ByVal personen As List(Of Teilnehmer))
        Dim meineSerialisierer As New XmlSerializer(GetType(List(Of _
          Teilnehmer)))
        Dim sw As New IO.StreamWriter(Tnliste)
        meineSerialisierer.Serialize(sw, personen)
        sw.Close()
    End Sub
 
    Private Function xmlLesen() As List(Of Teilnehmer)
        Dim meineSerialisierer As New XmlSerializer(GetType(List(Of _
          Teilnehmer)))
        Dim sr As New IO.StreamReader(Tnliste)
        Dim personen As List(Of Teilnehmer)
        personen = CType(meineSerialisierer.Deserialize(sr), List(Of _
          Teilnehmer))
        sr.Close()
        Return personen
    End Function
End Class

    Structure Teilnehmer
        Public tnrNummer As String
        Public Person As String
        Public Punkte As String
    End Structure

    Structure Adresse
        Public Person As String
        Public Strasse As String
        Public Ort As String
    End Structure

--
Bitte um Nachsicht - ich übe noch

    Private Sub xmlSpeichern(Of T)(ByVal obj As T)
        Dim meineSerialisierer As New XmlSerializer(GetType(T))
        Using sw As New IO.StreamWriter(Tnliste)
            meineSerialisierer.Serialize(sw, obj)
        End Using
    End Sub
 
    Private Function xmlLesen(Of T)() As T
        Dim meineSerialisierer As New XmlSerializer(GetType(T))
        Using sr As New IO.StreamReader(Tnliste)
            Return CType(meineSerialisierer.Deserialize(sr), T)
        End Using
    End Function

Personen2 = xt.xmlLesen(Of List(Of Teilnehmer))()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

--
Bitte um Nachsicht - ich übe noch

Imports System.Xml.Serialization
 
Public Class XmlSer
    Public Shared Sub xmlSpeichern(Of T)(ByVal obj As T, tnListe As String)
        Dim meineSerialisierer As New XmlSerializer(GetType(T))
        Using sw As New IO.StreamWriter(tnListe)
            meineSerialisierer.Serialize(sw, obj)
        End Using
    End Sub
 
    Public Shared Function xmlLesen(Of T)(tnListe As String) As T
        Dim meineSerialisierer As New XmlSerializer(GetType(T))
        Using sr As New IO.StreamReader(tnListe)
            Return CType(meineSerialisierer.Deserialize(sr), T)
        End Using
    End Function
End Class

        XmlSer.xmlSpeichern(Personen, Tnliste)
        ....
        Personen2 = XmlSer.xmlLesen(Of List(Of Teilnehmer))(Tnliste)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Imports System.Xml.Serialization
    Public Class toolbox
 
        Public Shared Sub xmlSpeichern(Of T)(ByVal obj As T, ByVal DateiXML As _
          String)
            Dim xml As New XmlSerializer(GetType(T))
            Using sw As New IO.StreamWriter(DateiXML)
                xml.Serialize(sw, obj)
            End Using
        End Sub
 
        Public Shared Function xmlLesen(Of T)(ByVal DateiXML As String) As T
            Dim xml As New XmlSerializer(GetType(T))
            Using sr As New IO.StreamReader(DateiXML)
                Return CType(xml.Deserialize(sr), T)
            End Using
        End Function
 
 
    End Class

Imports Toolbox.Toolbox
Public Class frmDemoTest
 
    Public Structure Daten
        Public Name As String
        Public Firma As String
        Public RegCode As String
        Public ID As String
    End Structure
 
    Public Shared _Daten As New List(Of Daten)
 
    Public Sub frmDemoTest_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        '  Einstellungen speichern
        Dim tools As New Toolbox.Toolbox
        Dim g As New Daten
        g.Firma = "Tester GmbH"
        g.Name = "Test Name"
        g.ID = "Test ID"
        g.RegCode = "Test Code"
 
        _Daten.Add(g)
 
        tools.xmlSpeichern(_Daten, "XMLTest.xml")
 
    End Sub
End Class

--
Bitte um Nachsicht - ich übe noch

--
Bitte um Nachsicht - ich übe noch

--
Bitte um Nachsicht - ich übe noch

--
Bitte um Nachsicht - ich übe noch

--
Bitte um Nachsicht - ich übe noch

Public Shared Sub xmlSpeichern(Of T As IList)_
        (ByVal obj As T, ByVal DateiXML As String)
 
     Dim xml As New XmlSerializer(GetType(T))
 
     Using fs As New IO.FileStream(DateiXML, _
         IO.FileMode.OpenOrCreate, IO.FileAccess.Write, IO.FileShare.None)
         xml.Serialize(fs, obj)
     End Using
End Sub

--
Bitte um Nachsicht - ich übe noch