Lade...
 

CX_ASCII_FILE::Seek

CX_ASCII_FILE::Seek

Beschreibung:

Diese Funktion sucht den zu einem Schlüssel gehörenden Eintrag in der

Datei. Dabei wird die Suche entweder sequentiell oder aber über die Index-Datei durchgeführt, je nachdem, ob diese existiert. Wird der Satz mit dem entsprechenden Schlüssel gefunden, so wird der Datei-Zeiger auf diesen positioniert, ansonsten steht er auf dem Ende der Datei.

Code-Beispiel:

Define(ReadVar)
    CreateTransObject(CX_ASCII_FILE) -> file
    "tstvar.dat" file Put(fileName)
    "," file Call(SetFieldSeparator)
    "\n" file Call(SetRecordSeparator)
    1 file Call(SetKey)
    .....// Datei einlesen
    "Aleph" -> key
    key file Call(Seek)
    if Wiki-Anhänge sind deaktiviert.
    else SeekError

    "epsilon" -> key
    key file Call(Seek)
    if Wiki-Anhänge sind deaktiviert.
    else SeekError
;
Define(SeekError)
    key String("Seek('%s') failed") Attention;

Stack
Stack Position Objekttyp Kurzbeschreibung
Stack(In) Top CX_ASCII_FILE die Datei
Top-1 VECTOR<STRING> der Schlüssel des Eintrags
Top-2 VECTOR<INTEGER> die Nummern der Schlüssel-Felder
Stack(Out) Top INTEGER der Wahrheitswert, der anzeigt, ob der Eintrag gefunden wurde
Funktionsaufruf: Call(Seek)