Скрипт сканує сторінку на наявність в ній таблиці з координатами і приховує перші 4 цифри кооординати Х та координати У, замінюючи їх на ХХХХ.

В процесі питає, які саме цифри треба замінити і зберігає ці цифри до наступного їх редагування.

$Dialog1=5473
$Dialog2=1315
$papka=@ProgramFolder
$Cyfry=$papka\Цифри.txt
$Exist=@FileExists $Cyfry
@if $Exist=0 @Goto %NoTemp
@Text.Load $Cyfry
$Dialog=@Text.Line[1]
@if $Dialog<> then @Goto %YesTemp
%NoTemp
$Dialog=$Dialog1,$Dialog2
%YesTemp
$Dialog=@Dialog.Ask Введіть по 4 цифри координат X та Y, які потрібно приховати в таблицях Default=$Dialog Size=300
@Map.TempString $Dialog
@Text.Text $Dialog
@Text.Save $papka\Цифри.txt
$PartCount=@StringPartCount , $Dialog
$Dialog1=@StringPart 1,$Dialog
$Dialog2=@StringPart 2,$Dialog
;цикл по усіх об'єктах карти
$MC=@Map.Count
$N=0
%Start
$N=$N+1
$Table=@Map.Object[$N].TableText
@if $Table= then @Goto %Next
$PartCount=@StringPartCount : $Table
@if $PartCount>1 then @Goto %Next
$PartCount=@StringPartCount " $Table
@if $PartCount=1 then @Goto %Next2
$RS=#
$SS=
$I=0
%LoopRS
$I=$I+1
$S1=@StringPart $I"$Table
@if $I<>1 then $SS=$SS$RS
$SS=$SS$S1
@if $I<$PartCount then @Goto %LoopRS
$Table=$SS
%Next2
;$IndexOf=@Text[$Table].IndexOf $Dialog1
;@if $IndexOf=0 then @Goto %Next
$Replace=@Calc Replace("$Table","$Dialog1","XXXX")
$Replace=@DequoteText $Replace
$Replace=@Calc Replace("$Replace","$Dialog2","XXXX")
$Replace=@DequoteText $Replace
$PartCount=@StringPartCount # $Table
@if $PartCount=1 then @Goto %Next3
$RS="
$SS=
$I=0
%LoopRS2
$I=$I+1
$S1=@StringPart $I#$Table
@if $I<>1 then $SS=$SS$RS
$SS=$SS$S1
@if $I<$PartCount then @Goto %LoopRS2
$Replace=$SS
%Next3
@Map.Object[$N].TableText $Replace
%Next
@if $N<$MC then @Goto %Start
@Window.Refresh
@Dialog.InfoBox 200 Виконано!