Аналитика
http://www.geosystema.net/forum/

Як замінити англійську букву "i" на українську?
http://www.geosystema.net/forum/viewtopic.php?f=1&t=16713
Страница 1 из 1

Автор:  fendak [ 19 май 2014 10:39 ]
Заголовок сообщения:  Як замінити англійську букву "i" на українську?

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

Автор:  Dmitry_Zolotar [ 19 май 2014 13:51 ]
Заголовок сообщения:  Re: Як замінити англійську букву "i" на українську?

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

Автор:  fendak [ 19 май 2014 15:26 ]
Заголовок сообщения:  Re: Як замінити англійську букву "i" на українську?

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

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

Автор:  fendak [ 25 май 2014 10:23 ]
Заголовок сообщения:  Re: Як замінити англійську букву "i" на українську?

якщо нема, то буде)) Ось скрипт, який виконує таке завдання
Код:
@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

Страница 1 из 1 Часовой пояс: UTC + 2 часа
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/