fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Mit UINTEGER und FREEFILE

Uploader:	Sebastian
Datum/Zeit:	10.03.2013 14:05:56

TYPE tDatensatz

    Vorname As String * 6

    Alter As String * 2

END TYPE





Dim Anzahl As UInteger = 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"



Dim Dateihandle As Integer = freeFile

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

Put #Dateihandle, , Anzahl

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

    Put #Dateihandle, , Kartei(i)

Next i

Close #Dateihandle





' Jetzt wieder einlesen



Dateihandle = FreeFile

Dim WieViele As UInteger

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

Get #Dateihandle, , 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)

    If Not Eof(Dateihandle) Then  'Folgendes nur machen, wenn das Dateiende noch nicht erreicht ist!

        '(If-Abfrage relevant fuer den Fall, dass die gespeicherte Datensatz-Anzahl am Anfang falsch (zu hoch) war.)

        Get #Dateihandle, , Neu(i)

        'Konsolenausgabe:

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

    End If

Next i

Close #Dateihandle



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.