# СЛОВАРНЫЕ ЗАМЕНЫ ПО ЗАДАННОМУ НАБОРУ СЛОВАРЕЙ

# ЕСЛИ... Вас не устраивает алгоритм словарных 
# замен, принятый в программе, когда rex-словари
# всегда применяются первыми, а словари одного
# типа применяются в алфавитном порядке их имен...
# ТО отключите в панели словарей все используемые
# словари (т.е. уберите с них галочки в списке),
# И ЗАГРУЗИТЕ И ВЫПОЛНИТЕ (F2) ЭТОТ СКРИПТ

# Внимание! Это - лишь примерный макет скрипта!
# Чтобы сделать его рабочим, необходимо заменить
# имена словарей на реальные, используемые Вами.

str file, ext, homedic
num m

# Выбрать текстовый файл
file = OpenDialog(0)

if file == '' 
  exit
fi

m = len(file)
ext = sub(file,m-3,4)
ext = lower(ext)

if (ext <> '.txt')
    ShowMessage('Файл должен иметь тип .txt')
    exit
fi

homedic = HomeFolder('dic')

# Открыть выбранный файл в окне 2
WOpen(2,file)

# Словарные замены для текста в окне 2
# с сохранением результата в окне 0
WFilter(2,0,homedic+'Michelangelo.dic')

# Словарные замены для окна 0, результат в окне 0
WFilter(0,0,homedic+'PausesNicolai.rex')

# ...и т.д. и т.п.

# Показать окно 0 c окончательным результатом
WActive(0)

# Записать аудио по уже подготовленному тексту
# WAudio(0)

# Замечание. Если исходный текст ни для чего больше не нужен,
# то его можно сразу открывать в окне 0 и там же поочередно
# сохранять результаты словарных замен.
# Для итоговой записи аудио закомментируйте WActive(0) и
# раскомментируйте WAudio(0). (Запись аудио автоматически
# делает указанное окно активным)
