Добрый день. Подскажите, пожалуйста, как можно осуществить проверку заполнения наименования товара? Удается проверить в целом заполнения ячейки наименование с помощью

Если СокрЛП(Наименование) = "" Тогда
        Предупреждение("На заполнено наименование!");
        Отказ = Истина;
        Возврат;
    КонецЕсли;    

Необходимо, чтобы проверка осуществлялась по другому: Если наименование состоит не меньше трех слов (например, куртка женская EIFEL или ботинки мужские б/тм), то можно записать элемент, а если меньше трех (например, куртка женская, или ботинки) чтобы выдал предупреждение "не правильно заполнено наименование'. Спасибо заранее за подсказки

ЗначениеЗаполнено()

(0) Разбей предложение на слова, посчитай их, несколько Если Тогда Иначе

(0) что-то мешает разбить строку по пробелам и сосчитать число слогов ?

(3)Три   слова?

+(2)  Задача на уровне школьников, тренирующихся на языке Рапира.

(0) , Практически во всех типовых конфигурациях (обычно в общем модуле "ОбщегоНазначения") есть функция РазложитьСтрокуВМассивПодстрок()

(0) иногда конфигурации бывают типовые, в очень редких случаях данный механизм в них уже реализован... Эх, вот если бы знать...

СтрЗаменить(РазбираемаяСтрока," ",Симолы.ПС);

конфигурация самописная, 1С 8.0.18.2
варианты СокрЛП(Наименование) = "" + ""  Тогда
не подходит

(5) если можешь предлагай, пожалуйста, варианты для школьника.

Функция обРазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",") Экспорт
    
    МассивСтрок = Новый Массив();
    Если Разделитель = " " Тогда
        Стр = СокрЛП(Стр);
        Пока 1=1 Цикл
            Поз = Найти(Стр,Разделитель);
            Если Поз=0 Тогда
                МассивСтрок.Добавить(Стр);
                Возврат МассивСтрок;
            КонецЕсли;
            МассивСтрок.Добавить(Лев(Стр,Поз-1));
            Стр = СокрЛ(Сред(Стр,Поз));
        КонецЦикла;
    Иначе
        ДлинаРазделителя = СтрДлина(Разделитель);
        Пока 1=1 Цикл
            Поз = Найти(Стр,Разделитель);
            Если Поз=0 Тогда
                МассивСтрок.Добавить(Стр);
                Возврат МассивСтрок;
            КонецЕсли;
            МассивСтрок.Добавить(Лев(Стр,Поз-1));
            Стр = Сред(Стр,Поз+ДлинаРазделителя);
        КонецЦикла;
    КонецЕсли;
    
КонецФункции // обРазложитьСтрокуВМассивПодстрок

(11) это есть в ОбщегоНазначения, если типовая
а потом проверить количество в массиве.
профит.

Удалить лишние пробелы, посчитать оставшееся количество пробелов.

(11) не думаю, что такие сложности там потребуется. кажется одной строкой можно обойтись. Надеюсь (5) подскажет варианты для школьника

(14) Зачем (5)? См. (8)!

Если обРазложитьСтрокуВМассивПодстрок(Наименование, " ").Количество<3 Тогда
Отказ = истина;
КонецЕсли;

Чего сложного-то?

Если обРазложитьСтрокуВМассивПодстрок(Наименование, " ").Количество()<3 Тогда
Отказ = истина;
КонецЕсли;

Отказ = СтрЧислоВхождений(Наименование," ")=>3;

Отказ = НЕ СтрЧислоВхождений(Наименование," ")=>3;

(17) в трёх словах, два пробела!)

(17) а вдруг пробелы по краям? или в середине по два-три?

(17) Правильно. (19) Не правильно

(16) и (17) выдает ошибку при добавлениии в процедуру Передзаписью


{Справочник.Номенклатура.Форма.ФормаЭлемента(23,7)}: Процедура или функция с указанным именем не определена (обРазложитьСтрокуВМассивПодстрок)
    Если <<?>>обРазложитьСтрокуВМассивПодстрок(Наименование, " ").Количество<3 Тогда

(23) Ну так скопируй (11)

скопировал функцию (11), также (16) ставил в процедуру ПередЗасписью (Отказ) при записи элемента выдал ошибку

{Справочник.Номенклатура.Форма.ФормаЭлемента(52)}: Поле объекта не обнаружено (Количество)
    Если обРазложитьСтрокуВМассивПодстрок(Наименование, " ").Количество<3 Тогда

обРазложитьСтрокуВМассивПодстрок замени на Общегоназначения.РазложитьСтрокуВМассивПодстрок

(25) , после количество нужны "()", я тебе об этом в (17) написал. Но советую тебе читать ошибки и пытаться вникать в них. Но вместе с тем, я не понимаю, почему тебе лень понять смысл ошибки, а мне не лень тебе это объяснять.

