Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 20 ноя 2017 11:18

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Як замінити англійську букву "i" на українську?
СообщениеДобавлено: 19 май 2014 10:39 
Гуру
Гуру

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

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Як замінити англійську букву "i" на українську?
СообщениеДобавлено: 19 май 2014 13:51 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 1863
Откуда: Vinnitsa
Утіліта для пошуку та заміни

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Як замінити англійську букву "i" на українську?
СообщениеДобавлено: 19 май 2014 15:26 
Гуру
Гуру

Зарегистрирован:
05 апр 2012 10:20
Сообщения: 466
Складновато трохи користуватися ще одною прогою. Але це вже щось. Дякую

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

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Як замінити англійську букву "i" на українську?
СообщениеДобавлено: 25 май 2014 10:23 
Гуру
Гуру

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

_________________
додатково про скрипти Digitals на www.digitals.at.ua


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB