RegExp = CreateObject("VBScript.RegExp"); // здесь под восьмерку переделай
RegExp = Новый COMОбъект("VBScript.RegExp"); RegExp.IgnoreCase = Истина; //Игнорировать регистр RegExp.Global = Истина; //Поиск всех вхождений шаблона RegExp.MultiLine = Истина; //Многострочный режим RegExp.Pattern = "[^0-9]"; // отбор только чисел стр=RegExp.Replace(стр, ""); Сообщить(стр);