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