Серый форум — VBScript: Перебор строк текстового файла

Re: VBScript: Перебор строк текстового файла

2010-11-07T05:58:13Z

Спасибо! мне второй ваш вариант нужен! Я сам только что додумался как сделать...но явно ваш вариант красивее.
Я сделал так:

Set TxtFile = FSO.OpenTextFile(FileName,8)
X=int(TxtFile.Line)
X=X-1

получил этим сколько всего в файле строк. потом закрыл и еще раз открыл файл уже для перебора через If ... to ...

Re: VBScript: Перебор строк текстового файла

2010-11-07T05:52:51Z

Если Вам необходимо только скопировать файл в другое место используйте команду FileSystemObject.CopyFile. Например:

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "C:\WINDOWS\system32\drivers\etc\hosts", "C:\hosts"

Если Вам необходимо еще и обработать файл, то простой цикл

' Выполнять до конца файла
Do Until InFile.AtEndOfStream
    ' Читать строку
    Line = InFile.ReadLine
    ' ... обработать
    ...
Loop

VBScript: Перебор строк текстового файла

2010-11-07T04:40:19Z

Здравствуйте.
Имеется текстовый файл со строками, необходимо перебрать все строки и записать их в новый файл.
Проблема не могу понять как сделать перебор строк. Прочитать строку знаю как, а как следущие получить не могу понять.

  Line=TxtFile.ReadLine
     if Line<>"" then 
      TxtFile2.WriteLine Line        
      Else
     end if

Додумался только до этого и конечно это не работает.