Имя: Пароль:
1C
1С v8
v8: Фамилия по-английски
0 franchisees
 
08.11.12
10:44
Возможно ли параметр ИмяПредВиндуз2000 (фамилия) , чтоб проставлялась не на русском а на английском, я написал но так не работает (ИмяПредВиндуз2000,"Л=en_US"));

------------------
   ИмяПредВиндуз2000=СтрЗаменить(Фам," ","_");
   Отбор=";(&(objectClass=User)(sAMAccountName=" + ИмяПредВиндуз2000 + "));AdsPath;subTree";
 
Пользователь.Put("sAMAccountName", Формат(ИмяПредВиндуз2000,"Л=en_US"));
1 Рэйв
 
08.11.12
10:58
(0)Дарю:

//------------------
Рус=Новый Массив;
Лат=Новый Массив;
Рус.Добавить("А"); Лат.Добавить("A");
Рус.Добавить("Б"); Лат.Добавить("B");
Рус.Добавить("В"); Лат.Добавить("V");
Рус.Добавить("Г"); Лат.Добавить("G");
Рус.Добавить("Д"); Лат.Добавить("D");
Рус.Добавить("Е"); Лат.Добавить("E");
Рус.Добавить("Ё"); Лат.Добавить("YO");
Рус.Добавить("Ж"); Лат.Добавить("ZH");
Рус.Добавить("З"); Лат.Добавить("Z");
Рус.Добавить("И"); Лат.Добавить("I");
Рус.Добавить("Й"); Лат.Добавить("J");
Рус.Добавить("К"); Лат.Добавить("K");
Рус.Добавить("Л"); Лат.Добавить("L");
Рус.Добавить("М"); Лат.Добавить("M");
Рус.Добавить("Н"); Лат.Добавить("N");
Рус.Добавить("О"); Лат.Добавить("O");
Рус.Добавить("П"); Лат.Добавить("P");
Рус.Добавить("Р"); Лат.Добавить("R");
Рус.Добавить("С"); Лат.Добавить("S");
Рус.Добавить("Т"); Лат.Добавить("T");
Рус.Добавить("У"); Лат.Добавить("U");
Рус.Добавить("Ф"); Лат.Добавить("F");
Рус.Добавить("Х"); Лат.Добавить("H");
Рус.Добавить("Ц"); Лат.Добавить("TS");
Рус.Добавить("Ч"); Лат.Добавить("CH");
Рус.Добавить("Ш"); Лат.Добавить("SH");
Рус.Добавить("Щ"); Лат.Добавить("SCH");
Рус.Добавить("Ь"); Лат.Добавить("'");
Рус.Добавить("Ы"); Лат.Добавить("Y");
Рус.Добавить("Ъ"); Лат.Добавить("'");
Рус.Добавить("Э"); Лат.Добавить("E");
Рус.Добавить("Ю"); Лат.Добавить("YU");
Рус.Добавить("Я"); Лат.Добавить("YA");

Рус.Добавить("а"); Лат.Добавить("a");
Рус.Добавить("б"); Лат.Добавить("b");
Рус.Добавить("в"); Лат.Добавить("v");
Рус.Добавить("г"); Лат.Добавить("u");
Рус.Добавить("д"); Лат.Добавить("d");
Рус.Добавить("е"); Лат.Добавить("e");
Рус.Добавить("ё"); Лат.Добавить("yo");
Рус.Добавить("ж"); Лат.Добавить("zh");
Рус.Добавить("з"); Лат.Добавить("z");
Рус.Добавить("и"); Лат.Добавить("i");
Рус.Добавить("й"); Лат.Добавить("j");
Рус.Добавить("к"); Лат.Добавить("k");
Рус.Добавить("л"); Лат.Добавить("l");
Рус.Добавить("м"); Лат.Добавить("m");
Рус.Добавить("н"); Лат.Добавить("n");
Рус.Добавить("о"); Лат.Добавить("o");
Рус.Добавить("п"); Лат.Добавить("p");
Рус.Добавить("р"); Лат.Добавить("r");
Рус.Добавить("с"); Лат.Добавить("s");
Рус.Добавить("т"); Лат.Добавить("t");
Рус.Добавить("у"); Лат.Добавить("u");
Рус.Добавить("ф"); Лат.Добавить("f");
Рус.Добавить("х"); Лат.Добавить("h");
Рус.Добавить("ц"); Лат.Добавить("ts");
Рус.Добавить("ч"); Лат.Добавить("ch");
Рус.Добавить("ш"); Лат.Добавить("sh");
Рус.Добавить("щ"); Лат.Добавить("sch");
Рус.Добавить("ь"); Лат.Добавить("'");
Рус.Добавить("ы"); Лат.Добавить("y");
Рус.Добавить("ъ"); Лат.Добавить("'");
Рус.Добавить("э"); Лат.Добавить("e");
Рус.Добавить("ю"); Лат.Добавить("yu");
Рус.Добавить("я"); Лат.Добавить("ya");

