AtEndOfStream

Свойства TextStream AtEndOfStream 'возвращает Истина, если указатель находится в конце файла, в противном случае возвращается False.

Примечание: Это свойство будет работать только с TextStream открыт для чтения.

Давайте возьмем пример.
Предположим, у вас есть текстовый файл (C: \ test.txt) со следующим содержанием:

 



 Привет как тебя зовут?







 Меня зовут Марчелло!

 

 тусклый фс, т, х









 "Я открываю один экземпляр FSO







 Установить фс = Server.CreateObject ("Scripting.FileSystemObject")

 







 "Я открыт в режиме чтения







 Множество Т = fs.OpenTextFile ("C: \ test.txt", 1, ложь)









 "Я создать цикл, который останавливается в конце файла







 делать, пока t.AtEndOfStream <> истинной



  



 t.Read = х (1)







 петля









 "Я закрываю все







 t.Close







 Положим Т = Nothing







 Установить фс = Nothing









 "Плесень видео







 Выход есть:

 
 



 Последний символ!