// *** было: ***
Текст = "Число Пи равно 3.14";

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

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

// *** in version 8.3.23: ***
Текст = "Число Пи равно 3.14";

//Встроенная функция работает на любой ОС
Результат = СтрНайтиПоРегулярномуВыражению(
    Текст, "\d+\.\d+");

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