AtEndOfStream

Les propriétés de TextStream AtEndOfStream 'retourne True si le pointeur est placé à la fin du fichier, sinon il retourne faux.

Note: Cette propriété ne fonctionne qu'avec une TextStream ouvert en lecture.

Prenons un exemple.
Supposons que vous ayez un fichier texte (c: \ test.txt) avec le contenu suivant:

 



 Bonjour quel est votre nom?







 Mon nom est Marcel!

 

 DIM fs, t, x









 «J'ouvre une instance de l'OFS







 Set fs = Server.CreateObject ("Scripting.FileSystemObject")

 







 «Je ouverts en mode lecture







 ensemble T = fs.OpenTextFile ("c: \ test.txt", 1, false)









 «Je crée une boucle qui est arrêté à la fin du fichier







 faire pendant t.AtEndOfStream <> true



  



 x = t.Read (1)







 boucle









 «Je ferme tout







 t.Close







 Set T = Nothing







 Set fs = Nothing









 Vidéo moule "







 La sortie est:

 
 



 Le dernier caractère est:!