//Первый вариант: встроенные функции 8.3.23
Текст = "Пи = 3.14, экспонента = 2.718";
РегВыражение = "\d+\.\d+";
Найденные = СтрНайтиВсеПоРегулярномуВыражению(
Текст, РегВыражение);
Числа = Новый Массив;
Для Каждого Совпадение Из Найденные Цикл
Числа.Добавить(Число(Совпадение.Значение));
КонецЦикла;
//Числа = [3.14; 2.718]
Стр = СтрСоединить(Числа, "; ");
Сообщить("Числа = [" + Стр + "]");
//Второй вариант: COM, только в ОС Windows
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.Pattern = "\d+\.\d+";
RegExp.Global = Истина;
Matches = RegExp.Execute(Текст);
Числа = Новый Массив;
Для Н = 0 По Matches.Count - 1 Цикл
Числа.Добавить(Matches.Item(Н).Value);
КонецЦикла;
//Числа = [3.14; 2.718]
Стр = СтрСоединить(Числа, "; ");
Сообщить("Числа = [" + Стр + "]");