Private Type MeinTest
    Signature as String * 2
    TestInteger as Integer
    TestLong as Long
    TestStringShort as String * 16
    TestStringText as String
End Type
.....
Private Function LoadFile(ByVal Path as String) as MeinTest
    dim ff as integer
    ff = FreeFile
    open Path for Binary Access Read As #ff
    Get #ff, ,LoadFile ' Lade die Daten aus der Datei
    close ff
End Function
 
Private Sub SaveFile(ByVal Path as string, ByVal myData as MeinTest)
    dim ff as integer
    ff = FreeFile
    open Path for Binary Access Write As #ff
    Put #ff,, MyData ' Schreibe Daten in Datei
    close #ff
End Sub
 
Private Sub TesteMich()
    Dim Test1 as MeinTest
    Dim Test2 as MeinTest
 
    ' Ein par Einträge vornehmen
    Test1.Signature = "ZM"
    Test1.TestInteger = 91442
    Test1.TestLong = 1048576243
    Test1.TestStringShort = "Max. 16 Zeichen!"
    Test1.TextStringText = "Hier können so viele Zeichen wie gewollt rein"
 
    ' Nun Test1 Speichern
    Call SaveFile("c:\MeinTest.ooo", Test1)
 
    ' Und nun Die Datei in Test2 einladen
    Test2 = LoadFile("c:\MeinTest.ooo")
 
    ' Zum Testen ein par wenige Werte Ausgeben
    Call MsgBox(Test1.Signature & vbCrLf & Test1.TestInteger & vbCrLf & _
      Test1.TestStringText)
End Sub

________
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

<Serializable()> _
Private Structure MeinTest
    Signature as String 'soviele Zeichen, wie wir wollen
    TestInteger as Integer
    TestLong as Long
    TestStringShort as String 'soviele Zeichen, wie wir wollen
    TestStringText as String
End Structure

Serializer.Serialize(Of MeinTest)("C:\MeinTest.ooo", Test1)

Test2 = Serializer.DeSerialize(Of MeinTest)("C:\MeinTest.ooo")

________
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

<Serializable()> _
Public Class clsItem
    Private myName As String
    Private myQuality As String
    Private myData As New List(Of String)
    Private myRAWData As New Dictionary(Of String, String)
    ....
 
    Public Shared Items As List(Of clsItem)
 
    Private Shared dataPath As String = _
    Path.Combine(Application.StartupPath, "Items.dat")
 
    Public Sub New()
        ' Erstellen einer neuen, leeren List(Of T)
        Items = New List(Of clsItem)
    End Sub
 
    Public Sub Save()
        ' Aufrufen der generischen Serialize-Funktion für 
        ' die Klasse Kontoverwaltung
        Serializer.Serialize(Of clsItem)(dataPath, Me)
    End Sub
 
    Public Shared Function Load() As clsItem
        ' Dadurch, dass die Klasse "Sub New()" aufweist, kann die 
        ' Serializer-Klasse, wenn keine Datei vorhanden ist, 
        ' eine DefaultInstance zurückgeben.
        Return Serializer.DeSerialize(Of clsItem)(dataPath)
    End Function
 
 
   Public Property Name() As String
        Get
            Return myName
        End Get
        Set(ByVal value As String)
            myName = value
        End Set
    End Property
 
    ......