fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Datensätze mit TYPE und BINARY, mit Dateiheader

Uploader:	Sebastian
Datum/Zeit:	10.03.2013 14:01:09

TYPE tDatensatz

    Vorname As String * 6

    Alter As String * 2

END TYPE





Dim Anzahl As Integer = 3

Dim Kartei(1 To Anzahl) As tDatensatz





Kartei(1).Vorname = "Gundula":       Kartei(1).Alter = "50"

Kartei(2).Vorname = "Theoleptikus":  Kartei(2).Alter = "35"

Kartei(3).Vorname = "Gunilla":       Kartei(3).Alter = "25"



Open ExePath + "/verw2" For Binary As #1

Put #1, , Anzahl

For i As Integer = LBound(Kartei) To UBound(Kartei)

    Put #1, , Kartei(i)

Next i

Close #1





' Jetzt wieder einlesen



Dim WieViele As Integer

Open ExePath + "/verw2" For Binary As #1

Get #1, , WieViele

Print WieViele & " Datensaetze gefunden! Lege entsprechend grosses Array an."

Dim Neu(1 To WieViele) As tDatensatz

For i As Integer = LBound(Neu) To UBound(Neu)

    Get #1, , Neu(i)

    'Konsolenausgabe:

    Print Neu(i).Vorname; " "; Neu(i).Alter

Next i

Close #1



Sleep

End

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.