Функция СтрЗаменитьЛюбоеКоличествоПодрядИдущихСимволов(Строка, Символ, НаЧтоМеняеть)
RegExp = Новый COMОбъект("VBscript.Regexp");
RegExp.MultiLine = Истина;
RegExp.Global = Истина;
RegExp.Pattern = Символ+"+";
Возврат RegExp.Replace(Строка, НаЧтоМенять);
КонецФункции
Сообщить(СтрЗаменитьЛюбоеКоличествоПодрядИдущихСимволов("CMYKPPP", "P", "7561"));