!Сценарий
перевода программ с языка Фортран на язык Паскаль
!Запись списков в файлы
>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\lflist.txt,fNew,fLeft,rAll
>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\rtlist.txt,fNew,fRight,rAll
!Создание списка имен файлов в ячейке архива {{1}}
#[ЗАМЕНА КОНТЕКСТОВ] {1}
/1/входной текст (индекс): 1
/2/выходной текст (индекс): 0
/3/входной каталог: d:\forpas\_scrpt\lflist.txt
/4/шаблоны входных файлов: *.*
/5/искать в подкаталогах (признак): 0
/6/без учета регистра (признак): 1
/7/режим замены (индекс): 1
/8/входная кодировка (индекс): 3
/9/выходной каталог: d:\forpas\rabout\
/10/рабочий каталог:
/11/сводный файл строк редакции (признак): 0
/12/только протокол (признак): 1
/13/вид протокола (индекс): 4
/14/статистика для протокола (признак): 0
/15/файл запроса: d:\forpas\_scrpt\contit8.txt
[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]
/1/запись измененных файлов (индекс): 0
/2/выходной каталог: d:\forpas\rabout\
/3/сохранять копии (признак): 0
/4/рабочий каталог: d:\forpas\rabout\
/5/копировать дерево файлов исходного каталога (признак): 0
/6/копировать в рабочий каталог (индекс): 0
/7/изменить имя файла (признак): 0
/8/переименовать после редакции (признак): 0
/9/постфиксные символы имени файла записи:
/10/расширение файла записи:
>НАЧАТЬ: 12
!Создание списка, ячейка которого содержит имя каталога и имя файла замены
#[ЗАМЕНА КОНТЕКСТОВ] {2}
/1/входной текст (индекс): 1
/2/выходной текст (индекс): 0
/3/входной каталог: d:\forpas\_scrpt\rtlist.txt
/4/шаблоны входных файлов: *.*
/5/искать в подкаталогах (признак): 0
/6/без учета регистра (признак): 1
/7/режим замены (индекс): 1
/8/входная кодировка (индекс): 3
/9/выходной каталог: d:\forpas\_scrpt\
/10/рабочий каталог:
/11/сводный файл строк редакции (признак): 0
/12/только протокол (признак): 0
/13/вид протокола (индекс): 4
/14/статистика для протокола (признак): 0
/15/файл запроса: d:\forpas\_scrpt\contit9.txt
[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]
/1/запись измененных файлов (индекс): 1
/2/выходной каталог: d:\forpas\_scrpt\
/3/сохранять копии (признак): 0
/4/рабочий каталог:
/5/копировать дерево файлов исходного каталога (признак): 0
/6/копировать в рабочий каталог (индекс): 0
/7/изменить имя файла (признак): 0
/8/переименовать после редакции (признак): 0
/9/постфиксные символы имени файла записи:
/10/расширение файла записи:
>НАЧАТЬ: 12
>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\rtlist.txt,new
#[РАБОТА С АРХИВОМ] {3}
>ОЧИСТИТЬ АРХИВ
!Сохранение правого списка с именами выходных файлов
>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\dfname.txt,fNew,fRight,rAll
>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\pasname.txt,fNew,fRight,rAll
!Создание правого абстрактного списка для сохранения архива
#[СОЗДАНИЕ СПИСКОВ] {4}
/1/источник списка (индекс): 5
/2/входной (базовый) каталог:
/3/шаблоны входных файлов: *.*
/4/искать в подкаталогах (признак): 1
/5/неполный путь к файлу (признак): 0
/6/левый список (признак): 0
/7/правый список (признак): 1
/8/новый список (признак): 1
/9/добавить в список (признак): 0
/10/содержимое списка (индекс): 0
/11/уровень от базы (режим): >=
/12/уровень от базы (значение): 0
[СОЗДАНИЕ АБСТРАКТНОГО СПИСКА]
/1/каталог: d:
/2/префикс имени файла: newdir
/3/начальный индекс: 1
/4/расширение:
/5/размерность списка: -1
/6/добавление к имени файла/каталога: arh
/7/режим добавления (индекс): 2
/8/вид списка: 12
>АБСТРАКТНЫЙ СПИСОК
!Первый этап: анализ и запись парметров программы в общий архив
#[ЗАМЕНА КОНТЕКСТОВ] {5}
/1/входной текст (индекс): 3
/2/выходной текст (индекс): 0
/3/входной каталог: LeftList
/4/шаблоны входных файлов: *
/5/искать в подкаталогах (признак): 0
/6/без учета регистра (признак): 0
/7/режим замены (индекс): 0
/8/входная кодировка (индекс): 3
/9/выходной каталог: d:\forpas\rabout\
/10/рабочий каталог:
/11/сводный файл строк редакции (признак): 0
/12/только протокол (признак): 1
/13/вид протокола (индекс): 4
/14/статистика для протокола (признак): 0
/15/файл запроса: d:\forpas\_scrpt\contit1.txt
[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]
/1/запись измененных файлов (индекс): 0
/2/выходной каталог: d:\forpas\rabout\
/3/сохранять копии (признак): 0
/4/рабочий каталог: d:\forpas\rabout\
/5/копировать дерево файлов исходного каталога (признак): 0
/6/копировать в рабочий каталог (индекс): 0
/7/изменить имя файла (признак): 0
/8/переименовать после редакции (признак): 0
/9/постфиксные символы имени файла записи:
/10/расширение файла записи:
>НАЧАТЬ: 12
!Второй этап: построение программы на Паскале
#[ЗАМЕНА КОНТЕКСТОВ] {6}
/1/входной текст (индекс): 3
/2/выходной текст (индекс): 0
/3/входной каталог: LeftList
/4/шаблоны входных файлов: *
/5/искать в подкаталогах (признак): 0
/6/без учета регистра (признак): 0
/7/режим замены (индекс): 0
/8/входная кодировка (индекс): 3
/9/выходной каталог: d:\forpas\rabout\
/10/рабочий каталог:
/11/сводный файл строк редакции (признак): 0
/12/только протокол (признак): 0
/13/вид протокола (индекс): 4
/14/статистика для протокола (признак): 0
/15/файл запроса: d:\forpas\_scrpt\contit2.txt
[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]
/1/запись измененных файлов (индекс): 0
/2/выходной каталог: d:\forpas\rabout\
/3/сохранять копии (признак): 0
/4/рабочий каталог: d:\forpas\rabout\
/5/копировать дерево файлов исходного каталога (признак): 0
/6/копировать в рабочий каталог (индекс): 0
/7/изменить имя файла (признак): 0
/8/переименовать после редакции (признак): 0
/9/постфиксные символы имени файла записи:
/10/расширение файла записи:
>НАЧАТЬ: 12
!Сохранение правого списка с именами выходных файлов
>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\daname.txt,fNew,fRight,rAll
!Загрузка правого списка с именами выходных каталогов и файлов
>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\dfname.txt,new
!Создание файла со списком перекодированных файлов,
!находящихся в каталоге rabout
>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\fname.txt,fNew,fLeft,rAll
#[ЗАМЕНА КОНТЕКСТОВ] {7}
/1/входной текст (индекс): 1
/2/выходной текст (индекс): 0
/3/входной каталог: d:\forpas\_scrpt\fname.txt
/4/шаблоны входных файлов: *
/5/искать в подкаталогах (признак): 0
/6/без учета регистра (признак): 1
/7/режим замены (индекс): 1
/8/входная кодировка (индекс): 3
/9/выходной каталог: d:\forpas\_scrpt\
/10/рабочий каталог:
/11/сводный файл строк редакции (признак): 0
/12/только протокол (признак): 0
/13/вид протокола (индекс): 4
/14/статистика для протокола (признак): 0
/15/файл запроса: d:\forpas\_scrpt\contit5.txt
[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]
/1/запись измененных файлов (индекс): 1
/2/выходной каталог: d:\forpas\_scrpt\
/3/сохранять копии (признак): 0
/4/рабочий каталог: d:\forpas\_scrpt\
/5/копировать дерево файлов исходного каталога (признак): 0
/6/копировать в рабочий каталог (индекс): 0
/7/изменить имя файла (признак): 0
/8/переименовать после редакции (признак): 0
/9/постфиксные символы имени файла записи:
/10/расширение файла записи:
>НАЧАТЬ: 12
!Загрузка левого списка с именами перекодированных файлов
>ЗАГРУЗИТЬ ЛЕВЫЙ СПИСОК: D:\forpas\_SCRPT\fname.txt,new
!Третий этап: корректировка перекодированных программ для БЧА
#[ЗАМЕНА КОНТЕКСТОВ] {8}
/1/входной текст (индекс): 3
/2/выходной текст (индекс): 0
/3/входной каталог: LeftList
/4/шаблоны входных файлов: *
/5/искать в подкаталогах (признак): 0
/6/без учета регистра (признак): 1
/7/режим замены (индекс): 0
/8/входная кодировка (индекс): 3
/9/выходной каталог: ListFiles (путь к каталогу в списке)
/10/рабочий каталог:
/11/сводный файл строк редакции (признак): 0
/12/только протокол (признак): 0
/13/вид протокола (индекс): 4
/14/статистика для протокола (признак): 0
/15/файл запроса: d:\forpas\_scrpt\contit3.txt
[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]
/1/запись измененных файлов (индекс): 1
/2/выходной каталог: ListFiles (путь к каталогу в списке)
/3/сохранять копии (признак): 0
/4/рабочий каталог:
/5/копировать дерево файлов исходного каталога (признак): 0
/6/копировать в рабочий каталог (индекс): 0
/7/изменить имя файла (признак): 0
/8/переименовать после редакции (признак): 0
/9/постфиксные символы имени файла записи:
/10/расширение файла записи:
>НАЧАТЬ: 12
!Cоздание файла со списком для переписи перекодированных файлов,
!находящихся в каталоге rabout
#[ЗАМЕНА КОНТЕКСТОВ] {9}
/1/входной текст (индекс): 1
/2/выходной текст (индекс): 0
/3/входной каталог: d:\forpas\_scrpt\pasname.txt
/4/шаблоны входных файлов: *
/5/искать в подкаталогах (признак): 0
/6/без учета регистра (признак): 1
/7/режим замены (индекс): 1
/8/входная кодировка (индекс): 3
/9/выходной каталог: d:\forpas\_scrpt\
/10/рабочий каталог:
/11/сводный файл строк редакции (признак): 0
/12/только протокол (признак): 0
/13/вид протокола (индекс): 4
/14/статистика для протокола (признак): 0
/15/файл запроса: d:\forpas\_scrpt\contit6.txt
[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]
/1/запись измененных файлов (индекс): 1
/2/выходной каталог: d:\forpas\_scrpt\
/3/сохранять копии (признак): 0
/4/рабочий каталог: d:\forpas\_scrpt\
/5/копировать дерево файлов исходного каталога (признак): 0
/6/копировать в рабочий каталог (индекс): 0
/7/изменить имя файла (признак): 0
/8/переименовать после редакции (признак): 0
/9/постфиксные символы имени файла записи:
/10/расширение файла записи:
>НАЧАТЬ: 12
!Загрузка правого списка с именами файлов переписи
>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\pasname.txt,new
#[ФАЙЛОВЫЕ ОПЕРАЦИИ] {10}
/1/тип операции (индекс): 1
/2/входной (базовый) каталог:
/3/шаблоны входных файлов: *
/4/базировать путь к файлу (признак): 0
/5/выходной каталог:
/6/шаблоны файлов очистки: *.*
/7/режим очистки подкаталогов (индекс): -1
/8/создать структуру базы (признак): 0
/9/левый список (признак): 0
/10/правый список (признак): 1
/11/содержимое списка (индекс): 0
/12/использовать корзину (признак): 1
>КОПИРОВАТЬ
!Загрузка правого списка с именами выходных каталогов и файлов
>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\dfname.txt,new
>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\unitname.txt,fNew,fLeft,rAll
!Cоздание файла со списком для переименования перекодированных файлов,
!находящихся в каталоге rabout
#[ЗАМЕНА КОНТЕКСТОВ] {11}
/1/входной текст (индекс): 1
/2/выходной текст (индекс): 0
/3/входной каталог: d:\forpas\_scrpt\unitname.txt
/4/шаблоны входных файлов: *
/5/искать в подкаталогах (признак): 0
/6/без учета регистра (признак): 1
/7/режим замены (индекс): 1
/8/входная кодировка (индекс): 3
/9/выходной каталог: d:\forpas\_scrpt\
/10/рабочий каталог:
/11/сводный файл строк редакции (признак): 0
/12/только протокол (признак): 0
/13/вид протокола (индекс): 4
/14/статистика для протокола (признак): 0
/15/файл запроса: d:\forpas\_scrpt\contit7.txt
[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]
/1/запись измененных файлов (индекс): 1
/2/выходной каталог: d:\forpas\_scrpt\
/3/сохранять копии (признак): 0
/4/рабочий каталог: d:\forpas\_scrpt\
/5/копировать дерево файлов исходного каталога (признак): 0
/6/копировать в рабочий каталог (индекс): 0
/7/изменить имя файла (признак): 0
/8/переименовать после редакции (признак): 0
/9/постфиксные символы имени файла записи:
/10/расширение файла записи:
>НАЧАТЬ: 12
!Загрузка правого списка с именами файлов переименования
>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\unitname.txt,new
#[ФАЙЛОВЫЕ ОПЕРАЦИИ] {12}
/1/тип операции (индекс): 1
/2/входной (базовый) каталог:
/3/шаблоны входных файлов: *
/4/базировать путь к файлу (признак): 0
/5/выходной каталог:
/6/шаблоны файлов очистки: *.*
/7/режим очистки подкаталогов (индекс): -1
/8/создать структуру базы (признак): 0
/9/левый список (признак): 0
/10/правый список (признак): 1
/11/содержимое списка (индекс): 0
/12/использовать корзину (признак): 0
>ПЕРЕИМЕНОВАТЬ
!Загрузка левого списка с именами файлов переименования
>ЗАГРУЗИТЬ ЛЕВЫЙ СПИСОК: D:\forpas\_SCRPT\unitname.txt,new
!Загрузка правого списка с именами выходных каталогов и файлов
>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\dfname.txt,new
!Четвёртый этап: создание Unit-файла для проекта Delphi
#[ЗАМЕНА КОНТЕКСТОВ] {13}
/1/входной текст (индекс): 3
/2/выходной текст (индекс): 0
/3/входной каталог: LeftList
/4/шаблоны входных файлов: *
/5/искать в подкаталогах (признак): 0
/6/без учета регистра (признак): 1
/7/режим замены (индекс): 0
/8/входная кодировка (индекс): 3
/9/выходной каталог: d:\forpas\&1|RightList:-1 _prj\
/10/рабочий каталог:
/11/сводный файл строк редакции (признак): 0
/12/только протокол (признак): 0
/13/вид протокола (индекс): 4
/14/статистика для протокола (признак): 0
/15/файл запроса: d:\forpas\_scrpt\contit4.txt
[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]
/1/запись измененных файлов (индекс): 0
/2/выходной каталог: d:\forpas\&1|RightList:-1 _prj\
/3/сохранять копии (признак): 0
/4/рабочий каталог: d:\forpas\&1|RightList:-1 _prj\
/5/копировать дерево файлов исходного каталога (признак): 0
/6/копировать в рабочий каталог (индекс): 0
/7/изменить имя файла (признак): 0
/8/переименовать после редакции (признак): 0
/9/постфиксные символы имени файла записи:
/10/расширение файла записи:
>НАЧАТЬ: 12
!Удаление файлов (по левому списку)
#[ФАЙЛОВЫЕ ОПЕРАЦИИ] {14}
/1/тип операции (индекс): 0
/2/входной (базовый) каталог:
/3/шаблоны входных файлов: *
/4/базировать путь к файлу (признак): 0
/5/выходной каталог: d:\forpas\
/6/шаблоны файлов очистки: *.*
/7/режим очистки подкаталогов (индекс): -1
/8/создать структуру базы (признак): 0
/9/левый список (признак): 1
/10/правый список (признак): 0
/11/содержимое списка (индекс): 0
/12/использовать корзину (признак): 0
>УДАЛИТЬ
!Загрузка левого списка с именами архивных файлов
>ЗАГРУЗИТЬ ЛЕВЫЙ СПИСОК: D:\forpas\_SCRPT\daname.txt,new
!Удаление архивных файлов (по левому списку)
#[ФАЙЛОВЫЕ ОПЕРАЦИИ] {15}
/1/тип операции (индекс): 0
/2/входной (базовый) каталог:
/3/шаблоны входных файлов: *
/4/базировать путь к файлу (признак): 0
/5/выходной каталог: d:\forpas\
/6/шаблоны файлов очистки: *.*
/7/режим очистки подкаталогов (индекс): -1
/8/создать структуру базы (признак): 0
/9/левый список (признак): 1
/10/правый список (признак): 0
/11/содержимое списка (индекс): 0
/12/использовать корзину (признак): 0
>УДАЛИТЬ
#[КОНЕЦ СЦЕНАРИЯ] {16}