fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

6-Byte-String-Datensätze lesen

Uploader:	Sebastian
Datum/Zeit:	10.03.2013 14:34:36

Dim Dateihandle As Integer = FreeFile



Dim WieViele As Single

Dim Freiraum As String = Space(2)

Dim Datensatz As String = Space(6)



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

Get #Dateihandle, , WieViele

Get #Dateihandle, , Freiraum



Print "Die Datensatz-Anzahl als Gleitkomma-SINGLE-Variable gemaess IEEE 754: " & WieViele



'Array entsprechend dimensionieren:

Dim AlleDatensaetze(1 To WieViele) As String



For i As Integer = 1 To WieViele

    If Eof(Dateihandle) Then

        Print "Fehler: Das Dateiende wurde bereits erreicht, obwohl noch nicht die vorgesehene Anzahl"

        Print "Datensaetze eingelesen wurde."

        Exit For  'Schleife verlassen

    Else

        '6 Zeichen langen Datensatz einlesen:

        Get #Dateihandle, , Datensatz

        Print "Datensatz " & i & " = " & chr(34) & Datensatz & chr(34)

        'Gerade gelesenen Datensatz ins Array schreiben an Position i:

        AlleDatensaetze(i) = Datensatz

    End If

Next i



Close #Dateihandle



Print "----"

Print "Beliebige Taste zum Beenden druecken."

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.