Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 242980 (4416)
  Suchen
 Zurück zur Übersicht
 AutorThema: Lesen aus einer Datei in einer festen Länge
Manfred Loibl
Datum:13.05.02 17:32 Antwortenals Email verschicken (gp2@gmx.de) 


Wer kann mir helfen und mir ein paar Zeilen schreiben, wie
aus einer vorhandenen Datei (z.B. daten.dat) eine gewisse Anzahl von Byts lesen kann . (z.B. 1638 Byt = 1 Adresse ). Diese Datensätze sollte dann in eine sortiere Listbox eigelesen werden und zur Weiterverarbeitung bereit stehen.

Ich bedanke mich bereits im voraus

MFG
Manfred Loibl


Gerhard Putschalka
Datum:13.05.02 17:59 Antwortenals Email verschicken (g.putschalka@utanet.at) 


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.


Manfred Loibl
Datum: 14.05.02 18:49 Antwortenals Email verschicken (gp2@gmx.de) 


Vielen Dank für deine schnelle Hilfe

Manfred Loibl


 Zurück zur Übersicht