>Hi,
>
>>>
>Thanks again for the regex approach. I'm going to use that on another, unrelated task.
>>>
>This is a lot faster (but still doesn't beat Fox on short strings) :-)
>

>DEFINE CLASS Reg AS LINE
>  oRegExp1 = .NULL.
>  oRegExp2 = .NULL.
>  FUNCTION INIT()
>    WITH THIS
>      .oRegExp1 = CREATEOBJECT("VBScript.RegExp")
>      .oRegExp2 = CREATEOBJECT("VBScript.RegExp")
>      .oRegExp1.PATTERN = "^[^a-zA-Z]*"
>      .oRegExp2.PATTERN = "[^a-zA-Z]*$"
>    ENDWITH
>  ENDFUNC
>  FUNCTION NonAlphaTrim (cString)
>    WITH THIS
>      RETURN .oRegExp2.REPLACE(.oRegExp1.REPLACE(cString,""),"")
>    ENDWITH
>  ENDFUNC
>ENDDEFINE

>Good luck,
>Viv

Would having one regexp object be slightly faster?