Элементарное ретуширование строки....

[sonata]

Есть столбец с номерами квартир...
Но, кроме номеров, там еще куча всякой лишней инфы...
Мне нужно каждый раз ретушировать этот столбик, чтобы он содержал
только номера квартир...
Я использую Replace,
М.б. можно обойтись другим способом?
Например:
x=" 386 кв., 54545 Кузнецовы"
Trim(x) и дальше убираем все после пробела...
М.б. кто-то подскажет код...
Стыдно, конечно!Но, конец рабочего дня...
Будьте снисходительны...

[skiperski]

x = Val(x)

[sonata]

Идея-СУПЕР!!!Только вот, ведь какая бяка бывает с номерами квартир:
есть номер 324, а есть 324А
И это разные номера квартир!!!
А так, конечно-"Гениальное-всегда просто"!

[skiperski]

x = Left$(x, InStr(1, x & " ", " "))

[sonata]

Ты будешь смеяться, но бывает еще и такое...(отсутствие пробела между цифрами и кв)
212кв

[skiperski]

Тогда в две строчки

Код: Выделить всё

x = Left$(x, InStr(1, x & " ", " "))
x = Left$(x, InStr(1, x & "кв", "кв"))

[sonata]

Чего-то совсем не то вылазиет!!!Ну, прямо, совсем не то...

[skiperski]

А так?

Код: Выделить всё

x = Left$(x, InStr(1, x & " ", " ") - 1)
x = Left$(x, InStr(1, x & "кв", "кв", vbTextCompare) - 1)

[sonata]

Наконец-то, ЧУДО СВЕРШИЛОСЬ!!!!
Да, так-ТО, что НАДО!!!
Спасибо!