? justroadname("Rue des 7 bonniers 34") 

FUNCTION justroadname
LPARAMETERS pcRoad
LOCAL lnWord, lcReturn, lnWordcount
lnWordcount=GETWORDCOUNT(pcRoad)
lcReturn=''
FOR x=1 TO lnWordcount
	IF VAL(GETWORDNUM(pcRoad,x))=0 ;
			OR (x < lnWordcount AND VAL(GETWORDNUM(pcRoad,x+1))=0)
		lcReturn=lcReturn + GETWORDNUM(pcRoad,x) + ' '
	ELSE
		EXIT
	ENDIF
ENDFOR
RETURN TRIM(lcReturn)