>I must reimport an address file. > >"Rue de l'université 7 " =====> "Rue de l'université" >"place victor hugo 7Bte 15" ====> "place victor hugo" >"rue des mineurs 14b" =====> "rue des mineurs" >etc... > One approach:
PROCEDURE GetStreet
LPARAMETERS lcstr
LOCAL lcret
lcret = ""
LOCAL i
FOR i = 1TOGETWORDCOUNT(lcstr)
IFVAL(GETWORDNUM(lcstr,i))> 0EXITENDIF
lcret = lcret + GETWORDNUM(lcstr,i) + " "ENDFORRETURNTRIM(lcret)