FileSeek()

Syntax

FileSeek(#Datei, NeuePosition.q)

Ändert den Lese/Schreib - Zeiger innerhalb der '#Datei' auf die angegebene 'NeuePosition'. Dieser Parameter muss in Bytes angegeben werden.

Beispiel:

  file$ = OpenFileRequester("Datei auswählen...","","Text (.txt)|*.txt|All files (*.*)|*.*",0)
  If file$
    If ReadFile(0, file$) 
      length = Lof(0)                       ; ermitteln der Dateilänge
      FileSeek(0, length - 10)              ; setzen des Zeigers auf 10 Zeichen vor Ende der Datei
      Debug "Position: " + Str(Loc(0))      ; anzeigen der aktuellen Zeigerposition
      *MemoryID = AllocateMemory(10)        ; reservieren des benötigten Speichers für 10 Bytes
      If *MemoryID
        bytes = ReadData(0, *MemoryID, 10)  ; einlesen der letzten 10 Zeichen in der Datei
        Debug PeekS(*MemoryID)
      EndIf
      CloseFile(0)
    EndIf
  EndIf  

Unterstützte OS

Alle