gifts2017

Транслитерация по Госдепу

Опубликовал Евгений worker (worker1c) в раздел Программирование - Практика программирования

Система транслитерации из кириллического алфавита в латинский алфавит, используемая Госдепартаментом США на JavaScript

Данный скрипт транслитерации из кириллического алфавита в латинский алфавит используется для создания пользователей в службе Active Directory. Стандартом транслитерации являются правила, используемые Госдепаратаментом США. В вверхней части вводится имена в кириллице, в нижней получаем имена для учетных записей.

Например:
Мария.Петрова
Петр.Иванов
Сергей.Кужеготович

Получаем:
Mariya.Petrova
Petr.Ivanov
Sergey.Kuzhegotovich

Возможно, кто-то найдет иное применение. Например, назначение имен пользователей для 1С:Предприятие.

Для запуска не нужна программа 1С, достаточно открыть HTML-файл. Обработку по транслитерации в системе 1С с выбором правил можно скачать тут http://infostart.ru/public/195223/.

Функции используемые для транслитерации:

function sr(search, replace, subject) {

return subject.replace(new RegExp (search, 'g'), replace);
}

function send(){
var val = document.getElementById('text').value;
var t = val;

t = sr('ъе','ye',t); t = sr('Ъе','Ye',t);
t = sr('ье','ye',t); t = sr('Ье','Ye',t);
t = sr('ае','aye',t); t = sr('Ае','Aye',t);
t = sr('ее','eye',t); t = sr('Ее','Eye',t);
t = sr('ёе','eye',t); t = sr('Ёе','Eye',t);
t = sr('ие','iye',t); t = sr('Ие','Iye',t);
t = sr('ое','oye',t); t = sr('Ое','Oye',t);
t = sr('юе','yeye',t); t = sr('Юе','Yeye',t);
t = sr('эе','eye',t); t = sr('Эе','Eye',t);
t = sr('яё','yaye',t); t = sr('Яё','Yaye',t);
t = sr('ъё','ye',t); t = sr('Ъё','Ye',t);
t = sr('ьё','ye',t); t = sr('Ьё','Ye',t);
t = sr('аё','aye',t); t = sr('Аё','Aye',t);
t = sr('ёё','eye',t); t = sr('Ёё','Eye',t);
t = sr('ёё','eye',t); t = sr('Ёё','Eye',t);
t = sr('иё','iye',t); t = sr('Иё','Iye',t);
t = sr('оё','oye',t); t = sr('Оё','Oye',t);
t = sr('юё','yeye',t); t = sr('Юё','Yeye',t);
t = sr('эё','eye',t); t = sr('Эё','Eye',t);
t = sr('яё','yaye',t); t = sr('Яё','Yaye',t);

t = sr('а','a',t); t = sr('А','A',t);
t = sr('б','b',t); t = sr('Б','B',t);
t = sr('в','v',t); t = sr('В','V',t);
t = sr('г','g',t); t = sr('Г','G',t);
t = sr('д','d',t); t = sr('Д','D',t);
t = sr('е','e',t); t = sr('Е','E',t);
t = sr('ё','e',t); t = sr('Ё','E',t);
t = sr('ж','zh',t); t = sr('Ж','Zh',t);
t = sr('з','z',t); t = sr('З','Z',t);
t = sr('и','i',t); t = sr('И','I',t);
t = sr('й','y',t); t = sr('Й','Y',t);
t = sr('к','k',t); t = sr('К','K',t);
t = sr('л','l',t); t = sr('Л','L',t);
t = sr('м','m',t); t = sr('М','M',t);
t = sr('н','n',t); t = sr('Н','N',t);
t = sr('о','o',t); t = sr('О','O',t);
t = sr('п','p',t); t = sr('П','P',t);
t = sr('р','r',t); t = sr('Р','R',t);
t = sr('с','s',t); t = sr('С','S',t);
t = sr('т','t',t); t = sr('Т','T',t);
t = sr('у','u',t); t = sr('У','U',t);
t = sr('ф','f',t); t = sr('Ф','F',t);
t = sr('х','kh',t); t = sr('Х','Kh',t);
t = sr('ц','ts',t); t = sr('Ц','Ts',t);
t = sr('ч','ch',t); t = sr('Ч','Ch',t);
t = sr('ш','sh',t); t = sr('Ш','Sh',t);
t = sr('щ','shch',t); t = sr('Щ','Shch',t);
t = sr('ъ','',t); t = sr('Ъ','',t);
t = sr('ы','y',t); t = sr('Ы','Y',t);
t = sr('ь','',t); t = sr('Ь','',t);
t = sr('э','e',t); t = sr('Э','E',t);
t = sr('ю','yu',t); t = sr('Ю','Yu',t);
t = sr('я','ya',t); t = sr('Я','Ya',t);

if (val == val.toUpperCase()) {t = t.toUpperCase();}

document.getElementById('result').value=t;
}

