>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,