RegExp=Новый COMОбъект("VBScript.RegExp"); RegExp.MultiLine=Ложь; RegExp.Global=Истина; RegExp.Pattern = "[^A-z0-9]"; Str1 = СокрЛП(Стр); Res = RegExp.Replace(Str1, ""); Возврат Res;