Регулярные выражения

//Первый вариант: встроенные функции 8.3.23
Текст = "Пи = 3.14, экспонента = 2.718";
РегВыражение = "\d+\.\d+";

Результат = СтрЗаменитьПоРегулярномуВыражению(
    Текст, РегВыражение, "<f>$0</f>");
//Результат =
//"Пи = <f>3.14</f>, экспонента = <f>2.718</f>"

Сообщить(Результат);

//Второй вариант: COM, только в ОС Windows
//найденное здесь обозначает 

amp;, а не $0
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.Global = Истина;
RegExp.Pattern = "\d+\.\d+";
Результат = RegExp.Replace(Текст, "<f>amp;</f>");

Сообщить(Результат);