$Input=Турківський
$Repl=Самбірський
$MapCount=@MapCount
@Progress.Start $MapCount Впорядкування вмісту сторінок
$NSave=$MapCount
%StartSaveMap
@Progress.StepBy
@if $NSave<=1 then @Goto %ContinueSaveMap
@ActivateMap $NSave
;цикл по усіх об'єктах карти
$MC=@Map.Count
$N=0
%Start
$N=$N+1
$Text=@Map.Object[$N].TableText
$L=@Calc Pos("$Input","$Text")
@if $L=0 then @Goto %Next
$Text=@ReplaceChar "*$Text
$Text=@Calc replace("$Text","$Input","$Repl")
$Text=@DequoteText $Text
$Text=@ReplaceChar *"$Text
@Map.Object[$N].TableText $Text
@Map.RefreshObject $N
%Next
@if $N<$MC then @Goto %Start
$NSave=$NSave-1
@Goto %StartSaveMap
%ContinueSaveMap

$Print=@Dialog.Select Це Іванов?|так|ні
@if $Print=так then @Goto %FIO
@if $Print=ні then @Goto %Rayon
@if $Print=0 then @break
%FIO
$Input=Іванов
$Repl=Петров
%Rayon
$Input=@Dialog.Ask Введіть, що треба замінити Default=ицький Size=300
$Repl=@Dialog.Ask Введіть, на що це треба замінити Default=одський Size=300
;цикл по усіх об'єктах карти
$MC=@Map.Count
$N=0
%Start
$N=$N+1
$Text=@Map.Object[$N].TableText
$L=@Calc Pos("$Input","$Text")
@if $L=0 then @Goto %Next
$Text=@ReplaceChar "*$Text
$Text=@Calc replace("$Text","$Input","$Repl")
$Text=@DequoteText $Text
$Text=@ReplaceChar *"$Text
@Map.Object[$N].TableText $Text
@Map.RefreshObject $N
%Next
@if $N<$MC then @Goto %Start

$Print=@Dialog.Select Це Іванов?|так|ні
@if $Print=так then @Goto %FIO
@if $Print=ні then @Goto %Rayon
@if $Print=0 then @break
%FIO
$Input=Іванов
$Repl=Петров
%Rayon
$Input2=@Dialog.Ask Введіть, що треба замінити Default=ицький Size=300
$Repl2=@Dialog.Ask Введіть, на що це треба замінити Default=одський Size=300
;цикл по усіх об'єктах карти
$MC=@Map.Count
$N=0
%Start
$N=$N+1
$Text=@Map.Object[$N].TableText
$L=@Calc Pos("$Input","$Text")
@if $L=0 then @Goto %Next
$Text=@ReplaceChar "*$Text
$Text=@Calc replace("$Text","$Input","$Repl")
$Text=@DequoteText $Text
$Text=@Calc replace("$Text","$Input2","$Repl2")
$Text=@DequoteText $Text
$Text=@ReplaceChar *"$Text
@Map.Object[$N].TableText $Text
@Map.RefreshObject $N
%Next
@if $N<$MC then @Goto %Start

$Print=@Dialog.Select Це Іванов?|так|ні
@if $Print=ні then @Goto %Rayon
@if $Print=0 then @break
$Input=Іванов
$Repl=Петров
@if $Print=так then @Goto %NetrebaRayon
%Rayon
$Input2=@Dialog.Ask Введіть, що треба замінити Default=ицький Size=300
$Repl2=@Dialog.Ask Введіть, на що це треба замінити Default=одський Size=300
%NetrebaRayon
;цикл по усіх об'єктах карти
$MC=@Map.Count
$N=0
%Start
$N=$N+1
$Text=@Map.Object[$N].TableText
$L=@Calc Pos("$Input","$Text")
@if $L=0 then @Goto %Next
$Text=@ReplaceChar "*$Text
$Text=@Calc replace("$Text","$Input","$Repl")
$Text=@DequoteText $Text
$Text=@Calc replace("$Text","$Input2","$Repl2")
$Text=@DequoteText $Text
$Text=@ReplaceChar *"$Text
@Map.Object[$N].TableText $Text
@Map.RefreshObject $N
%Next
@if $N<$MC then @Goto %Start

