Из кирилицы в латынь 1С

Процедура ОбработатьНомерДокументаИзХМЛСУчетомПрефиксаНаКирилице(_Строка)

НомерДокумента = КирВЛат(_Строка)

КонецПроцедуры

Функция КирВЛат(Слово)Экспорт

Латиница= "";

СоотвБукв = новый СписокЗначений;

//Кириллица

СоотвБукв.Добавить("й","j");

СоотвБукв.Добавить("ц","c");

СоотвБукв.Добавить("у","u");

СоотвБукв.Добавить("к","k");

СоотвБукв.Добавить("е","e");

СоотвБукв.Добавить("н","n");

СоотвБукв.Добавить("г","g");

СоотвБукв.Добавить("ш","sh");

СоотвБукв.Добавить("щ","sch");

СоотвБукв.Добавить("з","z");

СоотвБукв.Добавить("х","h");

СоотвБукв.Добавить("ъ","#");

СоотвБукв.Добавить("ф","f");

СоотвБукв.Добавить("ы","y");

СоотвБукв.Добавить("в","v");

СоотвБукв.Добавить("а","a");

СоотвБукв.Добавить("п","p");

СоотвБукв.Добавить("р","r");

СоотвБукв.Добавить("о","o");

СоотвБукв.Добавить("л","l");

СоотвБукв.Добавить("д","d");

СоотвБукв.Добавить("ж","zh");

СоотвБукв.Добавить("э""je");

СоотвБукв.Добавить("я","ya");

СоотвБукв.Добавить("ч","ch");

СоотвБукв.Добавить("с","s");

СоотвБукв.Добавить("м","m");

СоотвБукв.Добавить("и","i");

СоотвБукв.Добавить("т","t");

СоотвБукв.Добавить("ь","'");

СоотвБукв.Добавить("б","b");

СоотвБукв.Добавить("ю","ju");

СоотвБукв.Добавить("ё","jo");

//Латиница

СоотвБукв.Добавить("i","i");

СоотвБукв.Добавить("q","q");

СоотвБукв.Добавить("w","w");

СоотвБукв.Добавить("e","e");

СоотвБукв.Добавить("r","r");

СоотвБукв.Добавить("t","t");

СоотвБукв.Добавить("y","y");

СоотвБукв.Добавить("u","u");

СоотвБукв.Добавить("i","i");

СоотвБукв.Добавить("o","o");

СоотвБукв.Добавить("p","p");

СоотвБукв.Добавить("","");

СоотвБукв.Добавить("a","a");

СоотвБукв.Добавить("s","s");

СоотвБукв.Добавить("d","d");

СоотвБукв.Добавить("э","e");

СоотвБукв.Добавить("ы","i");

СоотвБукв.Добавить("f","f");

СоотвБукв.Добавить("g","g");

СоотвБукв.Добавить("h","h");

СоотвБукв.Добавить("j","j");

СоотвБукв.Добавить("k","k");

СоотвБукв.Добавить("l","l");

СоотвБукв.Добавить("z","z");

СоотвБукв.Добавить("х","x");

СоотвБукв.Добавить("c","c");

СоотвБукв.Добавить("v","v");

СоотвБукв.Добавить("b","b");

СоотвБукв.Добавить("n","n");

СоотвБукв.Добавить("m","m");

//Прочее

СоотвБукв.Добавить(" "," ");

СоотвБукв.Добавить("""","""");

СоотвБукв.Добавить("-","-");

СоотвБукв.Добавить(".",".");

СоотвБукв.Добавить(",",",");

СоотвБукв.Добавить("/","/");

СоотвБукв.Добавить("\","\");

СоотвБукв.Добавить("*","*");

СоотвБукв.Добавить("#","#");

СоотвБукв.Добавить("#","№");

СоотвБукв.Добавить("|","|");

СоотвБукв.Добавить("!","!");

СоотвБукв.Добавить("?","?");

СоотвБукв.Добавить("$","$");

СоотвБукв.Добавить("%","%");

СоотвБукв.Добавить("@","@");

СоотвБукв.Добавить("&","&");

СоотвБукв.Добавить("=","=");

СоотвБукв.Добавить("+","+");

СоотвБукв.Добавить("~","~");

СоотвБукв.Добавить("'","'");

СоотвБукв.Добавить("`","`");

СоотвБукв.Добавить(":",":");

СоотвБукв.Добавить(";",";");

СоотвБукв.Добавить("(","(");

СоотвБукв.Добавить(")",")");

СоотвБукв.Добавить("[","[");

СоотвБукв.Добавить("]","]");

СоотвБукв.Добавить("}","}");

СоотвБукв.Добавить("{","{");

//Цифры

СоотвБукв.Добавить("0","0");

СоотвБукв.Добавить("1","1");

СоотвБукв.Добавить("2","2");

СоотвБукв.Добавить("3","3");

СоотвБукв.Добавить("4","4");

СоотвБукв.Добавить("5","5");

СоотвБукв.Добавить("6","6");

СоотвБукв.Добавить("7","7");

СоотвБукв.Добавить("8","8");

СоотвБукв.Добавить("9","9");

Для а=1 по СтрДлина(Слово) Цикл

Латиница = Латиница + СоотвБукв.НайтиПоЗначению(НРЕГ(Сред(Слово,а,1)));

КонецЦикла;

Возврат ВРЕГ(Латиница)

КонецФункции