В начало

Адрес без индекса

 

            Есть исходная строка вида: «105037, Москва г, Первомайская ул, дом 7». Нужно на выходи получить адрес, но без индекса.

 

Листинг. Функция

Функция АдресБезИндекса(ИсхСтр)

            //ИсхСтр ="105037, Москва г, Первомайская ул, дом 7";

            СтрОбл = ", ";

           

            Поз1Нач = СтрНайти(ИсхСтр, СтрОбл, , 1, 1);

            Поз1Кон = Поз1Нач + 2;       

            Поз2Кон = СтрДлина(ИсхСтр);

           

            ВыхСтр = Сред(ИсхСтр, Поз1Кон, Поз2Кон - Поз1Кон + 1); 

           

            Возврат ВыхСтр;

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

 

 

            Тестируем в режиме отладки.

Рис. Выражение на точке останова, после парсинга адреса