>Charles,
>
>How about something like the following:
>
>lcString = "12345 ABC ST"
>A = getWord(@lcString)
>B = getWord(@lcString)
>C = getWord(@lcString)
>? Addr1, Addr2, Addr3
>
>function getWord
>lparameters tcString
> local lnPos, lcWord
> lcWord = space(0)
> if !empty(tcString)
> tcString = alltrim(tcString)
> lnPos = at(" ", tcString)
> if lnPos > 0
> lcWord = alltrim(substr(tcString, 1, lnPos))
> tcString = alltrim(substr(tcString, lnPos))
> else
> lcWord = alltrim(tcString)
> tcString = space(0)
> endif
> endif
>return lcWord
>

Reposted to see if I could improve formatting.

>
>
>>I'm sure someone has done this before. Looking for some quick code...
>>
>>Address: 12345 ABC ST
>> 123 NBC AVE
>> 1432 CBS DR
>>
>>Have to trun each in thre delimited fields.
>>
>>The syntax i've been working with goes something like"
>>A = substr(property.address, 1," ")
>>B = sbustr ( property.addresws, " ", " ")
>>C = substr(property.address, (find where the streetname stops), (where the street suffix begins))
>>
>>Anybody got some code laying on in a drawer somewhere that does this?
>>
>>Thanks
>>CMH.