Скрипт Digitals по витягуванню обмінних файлів по списку

Post date: Sep 30, 2014 3:12:41 PM

Скрипт, результат спільного авторства Томнюк Тані, Гаврилюка Віктора, Павла Урсуляка

Тяжка робота по пошуку кадастрового номеру на карті. 

Скрипт, з текстового файлу d:\3.txt зчитує кадастрові номери і шукає їх на карті. Якщо файл знайдено, файл, буде збережений у папку (по замовчуванню це папка C:\Digitals ), і буде проведено пошук наступного файлу.

;Знімаємо помітку з усіх об’єктів карти

@Map.DeselectAll

;Список з кад.номерами у форматі ХХХХХХХХХХ:ХХ:ХХХ:ХХХХ

@Text.Load d:\3.txt 

;перша строка

$I=1

;загальна кількість строк

$CountI=@Text.Count 

;

%Start 

;Початок циклу 

;Збільшення індексу 

$I=$I+1

@IF $I<=$CountI @Goto %Bum

;умова приривання циклу

;

@Break Закінчився список файлів

%Bum 

$CN=@Text.Line[$I]

; тут задаємо в якому параметрі знаходеться кад номер у форматі ХХХХХХХХХХ:ХХ:ХХХ:ХХХХ

@Map.FindFirstByParameters 1|ID106=$CN

$S=@Map.SelCount

;

@If $S=0 @Goto %Messege 

%Show:

@Window.ShowSelected

Файл | Извлечь участок в In4

;сохраняем обменник

@Map.SaveToFile

;закрываем обменник

@FileClose

%Skip

$I=$I+1

;

@ActivateMap 1

@Goto %Start

;

%Messege

;@Dialog.Message $CN Участок не найден

@Goto %Start