Просмотр исходного текста страницы Основы макроязыка EASI (PCI Geomatica) Часть 4. Примеры автоматизации процессов

=== Выполнение операций над набором файлов – скрипт EASI ===

Пример простого скрипта для выполнения заданных однотипных операций над всеми файлами <tt>.pix</tt> в рабочей директории:

<pre>
sys "dir *.pix /b > dirlist.txt              (создаем список фалов)

local int tfid                               (задаем набор переменных)
local string ReadLine

tfid = TEXTOpen("dirlist.txt", "r")          (открываем список файлов)
ReadLine = TEXTRead(tfid)                    (читаем первую строку файла)

While ReadLine <> "<EOF>"                    (начало цикла «до конца файла»)

fili=ReadLine                                (задаем прочитанную строку как параметр команды EASI – имя входного файла)

filo=ReadLine+”_out”                         (создаем имя выходного файла с суффиксом)
(Здесь помещаем список команд)

ReadLine = TEXTRead(tfid)                    (читаем новую строку файла)
EndWhile                                     (конец цикла)

Call TEXTClose(tfid)                         (закрываем список файлов...)
sys "del dirlist.txt                         (...и удаляем его)
</pre>