* Example:
* Make sure a string only contains digits:
* lcString="AbcZyx:*/+ 2345PC-ABCD"
* ? chrtran(lcString,chrtran(lcString,"1234567890",""),"") && returns 2345
* The inner chrtran() evaluates to a string that contains all of the non digit characters.
* The outer chrtran() uses that as the mask to remove all of those characters leaving only the digits.
lparameters lcString,lcCharsToRetain
return chrtran(lcString,chrtran(lcString,lcCharsToRetain,''),'')