Так попробуй
m = обРазложитьСтрокуВМассивПодстрок(Наименование, " ");
Если m.Количество<3 Тогда

(26) см (9)

Ваще-то надо как в (14)

(22) Вы правы

(27) спасибо тебе огромное, похоже, получилось, проверю в разных вариациях сейчас. Ты большой умница

Отказ = СтрЧислоВхождений(СокрЛП("1 2 3")," ")>2;

(17) Только надо еще и убрать пробелы сначала справа и слева, могут же быть...

(30) Ну если так

Найти(СтрЗаменить(СтрЗаменить(СтрЗаменить(с, "    ", " "), "   ", " "), "  ", " ")) > 2

(35) Сокр еще забыл

Я думаю Победа!

Вот дауны то пошли....

спешил, выдает предупреждение о том, что не правильно заполнена наименование, но записывает товар, а нужно, чтобы пока не правилам не давал записывать

Функция РазбитьСтрокуНаСлова(СтрокаДляРазбития)
    МассивСлов = Новый Массив;    
    СтрокаСлов = СтрЗаменить(СтрокаДляРазбития," ",Символы.ПС+Символы.ВК);
    Для Индекс = 1 ПО СтрЧислоСтрок(СтрокаСлов) Цикл
        МассивСлов.Добавить(СтрПолучитьСтроку, Индекс);
    КонецЦикла;
    Возврат МассивСлов;

КонецФункции

Правильно не Количество а Количество()

(41) Да кто ж его запомнит как правильно. Давеча в C# вроде свойством видел

+(40) Вот правильно


Функция РазбитьСтрокуНаСлова(СтрокаДляРазбития)
    МассивСлов = Новый Массив;    
    СтрокаСлов = СтрЗаменить(СтрокаДляРазбития," ",Символы.ПС+Символы.ВК);
    Для Индекс = 1 ПО СтрЧислоСтрок(СтрокаСлов) Цикл
        МассивСлов.Добавить(СокрЛП(СтрПолучитьСтроку(СтрокаСлов)), Индекс);
    КонецЦикла;
    Возврат МассивСлов;

КонецФункции

Вообще правильный ответ был еще в 11. Но почему то чувак ее переименовал - это полностью типовая стандартнавя процедура.
От 1С.

Вызываем.

И делаем проверку на Количество()
Все нах.

(42) в 1С все методы со скобками.

(35) Ожидается символ ,

(43) а в процедуру ПередЗаписью что добавить?

(45) В языках которые я знаю, аналогично

(44) Читаем внимательно, конфа самописка

(47) Если РазбитьСтрокуНаСлова(Наименование).Количество < 3 Тогда
Отказ = Истина;
КонецЕсли;

Кароче жесть, тут на час работы!

переходите на 8.3.6 ))

Если СтрРазделить(Наименование, " ").Количество()<3 Тогда
   Отказ = Истина;
КонецЕсли;

Пипец. Уволил бы всех по списку.

(11) срабатывает в части предупреждение, после нажатия ок (согласия с предупреждением), записывает элемент, а нужно, чтобы не записывал, пока не по правилам наименование

спасибо (11)помогло пока. Возврат забыл. Спасибо за терпение

(53) Да ктоб к тебе пошел...
Нудятину терпеть блин.

сейчас проверю (43) и (50). очень добры и терпеливы

(50) выдал ошибку
добавил , после запятой что не понимаю

{Справочник.Номенклатура.Форма.ФормаЭлемента(49,64)}: Ожидается символ ','
        МассивСлов.Добавить(СокрЛП(СтрПолучитьСтроку(СтрокаСлов<<?>>)), Индекс);
{Справочник.Номенклатура.Форма.ФормаЭлемента(49,65)}: Неопознанный оператор
        МассивСлов.Добавить(СокрЛП(СтрПолучитьСтроку(СтрокаСлов)<<?>>), Индекс);
{Справочник.Номенклатура.Форма.ФормаЭлемента(50,5)}: Ожидается ключевое слово 'КонецФункции' ('EndFunction')
    <<?>>КонецЦикла;

МассивСлов.Добавить(СокрЛП(СтрПолучитьСтроку(СтрокаСлов,Индекс));

(57) Возможно еще потребуется проверка на пустую строку, если были несколько пробелов подряд

МассивСлов.Добавить(СокрЛП(СтрПолучитьСтроку(СтрокаСлов,Индекс));  добавил в конце еще одно )

и еще и в (50) после количество добавил (), сработало. Молодцы. проверю сейчас с пробелами

на пустую строку проверка уже есть в (0). не пускает с пробелами.

(58) и (11) спасибо и здоровья Вам. также всем тем, кто участвовал в обсужден
ии

(61) главное чтоб на пользу пошло)