Desktop Management Scripting-Sprache › Funktionen › Funktionen für den Dateiinhalt › EOF - Suchen nach dem Dateiende

EOF - Suchen nach dem Dateiende

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

Die Funktion "EOF" ermittelt, ob das Ende der Datei erreicht wurde.

Diese Dateiinhaltsfunktion hat das folgende Format:

Eof(handle as Integer) as Boolean

handle

Bezeichnet das Datei-Handle.

Die Funktion gibt den Wert TRUE zurück, wenn das Ende der angegebenen Datei erreicht wurde. Andernfalls wird FALSE zurückgegeben.

Hinweis: Die Funktion "EOF" gibt den Wert TRUE zurück, wenn beim letzten Lesevorgang das Ende der Datei erreicht wurde. Es wird jedoch nicht im Voraus geprüft, ob das Dateiende beim nächsten Lesebefehl erreicht wird.

Beispiel: Funktion "EOF"

In diesem Beispiel wird eine Sicherungskopie der Datei "CONFIG.SYS" erstellt.

Dim fIn, fOut as integer   ' Declare file handles
Dim OneLine as string     ' String to hold one line

Rem First open the Input file...

fIn=OpenFile("C:\CONFIG.SYS",O_READ)
if fIn<0 then
	MessageBox("Eingabedatei kann nicht geöffnet werden","Fehler")
	Goto End
End if

Rem ...Then create the output file...

fOut=CreateFile("C:\CONFIG.BAK")
if fOut<0 then
	MessageBox("Ausgabedatei kann nicht geöffnet werden","Fehler")

CloseFile(fIn)
	Goto End
End if

Rem ...Copy lines until none left...

while Not(Eof(fIn))
	if ReadFile(fIn,OneLine) then WriteFile(fOut,OneLine)
wend

Rem ...Close Files, and signal success.

CloseFile(fIn)
CloseFile(fOut)
MsgBox("Eine Sicherungskopie der Datei CONFIG.SYS wurde erstellt","MyScript",MB_OK)

end: