1 Тема от socialproblem

  • socialproblem
  • Гость

Тема: WSH: Поиск строки в файле и копирование её в другой файл

Всем привет, друзья.
Есть массив текста, построчный. Каждая строка начинается с определенного ключа. Нужно быстро скриптом отсортировать нужные строки в один файл, например которые начинаются с <B> .
Надо чтоб они скопировались в отдельный тхт.
Буду признателен за помощь.

2 Ответ от BeS Yara (изменено: BeS Yara, 2012-02-12 16:32:34)

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

Re: WSH: Поиск строки в файле и копирование её в другой файл

Простейший вариант(использован объект FileSystemObject, точнее нарезка из примеров по данному объекту - например отсюда(CHM-файл справки на русском языке описывает свойства и методы объектов Windows Script Host, а также некоторых других объектов OLE Automation, доступных в административных скриптах Windows и приложениях, способных выступить в роли OLE-клиента.):

Option Explicit
Dim fso, tsIn, tsOut, str
Set fso= Createobject("Scripting.FileSystemObject")
Set tsIn = fso.OpenTextFile("input.txt", 1, 0) ' открываем файл для чтения, в ASCII
Set tsOut = fso.CreateTextFile("output.txt", True, False) 'создаём файл в ASCII, при наличии файл перезаписывается
Do While Not tsIn.AtEndOfStream
    str = tsIn.ReadLine 'читаем построчно исходный файл
    If InStr(1, str, "Const", 1) = 1 Then 'ищем искомое слово в начале строки
      tsOut.WriteLine str 'записываем найденную строку в выходной файл
    End If
Loop
tsIn.Close
tsOut.Close
Set fso = Nothing

Если в начале строки может быть незначащий пробел, то перед поиском строку можно пропустить через Trim: InStr(1, Trim(str), "Const", 1).

3 Ответ от griha09

  • griha09
  • Участник
  • Неактивен

Re: WSH: Поиск строки в файле и копирование её в другой файл

я тоже как-то делал такой скрипт, только у меня  такое отличие

If InStr(1, str, word) <> 0 Then

4 Ответ от 968810

  • 968810
  • Участник
  • Неактивен

Re: WSH: Поиск строки в файле и копирование её в другой файл

А как сделать, чтоб каждое слово, находящийся в данной строке, взять в переменную
т.е. имеем строки:

Const слово_1 слово_2
Const слово_3 слово_4

чтоб было: x(1)=слово_1, y(1)=слово_2, x(2)=слово_3, y(2)=слово_4