Материал: Digitals

Приложение D. Введение в Digitals Script

Передача параметров (1-й способ)

В коде вызываемого скрипта (подпрограммы) доступны специальные переменные с именами $PARAMETERS и $RESULT. Первая позволяет передать строку параметров в подпрограмму, а вторая передать результат обратно в вызывающий скрипт.

Переданную в подпрограмму строку парамеров можно разобрать на части с помощью функций для работы со строками, например, с помощью @StringPart.

По умолчанию функция @StringPart делит строку на части по пробелам. Таким образом можно передать в подпрограмму в одной строке числа, разделенные пробелом. Но @StringPart можно использовать и с другим разделителем. Допустим, вам нужно передать в подпрограмму пару переменных, содержащих пробелы. Давайте используем в качестве разделителя символ ~ (тильда):

$S1=Первая строка

$S2=Вторая строка

%Library.MyScript $S1~$S2

Тогда внутри подпрограммы мы можем разделить переданную строку на отдельные части таким образом:

$S1=@StringPart 1~$PARAMETERS $S2=@StringPart 2~$PARAMETERS

Для передачи скрипту длинных списков с неизвестным наперед количеством элементов можно использовать массив текстовых строк @Text. Например:

;Вызов скрипта

@Text.Add Первый элемент списка @Text.Add Второй элемент списка

;...

@Text.Add N-ый элемент списка $S=@Text.Text %Library.MyScript $S

;Текст скрипта

@Text.Text $PARAMETERS $C=@Text.Count

@If $C=0 @Break Список параметров пуст

;обработка строк списка параметров от 1 до $С через @Text.Lines[$I]

Передача результата из подпрограммы выполняется так: $RESULT=Возвращаемая_строка

Передача параметров (2-й способ)

Второй способ передачи параметров неофициальный. Дело в том, что для каждой карты в Digitals существуют глобальные переменные с именами @Map.TempInteger и @Map.TempString. Как понятно из названия, первая переменная может хранить число, а вторая строку. В строке, при желании, можно передать список значений неограниченной длины, воспользовавшись приемом, похожим на тот, что мы видели выше (передача строк с помощью массива @Text).

Пример использования:

;Скрипт 1

$A=ул. Первомайская $B=17

$C=кв. 32

; Добавляем значения трех переменных в текстовый список

Text.Add $A

Text.Add $B

346

Отладка скриптов

Text.Add $C

; Засылаем содержимого текстового списка "на хранение" в TempString карты $S=Text.Text

@Map.TempString $S

;Скрипт 2

;Возвращаем содержимое текстового списка из TempString $S=@Map.TempString

@Text.Text $S

;Читаем значения трех переменных из списка

$A=@Text.Lines[1] $B=@Text.Lines[2] $C=@Text.Lines[3]

Отладка скриптов

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

Чтобы включить протоколирование, начните скрипт командой @OpenLog, а завершите командой @CloseLog. В этом случае протокол будет записан в файл с именем Digitals Server Log.txt в программную папку. Если протокол по умолчанию вас не устраивает, то вы можете указать путь к файлу протокола через пробел после команды @CloseLog. Например:

@CloseLog d:\MyLog.txt

Дополнительная информация

Вы можете найти дополнительную информацию в следующих источниках:

•Онлайн справка3 Digitals. Мы уже говорили о ней выше, напоминаем еще раз. Описание языка также доступно в формате PDF, вы можете скачать файл по этой ссылке4 и распечатать для изучения.

•Ветка форума “Библиотека полезных скриптов5”. Здесь вы найдете множество примеров готовых скриптов, которые, возможно, захотите использовать в своей работе.

•Ветка форума “Все про скрипти6”. Здесь имеется масса полезной информации из реальной практики разработки скриптов, которой делятся пользователи программы.

•Статья7 Стаса Полищука “Работа со скриптами в Digitals”, которая описывает историю решения задачи централизованного накопления топосъемки в векторном формате с помощью несложных скриптов.

3http://www.geosystema.net/help/tag/skripty/#p2

4http://www.vingeo.com/update/rus/Digitals-scripts.pdf

5http://www.geosystema.net/forum/viewtopic.php?f=1&t=2539

6http://www.geosystema.net/forum/viewtopic.php?f=1&t=2809

7http://www.geosystema.net/digitals/?act=dig_script

347

349

Предметный указатель

350