$Print=@Dialog.Select Це Іванов?|так|ні
@if $Print=ні then @Goto %Rayon
@if $Print=0 then @break
$Input=Іванов І.І.
$Repl=Петров П.П.
@if $Print=так then @Goto %NetrebaRayon
%Rayon
$Input2=@Dialog.Ask Введіть, що треба замінити Default=Іванов Іван Іванович Size=300
$Repl2=@Dialog.Ask Введіть, на що це треба замінити Default=Петров Петро Петрович Size=300
%NetrebaRayon
;цикл по усіх об'єктах карти
$MC=@Map.Count
$N=0
%Start
$N=$N+1
$Text=@Map.Object[$N].TableText
$Text=@ReplaceChar "*$Text
$Text=@Calc replace("$Text","$Input","$Repl")
$Text=@DequoteText $Text
$Text=@Calc replace("$Text","$Input2","$Repl2")
$Text=@DequoteText $Text
$Text=@ReplaceChar *"$Text
@Map.Object[$N].TableText $Text
@Map.RefreshObject $N
%Next
@if $N<$MC then @Goto %Start

$Dialog=@Dialog.Select Запитати, що замінювати?|так|ні
@if $Dialog=0 then @Break
$Input=Іванов
$Repl=Петров
@if $Dialog=ні then @Goto %NoDialog
$Input=@Dialog.Ask Введіть, що треба замінити Default=ицький Size=300
$Repl=@Dialog.Ask Введіть, на що це треба замінити Default=одський Size=300
%NoDialog
;цикл по усіх об'єктах карти
$MC=@Map.Count
$N=0
%Start
$N=$N+1
$Text=@Map.Object[$N].TableText
$Text=@ReplaceChar "*$Text
@if "$Text"="" then @Goto %Next
$Text=@Calc replace("$Text","$Input","$Repl")
$Text=@DequoteText $Text
$Text=@ReplaceChar *"$Text
@Map.Object[$N].TableText $Text
@Map.RefreshObject $N
%Next
@if $N<$MC then @Goto %Start

$Dialog=@Dialog.Select Це Грипась Ольга?|так|ні
@if $Dialog=0 then @Break
$Input=Костюк О.В.
$Repl=Грипась О.П.
@if $Dialog=ні then @Goto %NoDialog
;$Input=@Dialog.Ask Введіть, що треба замінити Default=Костюк Оксана Size=300
;$Repl=@Dialog.Ask Введіть, на що це треба замінити Default=Грипась Ольга Size=300
$Input=Костюк Оксана Вікторівна
$Repl=Грипась Ольга Павлівна
%NoDialog
;цикл по усіх об'єктах карти
$MC=@Map.Count
$N=0
%Start
$N=$N+1
$Text=@Map.Object[$N].TableText
$Text=@ReplaceChar "*$Text
@if "$Text"="" then @Goto %Next
$Text=@Calc replace("$Text","$Input","$Repl")
$Text=@DequoteText $Text
$Text=@ReplaceChar *"$Text
@Map.Object[$N].TableText $Text
@Map.RefreshObject $N
%Next
@if $N<$MC then @Goto %Start

$V=@Calc Char(124)
$V=@DequoteText $V
$Dialog=@Dialog.Select Це Грипась Ольга?|так|ні
@if $Dialog=0 then @Break
$Input=Костюк О.В.
$Repl=Грипась О.П.
@if $Dialog=ні then @Goto %NoDialog
;$Input=@Dialog.Ask Введіть, що треба замінити Default=Костюк Оксана Size=300
;$Repl=@Dialog.Ask Введіть, на що це треба замінити Default=Грипась Ольга Size=300
$Input=Костюк $V$VОксана Вікторівна
$Repl=Грипась $V$VОльга Павлівна
%NoDialog
;цикл по усіх об'єктах карти
$MC=@Map.Count
$N=0
%Start
$N=$N+1
$Text=@Map.Object[$N].TableText
$Text=@ReplaceChar "*$Text
@if "$Text"="" then @Goto %Next
$Text=@Calc replace("$Text","$Input","$Repl")
$Text=@DequoteText $Text
$Text=@ReplaceChar *"$Text
@Map.Object[$N].TableText $Text
@Map.RefreshObject $N
%Next
@if $N<$MC then @Goto %Start