1 Тема от Sawyer (изменено: Sawyer, 2010-11-07 08:41:45)

  • Sawyer
  • Гость

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

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

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

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

2 Ответ от Rumata (изменено: Rumata, 2010-11-07 09:53:37)

  • Rumata
  • Разработчик
  • Неактивен

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

Если Вам необходимо только скопировать файл в другое место используйте команду 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
( 2 * b ) || ! ( 2 * b )

3 Ответ от Sawyer

  • Sawyer
  • Гость

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

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

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

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