* ----------------------------------------------------------------------------
 
* Нормализация адреса
* ----------------------------------------------------------------------------
 
Function AdrNorm
lparameters cAddress

local iLenArr1
iLenArr1 =  34                        && массив для склейки лексем
local cArr1[iLenArr1, 2 ]
cArr1[ 01 , 1 ] =  " обл." 
cArr1[ 01 , 2 ] =  "_обл." 
cArr1[ 02 , 1 ] =  " обл" 
cArr1[ 02 , 2 ] =  "_обл" 
cArr1[ 03 , 1 ] =  " область" 
cArr1[ 03 , 2 ] =  "_область" 
cArr1[ 04 , 1 ] =  " р-н" 
cArr1[ 04 , 2 ] =  "_р-н" 
cArr1[ 05 , 1 ] =  " район" 
cArr1[ 05 , 2 ] =  "_район" 
cArr1[ 06 , 1 ] =  "г. " 
cArr1[ 06 , 2 ] =  "г." 
cArr1[ 07 , 1 ] =  "город " 
cArr1[ 07 , 2 ] =  "город_" 
cArr1[ 08 , 1 ] =  "ул " 
cArr1[ 08 , 2 ] =  "ул." 
cArr1[ 09 , 1 ] =  "ул. " 
cArr1[ 09 , 2 ] =  "ул." 
cArr1[ 10 , 1 ] =  "пр. " 
cArr1[ 10 , 2 ] =  "пр." 
cArr1[ 11 , 1 ] =  "пер. " 
cArr1[ 11 , 2 ] =  "пер." 
cArr1[ 12 , 1 ] =  "бр. " 
cArr1[ 12 , 2 ] =  "бр." 
cArr1[ 13 , 1 ] =  "б-р " 
cArr1[ 13 , 2 ] =  "б-р_" 
cArr1[ 14 , 1 ] =  "бульв. " 
cArr1[ 14 , 2 ] =  "бульв." 
cArr1[ 15 , 1 ] =  "бульвар " 
cArr1[ 15 , 2 ] =  "бульвар_" 
cArr1[ 16 , 1 ] =  "п-т " 
cArr1[ 16 , 2 ] =  "п-т_" 
cArr1[ 17 , 1 ] =  "пр-т " 
cArr1[ 17 , 2 ] =  "пр-т_" 
cArr1[ 18 , 1 ] =  "просп. " 
cArr1[ 18 , 2 ] =  "просп." 
cArr1[ 19 , 1 ] =  "пл. " 
cArr1[ 19 , 2 ] =  "пл." 
cArr1[ 20 , 1 ] =  " спуск" 
cArr1[ 20 , 2 ] =  "_спуск" 
cArr1[ 21 , 1 ] =  " шоссе" 
cArr1[ 21 , 2 ] =  "_шоссе" 
cArr1[ 22 , 1 ] =  " наб." 
cArr1[ 22 , 2 ] =  "_наб." 
cArr1[ 23 , 1 ] =  " набережная" 
cArr1[ 23 , 2 ] =  "_набережная" 
cArr1[ 24 , 1 ] =  "д. " 
cArr1[ 24 , 2 ] =  "д." 
cArr1[ 25 , 1 ] =  "кв. " 
cArr1[ 25 , 2 ] =  "кв." 
cArr1[ 26 , 1 ] =  "корп. " 
cArr1[ 26 , 2 ] =  "корп." 
local iSelo
iSelo =  27 
cArr1[ 27 , 1 ] =  "хутор " 
cArr1[ 27 , 2 ] =  "хутор_" 
cArr1[ 28 , 1 ] =  "дер. " 
cArr1[ 28 , 2 ] =  "дер." 
cArr1[ 29 , 1 ] =  "деревня " 
cArr1[ 29 , 2 ] =  "деревня_" 
cArr1[ 30 , 1 ] =  "c. " 
cArr1[ 30 , 2 ] =  "с." 
cArr1[ 31 , 1 ] =  "село " 
cArr1[ 31 , 2 ] =  "село_" 
cArr1[ 32 , 1 ] =  "пос. " 
cArr1[ 32 , 2 ] =  "пос." 
cArr1[ 33 , 1 ] =  "поселок " 
cArr1[ 33 , 2 ] =  "поселок_" 
cArr1[ 34 , 1 ] =  "пгт " 
cArr1[ 34 , 2 ] =  "пгт_" 

