lamp
Сергей Ирюпин

Функция ПолучитьКодКЛАДРПоАдресу(Регион, Район, Город, НасПункт, Улица)

   KLADR = СоздатьОбъект("Справочник.KLADR");
   STREET = СоздатьОбъект("Справочник.STREET");

   KLADR.НайтиПоНаименованию(Регион);
   КодРегиона = Лев(KLADR.Код, 2);
   KLADR.НайтиПоНаименованию(Город + " #" + КодРегиона + "000");
   STREET.НайтиПоНаименованию(Улица + " #" + KLADR.Код);
   
   Возврат STREET.КодУлицы
КонецФункции // ПолучитьКодКЛАДРПоАдресу()

Функция глТранслитерация(СтрокаТекста)
   стрРус = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя";
   стрEng = "A///B///V///G///D///E///YO//ZH//Z///I///Y///K///L///M///N///O///P///R///S///T///U///F///H///TS//CH//SH//SHCH'///Y///'///E///YU//JA//a///b///v///g///d///e///yo//zh//z///i///y///k///l///m///n///o///p///r///s///t///u///f///h///ts//ch//sh//shch'///y///'///e///yu//ja//";
   Результат = "";
   Для Сч = 1 по СтрДлина(СтрокаТекста) Цикл
      Символ = Сред(СтрокаТекста, Сч, 1);
      Позиция = Найти(стрРус, Символ);
      Если Позиция = 0 Тогда
         Результат = Результат + Символ
      Иначе
         Результат = Результат + СтрЗаменить(Сред(стрEng, (Позиция - 1) * 4 + 1, 4), "/", "")
      КонецЕсли
   КонецЦикла;
   Возврат Результат
КонецФункции