FileSeek()

Syntax

FileSeek(NeuePosition)

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

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

Unterstützte OS

All