Скачать файлы

Наименование Файл Версия Размер
translit_gosdep.html 2
.html 5,69Kb
30.07.13
2
.html 5,69Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Александр Зубцов (iov) 18.09.13 17:53
Функция транслитерацияВАнгл(Текст)  экспорт
Текст = СтрЗаменить(Текст,"ъе","ye"); Текст = СтрЗаменить(Текст,"Ъе","Ye");
Текст = СтрЗаменить(Текст,"ье","ye"); Текст = СтрЗаменить(Текст,"Ье","Ye");
Текст = СтрЗаменить(Текст,"ае","aye"); Текст = СтрЗаменить(Текст,"Ае","Aye");
Текст = СтрЗаменить(Текст,"ее","eye"); Текст = СтрЗаменить(Текст,"Ее","Eye");
Текст = СтрЗаменить(Текст,"ёе","eye"); Текст = СтрЗаменить(Текст,"Ёе","Eye");
Текст = СтрЗаменить(Текст,"ие","iye"); Текст = СтрЗаменить(Текст,"Ие","Iye");
Текст = СтрЗаменить(Текст,"ое","oye"); Текст = СтрЗаменить(Текст,"Ое","Oye");
Текст = СтрЗаменить(Текст,"юе","yeye"); Текст = СтрЗаменить(Текст,"Юе","Yeye");
Текст = СтрЗаменить(Текст,"эе","eye"); Текст = СтрЗаменить(Текст,"Эе","Eye");
Текст = СтрЗаменить(Текст,"яё","yaye"); Текст = СтрЗаменить(Текст,"Яё","Yaye");
Текст = СтрЗаменить(Текст,"ъё","ye"); Текст = СтрЗаменить(Текст,"Ъё","Ye");
Текст = СтрЗаменить(Текст,"ьё","ye"); Текст = СтрЗаменить(Текст,"Ьё","Ye");
Текст = СтрЗаменить(Текст,"аё","aye"); Текст = СтрЗаменить(Текст,"Аё","Aye");
Текст = СтрЗаменить(Текст,"ёё","eye"); Текст = СтрЗаменить(Текст,"Ёё","Eye");
Текст = СтрЗаменить(Текст,"ёё","eye"); Текст = СтрЗаменить(Текст,"Ёё","Eye");
Текст = СтрЗаменить(Текст,"иё","iye"); Текст = СтрЗаменить(Текст,"Иё","Iye");
Текст = СтрЗаменить(Текст,"оё","oye"); Текст = СтрЗаменить(Текст,"Оё","Oye");
Текст = СтрЗаменить(Текст,"юё","yeye"); Текст = СтрЗаменить(Текст,"Юё","Yeye");
Текст = СтрЗаменить(Текст,"эё","eye"); Текст = СтрЗаменить(Текст,"Эё","Eye");
Текст = СтрЗаменить(Текст,"яё","yaye"); Текст = СтрЗаменить(Текст,"Яё","Yaye");

