![]() |
![]() |
![]() |
|
Перевод Фио на английский язык | ☑ | ||
---|---|---|---|---|
0
ОМЭЗ
01.08.08
✎
15:04
|
Подскажите как перевести ФИО на английский язык
|
|||
1
artsys
01.08.08
✎
15:06
|
Дословно или литературно?
|
|||
2
Immortal
01.08.08
✎
15:06
|
||||
3
TM
01.08.08
✎
15:06
|
с особым цинизмом
|
|||
4
artsys
01.08.08
✎
15:07
|
типа Иван = John?
|
|||
5
ОМЭЗ
01.08.08
✎
15:07
|
А если серьоздно нет ли какойто фун-ии
Нужно чтоб оно Фио написало английскими буквами |
|||
6
ОМЭЗ
01.08.08
✎
15:08
|
(4)Да типа того
|
|||
7
Salvador Limones
01.08.08
✎
15:06
|
Обычно пишут First/Middle/Last name
|
|||
8
artsys
01.08.08
✎
15:09
|
||||
9
ОМЭЗ
01.08.08
✎
15:09
|
(7)Подскажи пожалуйста где такое пишут
|
|||
10
butterbean
01.08.08
✎
15:12
|
(9) быстрее бы уже свою функцию написал, чем тут .... ветки плодить :-)
|
|||
11
Salvador Limones
01.08.08
✎
15:11
|
(9) Вот после (4) и (6) я вообще не пойму, что тебе нужно.
|
|||
12
ОМЭЗ
01.08.08
✎
15:14
|
(11) Короче идёт выборка По сотрудникам и мне нужно получать Фио сотрудника английскими буквами.Как такое сделать?
|
|||
13
ОМЭЗ
01.08.08
✎
15:15
|
(10)Ты хоть понимаешь как её писать?
|
|||
14
NiXeR
01.08.08
✎
15:16
|
Стр = "Сергей";
СтрВыход=""; СтрЗамена=" |А-A;Б-B;В-V;Г-G;Д-D;Е-E;Ж-J;З-Z;И-I;Й-I;К-K;Л-L;М-M;Н-N;О-O;П-P;Р-R;С-S;Т-T;У-U;Ф-F;Х-H;Ц-C;Ч-X;Ш-W;Ю-Q;Я-Y; |а-a;б-b;в-v;г-g;д-d;е-e;ж-j;з-z;и-i;й-i;к-k;л-l;м-m;н-n;о-o;п-p;р-r;с-s;т-t;у-u;ф-f;х-h;ц-c;ч-x;ш-w;ю-q;я-y;"; Для К=1 по СтрДлина(Стр) Цикл Символ=Сред(Стр,К,1); Ном=Найти(СтрЗамена,Символ+"-"); Если Ном=0 Тогда Ном=Найти(СтрЗамена,"-"+Символ); Если Ном=0 Тогда СтрВыход=СтрВыход+Символ; Иначе СтрВыход=СтрВыход+Сред(СтрЗамена,Ном-1,1); КонецЕсли; Иначе СтрВыход=СтрВыход+Сред(СтрЗамена,Ном+2,1); КонецЕсли; КонецЦикла; Сообщить(СтрВыход) |
|||
15
Pasha
01.08.08
✎
15:17
|
(13) Раньше видел в телеграфе табличку соответствия русских букв и латинских для отправки телеграмм за границу. Поищи в инете такую, мож поможет
|
|||
16
Immortal
01.08.08
✎
15:18
|
(14) неа..
х = kh ,например |
|||
17
butterbean
01.08.08
✎
15:21
|
(13) понимаю :-)
самый простой вариант: СтрЗаменить("ф","f"); СтрЗаменить("д","d"); ............ и так далее..... по алфавиту |
|||
18
ado
01.08.08
✎
15:19
|
(6) Так перевод или транслит? Перевод как в (4) в общем случае получить не возможно. А транслит -- смотрим табличку отсюда http://ru.wikipedia.org/wiki/ISO_9#.D0.A2.D0.B0.D0.B1.D0.BB.D0.B8.D1.86.D0.B0_2 , и заменяем побуквенно.
|
|||
19
hhhh
01.08.08
✎
15:23
|
(13) самое правильное: завести поле на форме и пусть пользователи сами вносят.
|
|||
20
ОМЭЗ
01.08.08
✎
15:26
|
В ЦРМ есть стандартная обработка
|
|||
21
smaharbA
01.08.08
✎
15:26
|
+(16) ц == ts
|
|||
22
ОМЭЗ
01.08.08
✎
15:27
|
Типпа смс
|
|||
23
ОМЭЗ
01.08.08
✎
15:28
|
Об = Обработки.CRM_SMSКоммуникатор.Создать();
Об.ЗаполнитьСписокСоответствий(); ТемаСообщения = Об.Транслитерация(Тема); ТекстСообщения = Об.Транслитерация(Содержание); |
|||
24
NiXeR
01.08.08
✎
15:32
|
(16)
Стр = "Сергей"; СтрВыход=""; СоответстиеТранслит = Новый Соответствие; СоответстиеТранслит.Вставить("А","A"); СоответстиеТранслит.Вставить("Б","B"); СоответстиеТранслит.Вставить("В","V"); СоответстиеТранслит.Вставить("Г","G"); СоответстиеТранслит.Вставить("Д","D"); СоответстиеТранслит.Вставить("Е","E"); СоответстиеТранслит.Вставить("Ж","J"); СоответстиеТранслит.Вставить("З","Z"); СоответстиеТранслит.Вставить("И","I"); СоответстиеТранслит.Вставить("Й","I"); СоответстиеТранслит.Вставить("К","K"); СоответстиеТранслит.Вставить("Л","L"); СоответстиеТранслит.Вставить("М","M"); СоответстиеТранслит.Вставить("Н","N"); СоответстиеТранслит.Вставить("О","O"); СоответстиеТранслит.Вставить("П","P"); СоответстиеТранслит.Вставить("Р","R"); СоответстиеТранслит.Вставить("С","S"); СоответстиеТранслит.Вставить("Т","T"); СоответстиеТранслит.Вставить("У","U"); СоответстиеТранслит.Вставить("Ф","F"); СоответстиеТранслит.Вставить("Х","H"); СоответстиеТранслит.Вставить("Ц","C"); СоответстиеТранслит.Вставить("Ч","X"); СоответстиеТранслит.Вставить("Ш","W"); СоответстиеТранслит.Вставить("Ю","Q"); СоответстиеТранслит.Вставить("Я","Y"); СоответстиеТранслит.Вставить("а","a"); СоответстиеТранслит.Вставить("б","b"); СоответстиеТранслит.Вставить("в","v"); СоответстиеТранслит.Вставить("г","g"); СоответстиеТранслит.Вставить("д","d"); СоответстиеТранслит.Вставить("е","e"); СоответстиеТранслит.Вставить("ж","j"); СоответстиеТранслит.Вставить("з","z"); СоответстиеТранслит.Вставить("и","i"); СоответстиеТранслит.Вставить("й","i"); СоответстиеТранслит.Вставить("к","k"); СоответстиеТранслит.Вставить("л","l"); СоответстиеТранслит.Вставить("м","m"); СоответстиеТранслит.Вставить("н","n"); СоответстиеТранслит.Вставить("о","o"); СоответстиеТранслит.Вставить("п","p"); СоответстиеТранслит.Вставить("р","r"); СоответстиеТранслит.Вставить("с","s"); СоответстиеТранслит.Вставить("т","t"); СоответстиеТранслит.Вставить("у","u"); СоответстиеТранслит.Вставить("ф","f"); СоответстиеТранслит.Вставить("х","h"); СоответстиеТранслит.Вставить("ц","c"); СоответстиеТранслит.Вставить("ч","x"); СоответстиеТранслит.Вставить("ш","w"); СоответстиеТранслит.Вставить("ю","q"); СоответстиеТранслит.Вставить("я","y"); Для К=1 по СтрДлина(Стр) Цикл Символ=Сред(Стр,К,1); Транслит = СоответстиеТранслит.Получить(Символ); Если Транслит = Неопределено Тогда СтрВыход=СтрВыход+Символ; Иначе СтрВыход=СтрВыход+Транслит; КонецЕсли; КонецЦикла; Сообщить(СтрВыход) |
|||
25
NiXeR
01.08.08
✎
15:34
|
+ (24)
И можно транлит делать на любой символ или слово |
|||
26
Мулька
01.08.08
✎
15:39
|
(24) У тебя в алфавите скока буков ? Ы - где ?
|
|||
27
NiXeR
01.08.08
✎
15:46
|
(26) потерялась, а ты ее нашел. Так и положи на место :)
П.С.: код писался на коленке. |
|||
28
YauheniL
01.08.08
✎
15:52
|
(0) FML
|
|||
29
AcaGost
01.08.08
✎
15:58
|
//******************************************************************************
//Соответствия() // // Параметры: // // Возвращаемое значение: Сп // // Описание: // Функция Соответствия() СЗ = СоздатьОбъект("СписокЗначений"); СЗ.ДобавитьЗначение("АЙ", "AY"); СЗ.ДобавитьЗначение("ЕЙ", "EY"); СЗ.ДобавитьЗначение("ИЙ", "Y"); СЗ.ДобавитьЗначение("ОЙ", "OY"); СЗ.ДобавитьЗначение("УЙ", "UY"); СЗ.ДобавитьЗначение("ЫЙ", "YY"); СЗ.ДобавитьЗначение("ЭЙ", "EY"); СЗ.ДобавитьЗначение("ЮЙ", "YUY"); СЗ.ДобавитьЗначение("ЯЙ", "YAY"); СЗ.ДобавитьЗначение("А", "A"); СЗ.ДобавитьЗначение("Б", "B"); СЗ.ДобавитьЗначение("В", "V"); СЗ.ДобавитьЗначение("Г", "G"); СЗ.ДобавитьЗначение("Д", "D"); СЗ.ДобавитьЗначение("Е", "E"); СЗ.ДобавитьЗначение("Ё", "E"); СЗ.ДобавитьЗначение("Ж", "ZH"); СЗ.ДобавитьЗначение("З", "Z"); СЗ.ДобавитьЗначение("И", "I"); СЗ.ДобавитьЗначение("Й", "Y"); СЗ.ДобавитьЗначение("К", "K"); СЗ.ДобавитьЗначение("Л", "L"); СЗ.ДобавитьЗначение("М", "M"); СЗ.ДобавитьЗначение("Н", "N"); СЗ.ДобавитьЗначение("О", "O"); СЗ.ДобавитьЗначение("П", "P"); СЗ.ДобавитьЗначение("Р", "R"); СЗ.ДобавитьЗначение("С", "S"); СЗ.ДобавитьЗначение("Т", "T"); СЗ.ДобавитьЗначение("У", "U"); СЗ.ДобавитьЗначение("Ф", "F"); СЗ.ДобавитьЗначение("Х", "KH"); СЗ.ДобавитьЗначение("Ц", "TS"); СЗ.ДобавитьЗначение("Ч", "CH"); СЗ.ДобавитьЗначение("Ш", "SH"); СЗ.ДобавитьЗначение("Щ", "SHCH"); СЗ.ДобавитьЗначение("Ъ", ""); СЗ.ДобавитьЗначение("Ы", "Y"); СЗ.ДобавитьЗначение("Ь", ""); СЗ.ДобавитьЗначение("Э", "E"); СЗ.ДобавитьЗначение("Ю", "YU"); СЗ.ДобавитьЗначение("Я", "YA"); Возврат СЗ; КонецФункции //Соответствия() //****************************************************************************** //Замена(СпСоотв, Т) // // Параметры:СпСоотв, Т // // Возвращаемое значение: Рез // // Описание: // Функция Замена(Сп, Т) Перем Рез; СчЦ = 0; Для СчЦ = 1 По Сп.РазмерСписка() Цикл Зн1 = ""; Зн = Сп.ПолучитьЗначение(СчЦ, Зн1); Т = СтрЗаменить(Т, Зн, Зн1); КонецЦикла; Возврат Т; КонецФункции //Замена(СпСоотв, Т) |
|||
30
ecology
01.08.08
✎
16:21
|
А есть из транслитерации -> обратно на русский?
|
|||
31
hhhh
01.08.08
✎
16:25
|
(29) надо вместо соответствия завести регистр сведений, тогда эти правила можно будет заводить в режиме предприятия.
|
|||
32
ado
01.08.08
✎
16:28
|
(16)(21) Смотрим стандарт и не изобретаем велосипед: http://ru.wikipedia.org/wiki/ISO_9#.D0.A2.D0.B0.D0.B1.D0.BB.D0.B8.D1.86.D0.B0_2
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |