Редактирование определённого текста в нескольких файлах

[Saire]

Не специалист в программировании, потому не знал, куда поместить. Нужна программа или скрипт (для windows xp) для проведения следующей операции:
Имеется тхт файл, в котором каждый раз с новой строчки идёт определённый текст (новая строка - новый текст). Это заголовки для статей. Допустим имя этого файла "Заголовки". Так же имеется папка с тхт файлами, количество которых равно количеству заголовков в первом файле. Назовём эти файлы "статья 1", "статья 2", "статья 3" и т.д. Необходимо переместить заголовки из файла "Заголовки" в файлы со статьями в самое начало, чтобы первая строка в статье шло название, ниже текст. Или можно так: во всех статьях в начале будет слово <title>, его нужно заменить на заголовки из соответствующего файла. То есть должно быть так:
1) Из файла "Заголовки" текст из первой строки в начало текста файла "статья 1" (или вместо <title>)
2) Из файла "Заголовки" текст со второй строки в начало текста файла "статья 2" (или вместо <title>)
И так далее до конца. Очень важно, чтобы заголовки из файла брались и вставлялись в файлы со статьями строго по порядку, то есть никаких "Из файла "Заголовки" текст из третьей строки в начало текста файла "Статья 6"".
Или же можно заголовки поместить не в один файл, а в разные, обозначив их "заголовок 1", "заголовок 2" и т.д. Тогда получится так:
1) Из файла "Заголовок 1" текст в начало текста файла "статья 1"
2) Из файла "Заголовок 2" текст в начало текста файла "статья 2"
Буду крайне признателен за помощь, спасибо.
P.S. К теме прикладываю архив с простейшим примером того, что необходимо. Папка "Статьи" - это исходные тексты, куда нужно вставить заголовки, папка "Отредактированные статьи" - то, что должно получиться

[s-andriano]

По каким признакам алгоритм должен определять, в какой именно файл вставлять текст, скажем, из третьей строки?
В одном месте у Вас написано "Статья 6", а в другом "статья 2". Я не про номер, а про первую букву в названии.
Допустимы ли имена типа "статья 001"?
Как определить папки, из которых следует брать файлы?
Как поступать, если присутствуют и "статья 1" и "статья 001"?
Как поступать, если в указанном месте есть файлы не подходящие под шаблон?
Как поступать, если среди файлов отсутствует, например, "Статья 6", а строк в файле с заголовками больше 6?

[Serge_Bliznykov]

программка
ArticlesReplacer-executable.rar
и исходники (Delphi) ArticlesReplacer-src.rar приложены.

Контроль за нештатными ситуациями - минимальнейший (шаг влево, шаг вправо - расстрел).

пользуйтесь на здоровье!

[Saire]

По каким признакам алгоритм должен определять, в какой именно файл вставлять текст, скажем, из третьей строки?
В одном месте у Вас написано "Статья 6", а в другом "статья 2". Я не про номер, а про первую букву в названии.
Допустимы ли имена типа "статья 001"?

Да, можно файлы со статьями просто обозвать "001", "002", "003" и т.д.
Определять должен по номеру статьи в названии.

Как определить папки, из которых следует брать файлы?

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

Как поступать, если присутствуют и "статья 1" и "статья 001"?

Исключено, файлы со статьями будут чётко названы по одному шаблону.

Как поступать, если в указанном месте есть файлы не подходящие под шаблон?

В указанном месте будут чётко подходящие под шаблон файлы

Как поступать, если среди файлов отсутствует, например, "Статья 6", а строк в файле с заголовками больше 6?

Тоже исключено, количество файлов со статьями и заголовков будет равно.
Большое спасибо за оперативный ответ.
Serge_Bliznykov, благодаря, обязательно попробую.
Update: Serge_Bliznykov, попробовал ваш вариант, то что надо, большое спасибо. Такой вопрос: можно ли усложнить процесс? Делать необходимо тоже самое (брать из списка и заменять необходимое слово в статьях), но кроме заголовка добавить ещё в необходимое место, к примеру, ссылку? Допустим есть статьи, в середине текста имеются слова <url 1> и <url 2>. Имеется два списка txt, один называется Url 1, другой Url 2, в них представлены тексты ссылок, с каждой новой строки новая ссылка. Необходимо как и с заголовками:
1) Из файла Url 1 первая ссылка заменяет в файле "Статья 1" слово <url 1>; Из файла Url 2 первая ссылка заменяет в файле "Статья 1" слово <url 2>
2) Из файла Url 1 вторая ссылка заменяет в файле "Статья 2" слово <url 1>; Из файла Url 2 вторая ссылка заменяет в файле "Статья 2" слово <url 2>

