Скрипт 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