Латинское="";
Для н=1 по СтрДлина(Русское) Цикл
   Сим=Сред(Русское,н,1);
   Инд=Рус.Найти(Сим);
   Если Инд<>Неопределено Тогда
       Сим=Лат[Инд];
   КонецЕсли;    
   Латинское=Латинское+Сим;
Конеццикла;
2 franchisees
 
08.11.12
10:58
Не совсем наверное понятно, вот тот результат который получим в переменную Формат(Л=en_US") 1с 8 , т.е будет какая нибудь фамилия : Ивано, Петров, возможно ли перевести на английский
3 franchisees
 
08.11.12
10:59
(1) спасибо
4 Zmich
 
08.11.12
11:00
(1). Рус.Добавить("г"); Лат.Добавить("u");

- описка тут
5 Рэйв
 
08.11.12
11:01
(4)Ну да. Пусть проверит или сам составит:-)
Главное принцип понятен
6 Serg_1960
 
08.11.12
11:03
Хмм... транслитерация и транскрипция - разные понятия, разный принцип :(
7 Рэйв
 
08.11.12
11:04
(6)Транскрипия - это вообще запись фонетического ряда. Скорее всего ТС как раз транслитерация и нужна
8 Serg_1960
 
08.11.12
11:16
(7) Возможно ты прав. Автор не уточнил где он хочет фамилии писать и что "там" важнее - написание или произношение.
9 franchisees
 
08.11.12
14:31
не могу понять  Латинское=Латинское+Сим; у меня к фамилии цепляется и английская фамилия, например ИвановIvanov подскажите как прописать чтоб только английская
10 pavelul73
 
08.11.12
14:45
Латинское=Сим?
11 franchisees
 
08.11.12
14:47
Одну букву ставит по англ
12 Serg_1960
 
08.11.12
15:37
"Хлебом не корми - дай переделать"(с)

Функция Транслитерация(РусТекст)
   Рус = "   А  Б  В  Г  Д  Е  Ё  Ж  З  И  Й  К  Л  М  Н  О  П  Р  С  Т  У  Ф  Х  Ц  Ч  Ш  Щ  Ь  Ы  Ъ  Э  Ю  Я  "; Рус = Рус + НРег(Рус);
   Лат = "_  A  B  V  G  D  E  YO ZH Z  I  J  K  L  M  N  O  P  R  S  T  U  F  H  TS CH SH SCH'  Y  '  E  YU YA "; Лат = Лат + НРег(Лат);
   ЛатТекст = "";
   Для х = 1 по СтрДлина(РусТекст) Цикл
       Буква = Сред(РусТекст,х,1);
       Позиция = Найти(Рус,Буква);
       Если Позиция <> 0 Тогда
           Буква = СокрП(Сред(Лат,Позиция,3));
           Буква = ?(Буква = "_", " ", Буква);
       КонецЕсли;
       ЛатТекст = ЛатТекст + Буква;
   КонецЦикла;
   Возврат ЛатТекст;
КонецФункции
13 Нуф-Нуф
 
08.11.12
15:39
Паспортная служба в загранпаспорте жены написана Анастасия=Anastasiia. капец. каким транслитом они пользовались???
14 beer_fan
 
08.11.12
15:44
(13) Обычным, буква "и" на конце дала первую "i", а буква "я" сочетание "ia", вот и получилась такая хрень...