Hallo Manfred,
in der Profanhilfe unter Blockread ist ein Beispiel.
Declare B#,Anzahl%,Recl%,Ende%
Let Recl% = 1638 ' setze hier die Satzlänge ein
Dim B#,Recl%
Assign #1,"TEST.DAT"
OpenRW #1
Let Ende% = 0
ClearList
WhileNot Ende%
Let Anzahl% = @BlockRead(#1,B#,0,Recl%)
IfNot (Anzahl% = Recl%) ' Dateiende
Let Ende% = 1
Else
' hier den Satz verarbeiten z.B.
AddString @String$(B#,0) ' Vorsicht, wenn $0 im String wird abgeschnitten!!!
EndIf
EndWhile
CloseRW #1
Dispose B#
@ListBox$("",2)
End
ich habe es nicht ausprobiert, aber so sollte es gehen. Du solltest schreiben mit welcher Profanversion Du arbeitest.
Mfg.
Gerhard.
|