Текст = СтрЗаменить(Текст,"а","a"); Текст = СтрЗаменить(Текст,"А","A");
Текст = СтрЗаменить(Текст,"б","b"); Текст = СтрЗаменить(Текст,"Б","B");
Текст = СтрЗаменить(Текст,"в","v"); Текст = СтрЗаменить(Текст,"В","V");
Текст = СтрЗаменить(Текст,"г","g"); Текст = СтрЗаменить(Текст,"Г","G");
Текст = СтрЗаменить(Текст,"д","d"); Текст = СтрЗаменить(Текст,"Д","D");
Текст = СтрЗаменить(Текст,"е","e"); Текст = СтрЗаменить(Текст,"Е","E");
Текст = СтрЗаменить(Текст,"ё","e"); Текст = СтрЗаменить(Текст,"Ё","E");
Текст = СтрЗаменить(Текст,"ж","zh"); Текст = СтрЗаменить(Текст,"Ж","Zh");
Текст = СтрЗаменить(Текст,"з","z"); Текст = СтрЗаменить(Текст,"З","Z");
Текст = СтрЗаменить(Текст,"и","i"); Текст = СтрЗаменить(Текст,"И","I");
Текст = СтрЗаменить(Текст,"й","y"); Текст = СтрЗаменить(Текст,"Й","Y");
Текст = СтрЗаменить(Текст,"к","k"); Текст = СтрЗаменить(Текст,"К","K");
Текст = СтрЗаменить(Текст,"л","l"); Текст = СтрЗаменить(Текст,"Л","L");
Текст = СтрЗаменить(Текст,"м","m"); Текст = СтрЗаменить(Текст,"М","M");
Текст = СтрЗаменить(Текст,"н","n"); Текст = СтрЗаменить(Текст,"Н","N");
Текст = СтрЗаменить(Текст,"о","o"); Текст = СтрЗаменить(Текст,"О","O");
Текст = СтрЗаменить(Текст,"п","p"); Текст = СтрЗаменить(Текст,"П","P");
Текст = СтрЗаменить(Текст,"р","r"); Текст = СтрЗаменить(Текст,"Р","R");
Текст = СтрЗаменить(Текст,"с","s"); Текст = СтрЗаменить(Текст,"С","S");
Текст = СтрЗаменить(Текст,"т","t"); Текст = СтрЗаменить(Текст,"Т","T");
Текст = СтрЗаменить(Текст,"у","u"); Текст = СтрЗаменить(Текст,"У","U");
Текст = СтрЗаменить(Текст,"ф","f"); Текст = СтрЗаменить(Текст,"Ф","F");
Текст = СтрЗаменить(Текст,"х","kh"); Текст = СтрЗаменить(Текст,"Х","Kh");
Текст = СтрЗаменить(Текст,"ц","ts"); Текст = СтрЗаменить(Текст,"Ц","Ts");
Текст = СтрЗаменить(Текст,"ч","ch"); Текст = СтрЗаменить(Текст,"Ч","Ch");
Текст = СтрЗаменить(Текст,"ш","sh"); Текст = СтрЗаменить(Текст,"Ш","Sh");
Текст = СтрЗаменить(Текст,"щ","shch"); Текст = СтрЗаменить(Текст,"Щ","Shch");
Текст = СтрЗаменить(Текст,"ъ",""); Текст = СтрЗаменить(Текст,"Ъ","");
Текст = СтрЗаменить(Текст,"ы","y"); Текст = СтрЗаменить(Текст,"Ы","Y");
Текст = СтрЗаменить(Текст,"ь",""); Текст = СтрЗаменить(Текст,"Ь","");
Текст = СтрЗаменить(Текст,"э","e"); Текст = СтрЗаменить(Текст,"Э","E");
Текст = СтрЗаменить(Текст,"ю","yu"); Текст = СтрЗаменить(Текст,"Ю","Yu");
Текст = СтрЗаменить(Текст,"я","ya"); Текст = СтрЗаменить(Текст,"Я","Ya");
	 
	 
Возврат(Текст);
конецФункции 
...Показать Скрыть