TextPipe - [26] :: Программы :: Компьютерный форум Ru.Board

evoroz

Цитата:

miranon
Получилось вот так: http://sendfile.su/1541943
Вам надо будет переименовать фильтр (русские буквы заменились на подчеркивание),
установить свою директорию, где находятся файлы для обработки и попробовать на копии файлов.

Пояснение по работе фильтра. @inputFilename берет полное имя файла, т.е. слово1.txt.
Я создал 2 файла: слово1 и слово2 (как написано, без расширения). Т.к. пора спать, а бороться не хотелось.

Содержание файла слово1

Мой дядя самых честных правил,
Когда не в шутку занемог,
Он уважать себя слово1 заставил
И лучше выдумать не мог.
Его пример другим наука;
Но, боже мой, какая скука
С больным сидеть и день и ночь,
Не слово1 отходя ни шагу прочь!

Содержание файла слово2 аналогично, только слово1 заменено на слово2.
После прогона фильтра у меня в итоговых файлах получилось по две строки со словами 1 и 2 в каждом.

Внимание: исходные файлы портятся: из них удаляются несовпадающие строки!

evoroz, а можно как то оптимизировать шаблон что бы он не учитывал файловое расширение и регистр букв (т.е. что бы неважно было большая или маленькая буква в ключевом слове).

Напомню в чём задача была:

Цитата:

Есть несколько тысяч файлов с разными именами.

Пример:
слово1.txt
слово2.txt
и т.д.

В каждом из этих файлов есть несколько тысяч строк. Некоторые из этих строк содержат название файла.
Пример содержания файла с названием слово1.txt:

Мой дядя самых честных правил,
Когда не в шутку занемог,
Он уважать себя слово1 заставил
И лучше выдумать не мог.
Его пример другим наука;
Но, боже мой, какая скука
С больным сидеть и день и ночь,
Не слово1 отходя ни шагу прочь!

Мне нужно извлечь строки где встречаеться имя файла (или удалить строки без имени файла)
Т.е. для вышестоящего примера остануться строки:

Он уважать себя слово1 заставил
Не слово1 отходя ни шагу прочь!

Вот скрипт который использует шаблон:

Цитата:

'This example script keeps a line counter that
'does not reset for each file

'Our line counter

dim fn

'Called for every line in the file
'EOL contains the end of line characters (Unix, DOS or Mac) that must be
'appended to each line

function processLine(line, EOL)

fn = TextPipe.inputFilename

if InStr ( line, fn ) then
processLine = line & EOL
end if

end function

'Called at the start of a processing job -
'perform one-time initialisation here
sub startJob()
a = 0
fn = TextPipe.inputFilename
end sub

'Called at the end of a processing job -
'destroy any declared objects here
sub endJob()
'do nothing
end sub

'Called before each file is opened -
'perform per-file initialisation here
function startFile()
startFile = ""
fn = TextPipe.inputFilename
end function

'Called before each file is closed -
'flush all pending file output here
function endFile()
endFile = ""
fn = TextPipe.inputFilename
end function

Заранее спасибо за помощь!

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30