Головна » Файли » Готові скрипти

Переведення усіх файлів у папці в іншу систему координат
30.09.2021, 20:39

$WorkPapka=@Dialog.SelectFolder Виберіть папку з файлами для опрацювання

@if $WorkPapka= then @break

@Text[2].FolderListTree *.xml $WorkPapka

$FC=@Text[2].Count

@if $FC=0 then @break В папці не виявлено жодного обмінного файла XML

$F=0

@SelectTab 3

@Progress.Start $FC Заповнення... (всього $FC файлів)

%Loop

$F=$F+1

@Progress.StepBy 1

$FN=@Text[2].Line[$F]

@FileOpen $FN

$MapCount2=@MapCount

@if $MapCount2=$MapCount then @Goto %Next

@Map.RecalculateToNewDatum SK63(2) SK63(1)

@Map.SaveToFile $FN

@Fileclose $FN

%Next

$Canceled=@Progress.Canceled

@if $Canceled=1 then @break

@if $f<$FC then @Goto %Loop

@Progress.Stop

@Dialog.Message Оброблено $f файлів XML.

Категорія: Готові скрипти | Додав: Микола
Переглядів: 874 | Завантажень: 1 | Рейтинг: 3.5/2
Всього коментарів: 0
avatar