RosettaCodeData/Task/Strip-control-codes-and-extended-characters-from-a-string/Mathematica/strip-control-codes-and-extended-characters-from-a-string.math

stripCtrl[x_]:=StringJoin[Select[Characters[x],
MemberQ[CharacterRange["!","~"]~Join~Characters[FromCharacterCode[Range[128,255]]],#]&]]

stripCtrlExt[x_]:=StringJoin[Select[Characters[x],
MemberQ[CharacterRange["!","~"],#]&]]