Целые числы

[Tony Raut]

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

[oleg-x]

(" 2 3 4 0.1 5.13 1,0 ");

Разобрать на массив, разделитель пробел.

Код Выделить Развернуть

Для каждого стр из Массив Цикл
    Если СтрНайти(стр.число,".") = неопределено Тогда
        НашаЦифра = Истина;
    ИначеЕсли фПослеТочкиТолькоНули(стр.число) Тогда
        НашаЦифра = Истина;
    Иначе
        Продолжить;
    КонецЕсли;
КонецЦикла;


Функция фПослеТочкиТолькоНули(число)
    ЦелоеЧисло = Истина;
    //1) Находим точку в числе
    //2) Обходим каждую цифру в цикле после точки и проверяем условие

    Если Цифра <> 0 Тогда
        ЦелоеЧисло = Ложь;
        Прервать; //прерываем цикл
    КонецЕсли;
    Возврат ЦелоеЧисло;
КонецФункции

[Tony Raut]

спасибо все ровно

[AIFrame]

oleg-x,

Код Выделить Развернуть

Процедура Посчитать()
СтрокаВхода = " 2 3 4 0.1 5.13 1,0 ";
Вхождений = 0;
ИНД = 0;
Пока ИНД < 10 Цикл
Вхождений = Вхождений + СтрЧислоВхождений(СтрокаВхода, " "+ИНД+" ");
Вхождений = Вхождений + СтрЧислоВхождений(СтрокаВхода, " "+ИНД+".0 ");
Вхождений = Вхождений + СтрЧислоВхождений(СтрокаВхода, " "+ИНД+",0 ");
ИНД = ИНД + 1;
КонецЦикла;
Сообщить(Вхождений);
КонецПроцедуры

Посчитать();

[oleg-x]

oleg-x,

Код Выделить Развернуть

Процедура Посчитать()
СтрокаВхода = " 2 3 4 0.1 5.13 1,0 ";
Вхождений = 0;
ИНД = 0;
Пока ИНД < 10 Цикл
Вхождений = Вхождений + СтрЧислоВхождений(СтрокаВхода, " "+ИНД+" ");
Вхождений = Вхождений + СтрЧислоВхождений(СтрокаВхода, " "+ИНД+".0 ");
Вхождений = Вхождений + СтрЧислоВхождений(СтрокаВхода, " "+ИНД+",0 ");
ИНД = ИНД + 1;
КонецЦикла;
Сообщить(Вхождений);
КонецПроцедуры

Посчитать();

А если будет число 0.01?

[AIFrame]

А если будет число 0.01?

А оно целое?

[oleg-x]

А если будет число 0.01?

А оно целое?

Плохой пример, вот получше
5.01
5.00

[AIFrame]

А если ты хотел сказать .00, то

Код Выделить Развернуть

Пока Найти(СтрокаВхода, ".00") > 0 Цикл
    СтрокаВхода = СтрЗаменить(СтрокаВхода, ".00", ".0");
КонецЦикла;

Добавлено: 18 мар 2018, 19:47

Код Выделить Развернуть



Процедура Посчитать()
СтрокаВхода = " 2 3 4 0.1 5.13 5.00 5,01 3.0 3 2.17 7 1,0 ";
Пока Найти(СтрокаВхода, ".00") > 0 Цикл
    СтрокаВхода = СтрЗаменить(СтрокаВхода, ".00", ".0");
КонецЦикла;
Пока Найти(СтрокаВхода, ",00") > 0 Цикл
    СтрокаВхода = СтрЗаменить(СтрокаВхода, ",00", ",0");
КонецЦикла;
Вхождений = 0;
ИНД = 0;
Пока ИНД < 10 Цикл
Вхождений = Вхождений + СтрЧислоВхождений(СтрокаВхода, " "+ИНД+" ");
Вхождений = Вхождений + СтрЧислоВхождений(СтрокаВхода, " "+ИНД+".0 ");
Вхождений = Вхождений + СтрЧислоВхождений(СтрокаВхода, " "+ИНД+",0 ");
ИНД = ИНД + 1;
КонецЦикла;
Сообщить(Вхождений);
КонецПроцедуры

Посчитать();
Попробуй.

Добавлено: 18 мар 2018, 19:50

Я не про то, что вариант с разложением в массив плох, он покрывает больше нюансов.
Я про альтернативный подход и попроще.