ЧтениеДанных.НачатьКопированиеВ

Разобрать свою запись: заголовок, название, код, статус и хвост

Полный callback-модуль разбирает HDR|Книга#A-01Готов + ПС + END. У каждого поля есть явное правило границы или длины.

Подготовка

1. Создайте учебную внешнюю обработку с пустой управляемой основной формой. Создайте команду УчебныйПример и кнопку этой команды.

2. В свойстве команды Действие выберите процедуру УчебныйПример. Вставьте полный приведённый модуль формы.

3. Откройте EPF в тонком или толстом клиенте Windows и нажмите кнопку. Не переносите Ждать и Асинх в серверный общий модуль.

4. Пример работает только со своими данными в памяти; записи в базу, файлы и сеть нет.

Перем Выполняется;

&НаКлиенте
Процедура УчебныйПример(Команда)
    Если Выполняется = Истина Тогда
        Сообщить("Дождитесь завершения предыдущей учебной цепочки");
        Возврат;
    КонецЕсли;
    Данные = ПолучитьДвоичныеДанныеИзСтроки("HDR|Книга#A-01Готов" + Символы.ПС + "END", КодировкаТекста.UTF8, Ложь);
    Чтение = Новый ЧтениеДанных(Данные, КодировкаТекста.UTF8, , Символы.ПС);
    Целевой = Новый ПотокВПамяти;
    Состояние = Новый Структура("Чтение,ЧтениеЗакрыто,Целевой,ЦелевойЗакрыт", Чтение, Ложь, Целевой, Ложь);
    Выполняется = Истина;
    Попытка
        Состояние.Чтение.НачатьПропуск(ОповещениеДля("ПослеЗаголовка", Состояние), 3);
    Исключение
        ОсвободитьУчебныеРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Функция ОповещениеДля(ИмяОбработчика, Состояние)
    Возврат Новый ОписаниеОповещения(ИмяОбработчика, ЭтотОбъект, Состояние,
        "ОшибкаОперации", ЭтотОбъект);
КонецФункции

&НаКлиенте
Процедура ОшибкаОперации(Ошибка, СтандартнаяОбработка, Состояние) Экспорт
    ОсвободитьУчебныеРесурсы(Состояние);
    Выполняется = Ложь;
    СтандартнаяОбработка = Истина;
КонецПроцедуры

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

&НаКлиенте
Процедура ПослеЗаголовка(Количество, Состояние) Экспорт
    Если Количество <> 3 Тогда
        ОсвободитьУчебныеРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение "Заголовок учебной записи неполный";
    КонецЕсли;
    Состояние.Чтение.НачатьПропускДо(ОповещениеДля("ПослеГраницы", Состояние), "|", КодировкаТекста.UTF8);
КонецПроцедуры

&НаКлиенте
Процедура ПослеГраницы(ИндексМаркера, Состояние) Экспорт
    Если ИндексМаркера = -1 Тогда
        ОсвободитьУчебныеРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение "Нет обязательной границы |";
    КонецЕсли;
    Состояние.Чтение.НачатьЧтениеДо(ОповещениеДля("ПослеНазвания", Состояние), "#", КодировкаТекста.UTF8);
КонецПроцедуры

&НаКлиенте
Процедура ПослеНазвания(Результат, Состояние) Экспорт
    Если Не Результат.МаркерНайден Тогда
        ОсвободитьУчебныеРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение "Нет обязательной границы названия #";
    КонецЕсли;
    Сообщить(ПолучитьСтрокуИзДвоичныхДанных(Результат.ПолучитьДвоичныеДанные(), КодировкаТекста.UTF8) = "Книга");
    Состояние.Чтение.НачатьЧтениеСимволов(ОповещениеДля("ПослеКода", Состояние), 4);
КонецПроцедуры

&НаКлиенте
Процедура ПослеКода(Код, Состояние) Экспорт
    Сообщить(Код = "A-01");
    Состояние.Чтение.НачатьЧтениеСтроки(ОповещениеДля("ПослеСтатуса", Состояние));
КонецПроцедуры

&НаКлиенте
Процедура ПослеСтатуса(Статус, Состояние) Экспорт
    Сообщить(Статус = "Готов");
    Состояние.Чтение.НачатьКопированиеВ(ОповещениеДля("ПослеКопирования", Состояние), Состояние.Целевой);
КонецПроцедуры

&НаКлиенте
Процедура ПослеКопирования(Количество, Состояние) Экспорт
    Сообщить(Количество = 3);
    Состояние.Чтение.НачатьЗакрытие(ОповещениеДля("ПослеЗакрытияЧтения", Состояние));
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗакрытияЧтения(Состояние) Экспорт
    Состояние.ЧтениеЗакрыто = Истина;
    Тело = Состояние.Целевой.ЗакрытьИПолучитьДвоичныеДанные();
    Состояние.ЦелевойЗакрыт = Истина;
    Сообщить(ПолучитьСтрокуИзДвоичныхДанных(Тело, КодировкаТекста.UTF8) = "END");
    Выполняется = Ложь;
КонецПроцедуры

Разбор по шагам

1. Заголовок HDR занимает три ASCII-байта; проверяем фактически пропущенное количество.

2. Название заканчивается #. Прежде чем считать результат корректным, проверяем обязательную границу | и затем МаркерНайден для #.

3. Код A-01 имеет фиксированные четыре СИМВОЛА; НачатьЧтениеСимволов использует символы, не количество байтов.

4. Статус читаем до заданного ПС. Callback получает строку Готов без разделителя.

5. Оставшийся двоичный хвост копируем в новый поток. Количество в callback копирования — фактическое число байтов.

6. Ресурсы закрываются после завершения соответствующих операций; форма запрещает перекрывающиеся запуски.

Как проверить результат

1. Пять сравнений Истина: Книга, A-01, Готов, три скопированных байта, END.

2. Удалите # во входной строке: пример прекращает разбор с сообщением об отсутствующей границе.

Ожидаемый результат

Разобрана собственная структурированная запись с разными правилами полей и точными callback-результатами.

На что обратить внимание

1. Это учебная запись, не реальный формат Авито/1С. Здесь специально не предусмотрены вложенные # в названии.

2. ПропуститьДо ищет границу дальше по потоку, а не проверяет её строго в текущей позиции; для строгого протокола дополнительно проверяйте позиционные ограничения.

3. ПолучитьДвоичныеДанные внутри callback синхронно допустим в указанном Windows-клиенте; веб-клиент не заявлен.

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