| |
|
|
| | Нужно построчно почтать и обработать текстовый файл.
Начал я резво:
Dim FSO As FileSystemObject
Dim TS As File
Set FSO = New Scripting.FileSystemObject
Set TS = FSO.OpenAsTextStream(GLB_PATH_SC1, ForReading)
Как теперь создать цикл
Do While Not EOF(TS)???? ругается access - не верная строка
............
Loop
похоже нашёл - Do While TS.AtEndOfLine <> True ' пока не достигнут курсором конец...  | |
| |
| |
| |
|
|
| | do while Not TS.AtEndOfStream | |
| |
| |
| |
|
|
| | Это - идентично - моей находке?!
Нет, ваще то Not TS.AtEndOfStream - конец файла будет точнее.... | |
| |
| |
