7.7 Как убрать символы.

Доброй день. Считываю с ДБФ столбец со значениями:
г. "название города", 654787, ул. "название улицы",д. 34, кв. 7 или г. "название города", ул. "название улицы",д. 34, кв. 7.
в ДБФ-ке и может быть строка с индексом, а может быть только название города и дальше идет улица, как сделать проверку.

Подскажите как убрать название города и индекс, чтобы получилось название улицы, дом и квартира.

А куда эту функцию вставлять, в какое место?

Код:

 ПутьФайл = "C:\SZN\tom.dbf";

ФайлБазы = СоздатьОбъект("XBase");
//НачДата = НачМесяца(ВыбДата);
ФайлБазы.КодоваяСтраница(1);
ФайлБазы.ОткрытьФайл(ПутьФайл,"",0);
Если ФайлБазы.Открыта()=0 Тогда //проверяем, удалось ли открыть файл
Сообщить("Не удалось открыть файл!");// иначе   Сообщить("База открыта");
КонецЕсли;   
Для i=1 по ФайлБазы.КоличествоЗаписей() Цикл
ФайлБазы.Перейти(i);	  
FIO = НРег(СокрЛП(ФайлБазы.ПолучитьЗначениеПоля("FM")) + " " + СокрЛП(ФайлБазы.ПолучитьЗначениеПоля("IM")) + " " + СокрЛП(ФайлБазы.ПолучитьЗначениеПоля("OT")));

adr =СокрП(ФайлБазы.ПолучитьЗначениеПоля("ADDR"));

КонецЦикла; 

А случайно не из КЛАДРа данные берутся? Там "ул" в конце.

А что будет, если городом окажется Барнаул?

Я бы еще изменил эту строчку

Код:

Возврат Сред(Адрес,Поз-1);

на

Код:

Возврат Сред(Адрес,Поз);

Зачем возвращать лишний пробел или запятую?

Спасибо все получилось.
У меня две строковых переменных. Можно ли их совместить вместе, т.е. чтобы получить значение 1-15-41

Код:

//Первая цифра кода
Если НРег(Лев(adr,Найти(adr,",") - 1)) = " кв-л. 17-й" тогда
кодул = 1;
иначеЕсли НРег(Лев(adr,Найти(adr,",") - 1)) = " кв-л. 18-й" тогда
кодул = 2;
конецесли;

//номер дома и квартиры
street =  НРег(СокрП(ФайлБазы.ПолучитьЗначениеПоля("DOM")) + СокрП(ФайлБазы.ПолучитьЗначениеПоля("DOML")) + "-" + СокрП(ФайлБазы.ПолучитьЗначениеПоля("KV")) + СокрП(ФайлБазы.ПолучитьЗначениеПоля("KVL")));

Сама нашла ответ.

Код:

str = Строка(кодул) + "-"+ street;

Добрый день.
Давно не занималась этими обработками.
Подскажите как сделать в дбф-файле идет с начало ул. Комарова, или кв-л. 8, как обрезать ул. и кв-л.

Здравствуйте.
За три года ничего не поменялось, и то, что Вам советовал Бух. угодник тогда, осталось актуальным и сегодня. )