Аналитика 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/ |