Desktop Management Scripting-Sprache › Funktionen › Funktionen für den Dateiinhalt › SeekFile - Ändern der aktuellen Position in einer geöffneten Datei

SeekFile - Ändern der aktuellen Position in einer geöffneten Datei

Gültig für NetWare, Symbian OS, UNIX, Windows und Windows CE.

Die Funktion "SeekFile" verlagert die aktuelle Position in einer geöffneten Datei.

Diese Dateiinhaltsfunktion hat das folgende Format:

Seekfile(handle as integer, position as integer) as Boolean

handle

Gibt ein von einem vorhergehenden Aufruf zurückgegebenes Handle an.

position

Gibt die neue Position in der Datei an. Mit 0 wird die Position an den Anfang der Datei gesetzt. Der nächste Lese- bzw. Schreibvorgang findet an der neuen Position innerhalb der Datei statt.

Bei erfolgreichem Abschluss gibt die Funktion TRUE zurück, andernfalls FALSE.

Beispiel: Funktion "SeekFile"

'	Update a file at the 4th double word. set it to 0.
Dim fHandle as integer

fHandle = OpenFile("out5.a", O_UPDATE)
if (fHandle = -1) then
	Print("OpenFile(""out5.a"", O_UPDATE) failed.")
	exit
endif
if Not(SeekFile(fHandle, 16)) then
	Print("SeekFile(fHandle, 16) failed.")
	exit
endif
if Not(WriteFile(fHandle, 0)) then
	Print("WriteFile(fHandle, 0) failed.")
	exit
endif
CloseFile(fHandle)