lcGoodChars = [ '-0123456789] + CHR( 10 ) + CHR( 13 ) *** Upper case letters FOR lnI = 65 TO 90 lcGoodChars = lcGoodChars + CHR( lnI ) ENDFOR *** Lower case letters FOR lnI = 97 TO 122 lcGoodChars = lcGoodChars + CHR( lnI ) ENDFOR lcCleanString = CHRTRAN( lcString2Clean, CHRTRAN( lcString2Clean, lcGoodChars, [] ), [] )