Як замінити англійську букву "i" на українську?

Старий форум
1

У файлах IN4, зроблених ще в програмі Інвент-Град у словах українська буква “і” писалася латиницею. Зараз виникла проблема через це, бо у файлі XML всі символи мають бути кирилицею. Чи є якась функція, я якщо нема, то добавте, будь-ласка, щоб в тексті всі латинські символи перетворювалися у кириличні.
Або хоча б добавте можливість пошуку по всьому тексту файла із можливою заміною окремого тексту, в даному випадку букви. Дякую.

2

Утіліта для пошуку та заміни

3

Складновато трохи користуватися ще одною прогою. Але це вже щось. Дякую

А є функція, яка перетворює римські цифри в арабські?

4

якщо нема, то буде)) Ось скрипт, який виконує таке завдання

@Map.DeselectAll @Map.SelectLayer ID10000 $GL=@Map.Selected.GetParameter GL @Map.DeselectAll @Map.SelectLayer ID20000 $AD=@Map.Selected.GetParameter AD $NM=@Map.Selected.GetParameter NM $TX=@Map.Selected.GetParameter TX $AU=@Map.Selected.GetParameter AU $PZ=@Map.Selected.GetParameter PZ $TD=@Map.Selected.GetParameter TD $New=@Calc Replace("$GL","I","І",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","i","і",1,0) $New=@DequoteText $New @Map.Selected.ChangeParameter id10070 $New $New=@Calc Replace("$AD","I","І",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","i","і",1,0) $New=@DequoteText $New @Map.Selected.ChangeParameter id20020 $New $New=@Calc Replace("$NM","I","І",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","i","і",1,0) $New=@DequoteText $New @Map.Selected.ChangeParameter id20030 $New $New=@Calc Replace("$TX","I","І",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","i","і",1,0) $New=@DequoteText $New @Map.Selected.ChangeParameter id20040 $New $New=@Calc Replace("$AU","I","І",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","i","і",1,0) $New=@DequoteText $New @Map.Selected.ChangeParameter id20070 $New $New=@Calc Replace("$TD","I","І",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","i","і",1,0) $New=@DequoteText $New @Map.Selected.ChangeParameter id20180 $New $New=@Calc Replace("$PZ","XXX","30",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XXIX","29",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XXVIII","28",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XXVII","27",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XXVI","26",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XXV","25",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XXIV","24",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XXIII","23",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XXII","22",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XXI","21",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XX","20",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XIX","19",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XVIII","18",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XVII","17",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XVI","16",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XV","15",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XIV","14",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XIII","13",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XII","12",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","XI","11",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","IX","9",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","X","10",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","VIII","8",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","VII","7",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","VI","6",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","IV","4",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","V","5",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","III","3",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","II","2",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","I","1",1,0) $New=@DequoteText $New @Map.Selected.ChangeParameter id20160 $New $New=@Calc Replace("$New","i","і",1,0) $New=@DequoteText $New @Map.Selected.ChangeParameter id20160 $New @Map.DeselectAll $MC=@Map.Count $N1=0 @Map.DeselectAll %Pochatok $N1=$N1+1 $LID=@Map.Object[$N1].LayerID @If $LID<>50000 then @Goto %Next $P1=@Map.Object[$N1].Parameter[ID20030] $New=@Calc Replace("$P1","I","І",1,0) $New=@DequoteText $New $New=@Calc Replace("$New","i","і",1,0) $New=@DequoteText $New @Map.Object[$N1].Parameter[id20030]=$New @Map.DeselectObject $N1 %Next @if $N1<$MC then @Goto %Pochatok