Quickly alltrim non-alpha chars from string

Author: Malcolm Greene

Posted: 2005-08-01 at 14:30:09

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.

<code>

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

</code>

Thanks,

Malcolm

©2005 Malcolm Greene