1с число в строку

Ответ от Makfromkz[гуру]
Функция ЭтоЦифра (лбуква)
Если (лбуква >="0")И (лбуква <="9") Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
КонецФункции
//****************
Процедура ИщемЧисла (текст1)
МасЧисел = Новый Массив;
число1 = 0;
делитель = 0.1;
ЦелаяЧасть = Истина;
Для ии = 1 По СтрДлина (текст1) Цикл
буква = Сред (текст1,ии, 1);
Если этоЦифра (буква) Тогда
Если ЦелаяЧасть Тогда
число1 = число1*10+Число (буква) ;
Иначе
число1 =число1+Число (буква) *делитель;
делитель = делитель/10;
КонецЕсли;
ИначеЕсли буква = "." Тогда
ЦелаяЧасть = Ложь;
Иначе // вот сюда попадаем при разделителях
масЧисел. Добавить (число1); // в массив чисел добавляем новое найденное число, все в исходное
делитель = 0.1;
ЦелаяЧасть = Истина;
Число1 = 0;
КонецЕсли;
КонецЦикла;
КонецПроцедуры // после выполнения процедуры имеем массив чисел
// если разделители идут подряд - то получим кучу 0-вых элементов массива