RegExp = Новый COMОбъект("VBScript.RegExp"); RegExp.IgnoreCase = Ложь; //Игнорировать регистр RegExp.Global = Истина; //Поиск всех вхождений шаблона RegExp.MultiLine = Ложь; //Многострочный режим RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML стр=RegExp.Replace(стр, ""); //Заменяем все теги на пустоту