? 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)>WAIT WIND justroadname("Rue des 7 bonniers 34")