Всем доброго дня. Есть текстовый файл с данными поставки товара. Контрагент может предоставлять так и никак иначе.(Закрытый вопрос).

Делаю веб сервис по загрузке.
Инфа о каждой поставке находится в 10 строках.
Типа 1)Контрагент 2)Организация 3) Дата 4)Товар и т.д.
Через 10 строк уже информация о новой поставке с теми же строками и с тем же порядком.

Понимаю как обойти каждую строку файла текстового, но не понимаю, как заставить алгоритм обработки через 10 строк начинать работу заново, но продолжать шагать по строкам.

Были бы ключевые слова, было бы понятно. Но их тут нет. Просто набор данных каждый в своей строке.

Если бы было всего 3 строки. То можно было бы проверять на четность. Но их тут 10....

Вкалывают роботы, а не человек.... :)

Делить по порядку от 1 до 10, потом проверять результат на целое?

Гм. Если НомерСтроки % 10 = 0 Тогда ...

(3) фигня. Не могу понять все равно.

(4) 50-ая строка тоже на 10 нацело поделится

(4) У нас же как раз десятичная система исчисления, поэтому достаточно, чтобы номер строки заканчивался на "1".

ИТ = ИТ + 1;

Если ИТ = 10 тогда ит = 0

(4) вы верно написали. Я поняла. Пусть будет 300 строк. Делим каждую на 10, и как только номер строки поделился нацело на 10, заканчиваем обработку и начинаем заново. Спасибо.

(8) ну и так тоже. Спасибо.

А добавить нужное число строк к нужной строке кто-то запретил?

главное что бы во всех документах было одинаковое количество товаров, а то весь алгоритм неожиданно рухнет :)

Процедура ОбработатьПоставкиИзФайла(ИмяФайла)
    // Открываем файл на чтение
    Если НЕ ФайлСуществует(ИмяФайла) Тогда
        Сообщить("Файл не найден: " + ИмяФайла);
        Возврат;
    КонецЕсли;

    ФайлТекста = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.UTF8);
    ДанныеТекста = Новый ТекстовФайлЧтения(ФайлТекста);

    // Бесконечный цикл для обработки строк файла
    Пока Истина Цикл
        // Считываем 10 строк для одной поставки
        Контрагент = ДанныеТекста.ПрочитатьСтроку();
        Если Контрагент = Неопределено Тогда Прервать; КонецЕсли;

        Организация = ДанныеТекста.ПрочитатьСтроку();
        Если Организация = Неопределено Тогда Прервать; КонецЕсли;

        Дата = ДанныеТекста.ПрочитатьСтроку();
        Если Дата = Неопределено Тогда Прервать; КонецЕсли;

        Товар = ДанныеТекста.ПрочитатьСтроку();
        Если Товар = Неопределено Тогда Прервать; КонецЕсли;

        // Далее идет обработка остальных строк...

        // Создаем документ "РеализацияТоваровУслуг"
        ДокументРеализации = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
        ДокументРеализации.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(Контрагент);
        ДокументРеализации.Организация = Справочники.Организации.НайтиПоНаименованию(Организация);
        ДокументРеализации.Дата = СтрДата(Дата, Ложь);
        
        // Заполняем табличную часть
        СтрокаТаблицы = ДокументРеализации.Товары.Добавить();
        СтрокаТаблицы.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Товар);

        // Сохраняем документ
        ДокументРеализации.Записать();
    КонецЦикла;

    // Закрываем файл
    ДанныеТекста.Закрыть();
КонецПроцедуры

(13) ой, спасибо большое. Очень помогли.

(14) Спасибо ChatGPT

"Если Контрагент = Неопределено Тогда Прервать; КонецЕсли;"
Это ChatGPT такое написал?

(13) всё не читал

ДанныеТекста = Новый ТекстовФайлЧтения(ФайлТекста);

ГПТ новые заклинания умеет выдумывать для 1С?

(17) СтрДата(Дата, Ложь) туда же.

Это технические дефекты. Сами доработайте программный код. Общая идея и структура понятна же.

Что-то не вижу выхода из бесконечного цикла...
А вижу, всё норм

(20) потому что (16) ))

(16) да

(15) тут похоже чатгпт учит чатгпт - цикл замкнулся )))

Плохо, когда остаток от деления в школе не проходили

(24) Остаток от деления на 10 есть просто последняя цифра самого числа.

(a_n*10ⁿ + a_n-1*10^n-1 + ... + a₁*10 + a₀) / 10 =
= a_n*10^n-1 + a_n-1*10^n-2 + ... + a₁ + a₀ / 10

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

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

(23) В статье на хабре излагается гипотеза, что модель ChatGPT o1 будет генерировать обучающие датасеты для версии GPT-5.
https://habr.com/ru/companies/ods/articles/843250/

Так что всё идёт по плану.
Мы внутри wiki:Технологическая_сингулярность

(26) синтаксис удручает, но многие вещи делаются очень быстро. Писал торгового робота в своё время для крипты, на заре торговли электронами

кстати, если в ChatGPT запульнуть задачку по 1С 7.7, вот тут его конкретно клинит. я пробовал...

(30) Это к лучшему

(29) пока про "срезы" читал - чуть мозг не сломал. вычурно очень работа с подстроками ;-) но может в этом есть какой-то скрытый смысл от меня ;-)