создал функцию в которую передаётся адрес
он обрабатывается

         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "СЕЛЬСКИЙ ОКРУГ", "с\о")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ПОСЕЛКОВЫЙ ОКРУГ", "п\о")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "РАЙОН ВНУТРИ ГОРОДА", "р-н")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "РАЙОН", "р-н")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ЖИЛОЙ МАССИВ", "ж\м")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ЖИЛОЙ МАССИВ", "ж\м")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ЖИЛОЙ", "жил.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "МАССИВ", "мас.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ПЛОЩАДЬ", "пл.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "МИКРОРАЙОН", "м\р-н")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "МИКРОр-он", "м\р-н")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ДАЧНЫЙ КООПЕРАТИВ", "дач.кооп.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ГАРАЖНЫЙ КООПЕРАТИВ", "гар.кооп.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ЗАСТАВА", "з-ва")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ВОИНСКАЯ ЧАСТЬ", "в\ч")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "НАБЕРЕЖНАЯ", "наб.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "Юго-восток", "ю\в")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "Юго-запад", "ю\з")

И на выходе функция даёт строку адреса с сокращёнными словами.

Может кто решал эту задачу, и знает более изящный способ решения?
------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1268550/sokrashheniya-v-adrese