Функция ПарсАдрес(вхАдрес)

            стрАдрес = СокрЛП(вхАдрес);

            мАдрес = СтрРазделить(стрАдрес, ",",);

            Если СтрЧислоВхождений(стрАдрес, ",") = 3 Тогда

                        Город = мАдрес[0];

                        Улица = СокрЛП(мАдрес[1]);

                        Дом = Сред(СокрЛП(мАдрес[2]), 3);//убрать: [д.]

                        Квартира = Сред(СокрЛП(мАдрес[3]), 4);//убрать: [кв.]

            Иначе

                        Сообщить("Адрес не полный: " + вхАдрес);

                        Имя = "";

                        Отчество = "";

            КонецЕсли;

            Адрес = Новый Структура();

            Адрес.Вставить("Город", Город);

            Адрес.Вставить("Улица", Улица);

            Адрес.Вставить("Дом", Дом);

            Адрес.Вставить("Квартира", Квартира);

            Возврат Адрес;

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

&НаКлиенте

Процедура ПарсингАдреса(Команда)

            вхАдрес = "г.Новый, ул.Проектируемая, д.1, кв.8";

            ПарсАдрес(вхАдрес);

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