>Any suggestions on how I can quickly alltrim all non-alpha chars from a string via either a clever VFP technique, FoxTools FLL function, or Win32 API call?
>
>My current approach below. But certainly there must be a more efficient way?
>
>NOTE: I want to preserve embedded non-alpha chars. I just want to remove leading and trailing non-alpha chars.
>
>
>function fulltrim( pcStr )
> for lnChar = 1 to len( pcStr )
> if isalpha( substr( pcStr, lnChar, 1 ) )
> exit
> endif
> endfor
> pcStr = substr( pcStr, lnChar )
>
> for lnChar = len( pcStr ) to 1 step -1
> if isalpha( substr( pcStr, lnChar, 1 ) )
> exit
> endif
> endfor
> pcStr = left( pcStr, lnChar )
>
> return pcStr
>endfunc
>
>
>Thanks,
>Malcolm
z="ABC123"
?CHRTRAN(z,CHRTRAN(z,"ABCDEFGHIJKLMNOPQRSTUVWXYZ",""),"")
Just add lower case if you need to include those, too.