Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 242980 (4416)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Lesen aus einer Datei in einer festen Länge
Manfred Loibl
| Datum:13.05.02 17:32 (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 (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 (gp2@gmx.de) |
Vielen Dank für deine schnelle Hilfe Manfred Loibl

| Zurück zur Übersicht