Support 805.461.7300
Sales
Our Technology. Your Success.

Parse Address Command

Make sure the address, city, state, and ZIP Code information is in the field named Address. Nothing is in city, st, or zip.

Pull down the Edit menu to Command, then run this command:
replace all address with reduce(address)
replace all address with ALLT(address)+" "+ALLT(city),city with ""
use in iif(used('_uszips'),select('_uszips'),0) 
replace zip with allt(substr(address,rat(" ",allt(address)))),; 
   address with left(address,rat(" ",allt(address))); 
   for empty(zip) and isdigit(right(allt(address),1)) 
replace address with allt(address)+" "+zip,; 
   zip with "" for isalpha(allt(zip)) 
public comalias 
comalias=alias() 
use (addbs(xDefFldr)+"dmm\_uszips.dbf") in 0 order uszip 
replace city with _uszips.prefcity,; 
   st with _uszips.st for seek(left(zip,5),'_uszips') 
use in iif(used('_uszips'),select('_uszips'),0) 
replace address with left(address,rat(left(city,4),upper(address))-1) ; 
   for !empty(city) and rat(left(city,4),upper(address))>0 
replace city with allt(substr(address,rat(" ",allt(address),2))) for (empty(city) ; 
   or allt(st) $ address) 
replace address with strtran(address,allt(city)) for allt(city) $ address and !empty(city) 
replace address with allt(address)+" "+city for !" " $ allt(address) 
replace city with "" for allt(city) $ address and !empty(city) 
release comalias

« Back to Commands

You guys have the absolute BEST tech support that I have ever seen.
R.J., St. Joseph, MO