Текстовый файл

Форум Программирование Общие вопросы программирования (Dev)
Платформа 1С v8.3
1. Santa4527 10.02.09 15:27 Сейчас в теме
Пример текстового файла

9999999999991,EAN-13, 3:32:45 AM 2/10/22
2099999274521,EAN-13, 3:32:45 AM 2/10/22
2099999274521,EAN-13, 3:32:45 AM 2/10/22
9999999999992,EAN-13, 3:32:45 AM 2/10/22
2099999274521,EAN-13, 3:32:45 AM 2/10/22
2099999274521,EAN-13, 3:32:45 AM 2/10/22
8412544019837,EAN-13, 3:32:45 AM 2/10/22
8412544019837,EAN-13, 3:32:45 AM 2/10/22
9999999999993,EAN-13, 3:32:45 AM 2/10/22
2099999274521,EAN-13, 3:32:45 AM 2/10/22
2099999274521,EAN-13, 3:32:45 AM 2/10/22
2099999274644,EAN-13, 3:32:45 AM 2/10/22
2099999274644,EAN-13, 3:32:45 AM 2/10/22

Мне нужно чтобы он сначала обработал

9999999999991,EAN-13, 3:20:28 AM 2/10/22
2099999274521,EAN-13, 3:19:42 AM 2/10/22
2099999274521,EAN-13, 3:19:56 AM 2/10/22

Провел поиск по регистру посчитал количество, а потом обработал

9999999999992,EAN-13, 3:20:28 AM 2/10/22
2099999274521,EAN-13, 3:20:28 AM 2/10/22
2099999274521,EAN-13, 3:20:37 AM 2/10/22
8412544019837,EAN-13, 3:20:37 AM 2/10/22
8412544019837,EAN-13, 3:20:37 AM 2/10/22

И так далия!!!

КАК это сделать?
+ – Ответить
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. Santa4527 10.02.09 15:28 Сейчас в теме
Есть файл тхт (пример на верху), я обрабатываю его так 

Текст = Новый ТекстовыйДокумент;
Текст.Прочитать("C:\1CInfo\1.txt");                
КоличествоНоменклатуры = 1; 
МассивПовторов  = Новый Массив;
Док  = ДЗУпаковка.Строки[0].Строки.Добавить();
Док.НомерКоробки = 1;
Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл 
Стр = Лев((Текст.ПолучитьСтроку(НомерСтроки)),13);
Индекс= МассивПовторов.Найти(стр);
Если Индекс <> Неопределено  тогда  //если есть повторы  не берем ШК , переходим к след. записи
 
            продолжить;
      КонецЕсли;
Для НомерСтрокиПовторногоПоиска =НомерСтроки +1  ПО Текст.КоличествоСтрок()  Цикл
СтрПовтор = Лев((Текст.ПолучитьСтроку(НомерСтрокиПовторногоПоиска)),13);
Если стр =  СтрПовтор     тогда                                                                                                                 МассивПовторов.Добавить(стр);
  КоличествоНоменклатуры = КоличествоНоменклатуры +1;
  КонецЕсли;
КонецЦикла;
Показать
+ – Ответить
3. Душелов 4018 10.02.09 15:30 Сейчас в теме
Ничего не понятно.
+ – Ответить
4. Santa4527 10.02.09 15:33 Сейчас в теме
Как мне сделать, чтобы он не сразу весь файл обрабатывал, а по частям?
сначала

9999999999991,EAN-13, 3:20:28 AM 2/10/22
2099999274521,EAN-13, 3:19:42 AM 2/10/22
2099999274521,EAN-13, 3:19:56 AM 2/10/22

А потом

9999999999992,EAN-13, 3:20:28 AM 2/10/22
2099999274521,EAN-13, 3:20:28 AM 2/10/22
2099999274521,EAN-13, 3:20:37 AM 2/10/22
8412544019837,EAN-13, 3:20:37 AM 2/10/22
8412544019837,EAN-13, 3:20:37 AM 2/10/22
+ – Ответить
5. Душелов 4018 10.02.09 15:36 Сейчас в теме
А в чем проблема добавить условие на 9999 ?
+ – Ответить
6. Santa4527 10.02.09 15:42 Сейчас в теме
Какое условие и куда?
+ – Ответить
7. maxpiter 148 12.02.09 16:46 Сейчас в теме
1 вариант)
Читаешь файл и
...
ПрочитаноСтрок= ПрочитаноСтрок+1;
Если ПрочитаноСтрок/3=Цел(ПрочитаноСтрок/3) Тогда
делаем чего надо с регистрами
КонецЕсли;
...
2 вариант)
Как сказал Душелов
Если Лев(EAN,4)="9999" Тогда
делаем чего надо с регистрами
КонецЕсли;
+ – Ответить
8. Abadonna 3968 12.02.09 21:38 Сейчас в теме
"Программирование на 1С: Предприятие 8"
Какое отношение это имеет к программированию на 8? Это вопрос по просто программированию.
Причем, сорри, детский
+ – Ответить
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот