LOC

FreeBASIC-Referenz » Alphabetische Befehlsreferenz » L » LOC

Syntax: LOC (Dateinummer)
Typ: Funktion
Kategorie: Datei

LOC gibt die Position des Zeigers innerhalb einer mit OPEN geöffneten Datei zurück.

Beispiel:

Dim As UByte dummy, nr=FreeFile
DIM AS INTEGER firstPos
OPEN "mydata.ext" FOR BINARY AS #nr

DO UNTIL LOC(nr) = LOF(nr)
   GET #nr, , dummy
   IF dummy = ASC("A") THEN EXIT DO
LOOP
firstPos = LOC(nr)
If firstPos = LOF(nr) THEN firstPos = 0
CLOSE #nr

IF firstPos THEN
   PRINT "In dieser Datei kommt 'A' zum ersten ";
   PRINT "Mal an Byte " & firstPos &" vor."
ELSE
   PRINT "In dieser Datei kommt 'A' nie vor."
END IF
SLEEP

Unterschiede zu QB:
Die Berechnung bei sequentiellen Dateimodi unterscheidet sich in QB etwas.

Siehe auch:
OPEN, LOF, EOF, SEEK (Funktion), SEEK (Anweisung), Dateien (Files)