Manuel du langage de script Desktop Management › Fonctions › Fonctions de contenu du fichier › EOF : Rechercher le caractère fin de fichier

EOF : Rechercher le caractère fin de fichier

Valide sur les plates-formes NetWare, Symbian OS, UNIX, Windows et Windows CE

La fonction EOF détermine si la fin du fichier a été atteinte.

Format de la fonction :

Eof(handle as Integer) as Boolean

descripteur

Identifie un descripteur de fichier.

La fonction renvoie True si la fin du fichier spécifié a été atteinte ; si ce n'est pas le cas, elle renvoie False.

Remarque : EOF renvoie True lorsque la dernière opération de lecture a atteint la fin du fichier. La fonction ne détermine pas à l'avance si une commande de lecture suivante atteint la fin d'un fichier.

Exemple :

Cet exemple crée une copie de sauvegarde du fichier CONFIG.SYS.

Dim fIn, fOut as integer   ' Déclarez les descripteurs de fichier
Dim OneLine as string     ' Chaîne devant tenir sur une ligne

Rem Ouvrez d'abord le fichier d'entrée...

fIn=OpenFile("C:\CONFIG.SYS",O_READ)
if fIn<0 then
	MessageBox("Impossible d'ouvrir le fichier d'entrée","Erreur")
	Goto End
End if

Rem ...Ensuite, créez le fichier de sortie...

fOut=CreateFile("C:\CONFIG.BAK")
if fOut<0 then
	MessageBox("Impossible de créer le fichier de sortie","Erreur")

CloseFile(fIn)
	Goto End
End if

Rem ...Copiez les lignes jusqu'à ce qu'il n'en reste plus...

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

Rem ...Refermez les fichiers et indiquez la réussite de l'opération.

CloseFile(fIn)
CloseFile(fOut)
MsgBox("Une copie de sauvegarde du fichier CONFIG.SYS a été créée","MonScript",MB_OK)

end: