Имя: Пароль:
1C
 
Перевод Фио на английский язык
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
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан