Hi Malcolm,

local lcOriginalString, lcTempString, lnFirstAlpha, lnLastAlpha

lcTempString = chtran(lcOriginalString,"1234567890","")

lnFirstAlpha = at(left(lcTempString,1),lcOriginalString)
lnLastAlpha = rat(right(lcTempString,1), lcOriginalString)

lcNewString = substr(lcOriginalString, lnFirstAlpha, lnLastAlpha - lnFirstAlpha)

>Hi Herman,
>
>Clever ideas but I need to alltrim any non-alpha char, not just numeric digits. Basically I'm looking for something like VFP9's alltrim() but with a list of ~ 203 char codes to trim or a function like Foxtool's Reduce() that alltrims() vs. "reduces" (sort of).
>
>Just sent you some email as well.
>
>Regards,
>Malcolm