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

Результат = СтрНайтиПоРегулярномуВыражению(
    Текст, РегВыражение);
Если Результат.НачальнаяПозиция > 0 Тогда
    Пи = Число(Результат.Значение);
    //Пи = 3.14
    Сообщить("Пи = " + Пи);
КонецЕсли;

//Второй вариант: COM, только в ОС Windows
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.Pattern = "\d+\.\d+";
Matches = RegExp.Execute(Текст);

Пи = Число(Matches.Item(0).Value);
//Пи = 3.14
Сообщить("Пи = " + Пи);