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