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

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

null@example.com (968810) — Wed, 07 Mar 2012 05:09:33 +0000

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

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

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

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

null@example.com (griha09) — Wed, 22 Feb 2012 22:14:51 +0000

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

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

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

null@example.com (BeS Yara) — Sun, 12 Feb 2012 12:28:11 +0000

Простейший вариант(использован объект 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).

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

null@example.com (socialproblem) — Sun, 12 Feb 2012 09:43:01 +0000

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