Добрый день!
Подскажите, пожалуйста, как посчитать количество целых неотрицательных чисел в произвольной строке (Платформа 8.2)?

Парсить строку в цикле или регексп

(0) Лабороторная?

213123,1314124,131312,12   вот сколько здесь целых чисел?

условие уточни

(3) 4

последнее число у меня 12,12

я так хочу

(6) глупый что ли?

(5)как тогда отличать целое от не целого?

(4)Пользователь вводит произвольную строку, например, "пывывао8о ова4ывп 65 рв -86,4 ырввы 56пппп 89 рпавоп рррр -55 океоу". Ответом будет Количество = 2.

(9) ну мы с 1с отделяем целую часть от дробной точкой. а вы как?

(5),(8) смотрим (10) и отвечаем я один глупый или тс тоже? или вы оба- двое тупанули

(10) Смешно, что за умолешеные пользователи?

(10) ничего не получится - фотки нет

(12) ТС тоже

(10) отжежнихренасибе..

(10)а вдруг символ "-"  это часть строки а -86,4 это число 86 и "-" и ",4" ты уж задание то уточни

(15)запишем, Армандо с тз не работал, логика отсутствует

(17) "-86,4" - это отрицательное число. В подсчет должны попасть только числа 65 и 89.

(19) Ну делай

я пас..

(19) ну, цикл по символам с условиями. Действительно задание придурочное, поэтому готовое решение вы вряд ли найдете.

ты не примеры свои давай, а определи: ряд цифр считается за одно число или можно за несколько, знак разделения дробной части

(19) тогда уж количество = 5 )

(23) знак разделения дробной части ",". знак "-" - отрицательное число...

даже 6: 8 4 65 4 56 89

(25) с чего бы это? а может знак разделения дробной части "."

(24) нет, именно 2, т.к. числа должны быть разделены пробелами...вот такое дурацкое задание...(((

http://yandex.ru/yandsearch?text=1с+разложитьстрокувмассив&clid=9582&lr=213

плевая задачка.

мнстр = СтрЗаменить(СтрокаВвода," ",Символы.ПС);
всегострок=мнстр.КоличествоСтрок();
всегоцелыхположительныхчисел=0;
Для сч=1 По всегострок Цикл
  Попытка
     ааа=Число(СтрПолучитьСтроку(мнстр,сч);
     если Цел(ааа)=ааа и ааа > 0 Тогда
        всегоцелыхположительныхчисел=всегоцелыхположительныхчисел+1;
     КонецЕсли;
  Исключение
     Продолжить
  КонецПопытки;
Сообщить(всегоцелыхположительныхчисел);

(30) хитрый, когда мы выпытали все условия )

НашаСтрока = СтрЗаменить(Стр," ",Символы.ПС);
   ВсегоЦелыхЧисел = 0;
   Для А = 1 По СтрЧислоСтрок(НашаСтрока) Цикл
       ТекСтрока = СтрПолучитьСтроку(НашаСтрока,А);
       Попытка
           НашеЧисло = Число(СтрЗаменить(ТекСтрока,",","."));
       Исключение
           Продолжить;
       КонецПопытки;
       Если НашеЧисло>0 И Цел(НашеЧисло) = НашеЧисло Тогда
           ВсегоЦелыхЧисел = ВсегоЦелыхЧисел + 1;
       КонецЕсли;
   КонецЦикла;
   Сообщить(ВсегоЦелыхЧисел);

+30
всегострок=СтрЧислоСтрок(мнстр)

Чьорт, (30) опередил

(30)ниче не попутал, наФейхоя пробел " " приплел, кто сказал что числа разделены пробелами?
Для сч =1 по СтрДлина(ТвояСтрока) цикл
Если КодСимвлоа(Сч)<= код 0 по аски (не помню) и
   КодСимвлоа(Сч)>= Код 9 тогда
****


КонецЕсли
КонецЦикла

(35) читай (28)

извиняюсь

(34) у тебя правильнее )

не стритесь девочки ))))

(38) дело не в правильности кода а в логике алгоритма ;)
а он у нас одинаковый.

(40) ты запятые не заменил, тебе жирный минус )

Всем большое спасибо!!!

(41) не обольщайся. код в (32) вылетит в ошибку при разборе строки.

(43) На какой строке?

(41) вроде Число() всегда спокойно хавало запятые.

(44) ты не учел, что функция Число() использует виндовые настройки разделителя дроби ;)

Встроенные функции языка
Число (Number)
Синтаксис:
Число(<Значение>)
Преобразует полученный параметр в значение типа Число.
Значение типа Строка преобразуется в число в том случае, если параметр является строковым представлением литерала численного типа. При этом строковое представление анализируется как с учетом региональных установок информационной
базы, так и без их учета. В противном случае будет выдано сообщение об ошибке выполнения функции.

апля. я лох :) сори :)

(45) Точно. Но лучше перебдеть