iLenArr2 =  17                   && массив для определения  "улицы" 
local cArr2[iLenArr2]
cArr2[ 01 ] =  "улица" 
cArr2[ 02 ] =  "ул." 
cArr2[ 03 ] =  "переулок" 
cArr2[ 04 ] =  "пер." 
cArr2[ 05 ] =  "проспект" 
cArr2[ 06 ] =  "п-т" 
cArr2[ 07 ] =  "пр-т" 
cArr2[ 08 ] =  "просп." 
cArr2[ 09 ] =  "пр." 
cArr2[ 10 ] =  "площадь" 
cArr2[ 11 ] =  "пл." 
cArr2[ 12 ] =  "бульвар" 
cArr2[ 13 ] =  "бр." 
cArr2[ 14 ] =  "б-р" 
cArr2[ 15 ] =  "бульв." 
cArr2[ 16 ] =  "_спуск" 
cArr2[ 17 ] =  "_шоссе" 

&& склейка лексем
cAddress = onespace(chrtran(alltrim(cAddress),',',' '))
local i
for i= 1  to iLenArr1
   cAddress = strtran(cAddress, cArr1[i, 1 ], cArr1[i, 2 ])
endfor
cAddress = onespace(cAddress)

&& поиск лексемы  "улица" 
local iSeek
iSeek =  0 
for i= 1  to iLenArr2
   iSeek = at(cArr2,cAddress)
   if iSeek> 0 
      exit
   endif
endfor
if iSeek> 0  and substr(cAddress,iSeek, 1 )=='_'
   do while iSeek> 0  and !substr(cAddress,iSeek, 1 )==' '
      iSeek = iSeek -  1 
   enddo
endif
if iSeek= 0  and ( "р-н" $cAddress or  "район" $cAddress)
   i = iSelo
   do while iSeek= 0  and i<=iLenArr1
      iSeek = at(cArr1[i, 2 ],cAddress)
      i = i +  1 
   enddo
endif

local iAt, iRat, cWord, cAddress2
do case
case iSeek= 1 
   && адрес уже нормализован
case iSeek> 1 
   &&  "улица"  найдена
   cAddress2 = alltrim(substr(cAddress,iSeek))
   cAddress = rtrim(left(cAddress,iSeek- 1 ))
   if left(cAddress, 1 )<>' '
      cAddress = ' '+cAddress
   endif
   do while !empty(cAddress)
      iRat = rat(' ',cAddress)
      cWord = iif(iRat> 0 , substr(cAddress,iRat+ 1 ), '')
      cAddress2 = cAddress2+', '+cWord
      cAddress = left(cAddress,iRat- 1 )
   enddo
   cAddress = onespace(chrtran(cAddress2,'_',' '))
otherwise
   &&  "улица"  не найдена
   iAt = at(' ',cAddress)
   cWord = left(cAddress,iAt- 1 )
   do case
   case iAt= 0 
       && первое слово не найдено
   case ischars(cWord, "0123456789 ")
      && первое слово индекс => первые два слова в конец
      iSeek = at(' ',cAddress, 2 )
      cAddress2 = alltrim(substr(cAddress,iSeek))
      cAddress = rtrim(left(cAddress,iSeek- 1 ))
      if left(cAddress, 1 )<>' '
         cAddress = ' '+cAddress
      endif
      do while !empty(cAddress)
         iRat = rat(' ',cAddress)
         cWord = iif(iRat> 0 , substr(cAddress,iRat+ 1 ), '')
         cAddress2 = cAddress2+', '+cWord
         cAddress = left(cAddress,iRat- 1 )
      enddo
      cAddress = cAddress2
   otherwise
      && первое слово не индекс => первое слово - в конец
      cAddress = substr(cAddress,iAt)+' '+cWord
   endcase
   cAddress = onespace(chrtran(cAddress,'_',' '))
endcase

return cAddress

* [i]----------------------------------------------------------------------------
 
* Удаление избыточных пробелов
* ----------------------------------------------------------------------------
 
Function onespace
lparameters cStr
local i, lFlag, cRes, cChar

cRes = ""
lFlag = .t.
for i= 1  to len(cStr)
   cChar = substr(cStr,i, 1 )
   if !cChar==' ' or !lFlag
      cRes = cRes + cChar
   endif
   lFlag = cChar==' '
endfor

return rtrim(cRes)

* -----------------------------------------------------------------------------
 
* Проверяет, состоит ли строка только из указанного набора символов
* -----------------------------------------------------------------------------
 
Function ischars
lparameters cStr, cChars
local i, lRes

lRes = .t.
for i= 1  to len(cStr)
   if !substr(cStr,i, 1 ) $ cChars
      lRes = .f.
      exit
   endif
endfor

return lRes