Проверить, является строка числом или нет в 1С
Для 1C 7
|
1 2 3 4 5 6 7 8 9 10 11 12 |
// Если строка является числом - то 1, иначе 0 Функция ПроверкаНаЧисло(Знач НашаСтрокаДляРазбора) НашаСтрокаДляРазбора = СокрЛП(НашаСтрокаДляРазбора); НашаСтрокаДляРазбора = СтрЗаменить(НашаСтрокаДляРазбора,"0","9"); Если (СтрДлина(Число(НашаСтрокаДляРазбора)) <> СтрДлина(НашаСтрокаДляРазбора)) или ((СтрДлина(НашаСтрокаДляРазбора) = 1) и (Найти("0123456789",НашаСтрокаДляРазбора) = 0)) Тогда Возврат 0; КонецЕсли; Возврат 1; КонецФункции |
Для 1C 8
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
// Если строка является числом - то истина, иначе ложь Функция ПроверкаНаЧисло(НашаСтрокаДляРазбора) Экспорт Если ТипЗнч(НашаСтрокаДляРазбора) = Тип("Число") Тогда Возврат Истина Иначе Если ТипЗнч(НашаСтрокаДляРазбора) = Тип("Строка") Тогда Если НашаСтрокаДляРазбора = "" Тогда Возврат Ложь; КонецЕсли; КонецЕсли; Попытка ПМ = Число(НашаСтрокаДляРазбора); Исключение Возврат Ложь; КонецПопытки; Возврат Истина; КонецЕсли; КонецФункции |