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 | 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 |