[Аватар]

Исключено, файлы со статьями будут чётко названы по одному шаблону.

В указанном месте будут чётко подходящие под шаблон файлы

Тоже исключено, количество файлов со статьями и заголовков будет равно.

Обычно когда 'так не бывает' обязательно это случается в самый не подходящий момент и достаточно скоро

[DiemonStar]

Обычно когда 'так не бывает' обязательно это случается в самый не подходящий момент и достаточно скоро

Я бы добавил, что это бывает, когда:
1) нет того, кто смог бы поправить
2) когда данных столько, что пользователь просто физически не сможет всё перелопатить быстро
3) результат нужен был ещё вчера
4) юзеры настолько отвыкли делать это вручную, что неделю будут ныть каждые 10 минут, хотя за это время могли бы три раза всё переправить.

[Serge_Bliznykov]

Сообщение от Saire

Такой вопрос: можно ли усложнить процесс? Делать необходимо тоже самое (брать из списка и заменять необходимое слово в статьях), но кроме заголовка добавить ещё в необходимое место, к примеру, ссылку? Допустим есть статьи, в середине текста имеются слова <url 1> и <url 2>. Имеется два списка txt, один называется Url 1, другой Url 2,

да, безусловно, можно, усложняйте.
в процедуре btStartClick добавьте две переменные типа TStringList, перед циклом прочитайте в них свои URL1.txt и URL2.txt и в основной цикл добавьте перебор коллекции TSArt и замену нужных значений. Либо через TSArt.Text можно заменить... Это как Вам понятнее и удобнее.

[Saire]

Сообщение от Serge_Bliznykov

да, безусловно, можно, усложняйте.
в процедуре btStartClick добавьте две переменные типа TStringList, перед циклом прочитайте в них свои URL1.txt и URL2.txt и в основной цикл добавьте перебор коллекции TSArt и замену нужных значений. Либо через TSArt.Text можно заменить... Это как Вам понятнее и удобнее.

К великому сожалению ничего из этого непонятно и неудобно. Не смею Вас просить, но буду премного благодарен, если поможете с добавлением выше упомянутых элементов. Будет просто супер, если получится такая же программка, как вы добавили выше, но с строчками для указания ссылок. Заранее спасибо!

[s-andriano]

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

[Serge_Bliznykov]

Сообщение от s-andriano

Ну, хотя бы не делать правку "на места", а брать файлы из одной папки и складывать результат в другую, сохраняя исходные варианты.

s-andriano, ну, это несерьёзно! Вы не посмотрели ни тот архив, который выложил автор темы, ни ту программу, которую выложил я.
А если бы посмотрели, то увидели, что у TC изначально исходные файлы лежат в одной папке, а результирующие (готовые) складываются в другую папку..

Сообщение от Saire

Не смею Вас просить, но буду премного благодарен, если поможете с добавлением выше упомянутых элементов. Будет просто супер, если получится такая же программка, как вы добавили выше, но с строчками для указания ссылок. Заранее спасибо!

пожалуйста. тестируйте.
ArticlesReplacer_v2-exe.rar
ArticlesReplacer_v2-src.rar


p.s.
Поймай человеку рыбу и ты сделаешь его сытым на один день,
научи его ловить рыбу самостоятельно и ты сделаешь его сытым на всю жизнь
я же исходники выкладываю не просто так.
Сейчас я в настроении, сделал Вам то, что Вы хотите, а завтра я буду занят/или не в настроении -
потребую с Вас за работу денюжку или вообще откажусь/не смогу что-то править!
Поэтому очень рекомендую Вам взять любую версию Delphi (портабле вполне подойдёт), и чуть-чуть посмотреть, что же там такого страшного написано АЖ в 75 строчках кода (я про главную процедуру, которая и делает все чтения/замены/сохранения...