Как в большом текстовом файле записанного одной очень длинной строкой с кодировкой utf-8 найти и заменить текст?

@Vladimir1753 · Регистрация: 17.03.2021

Студворк — интернет-сервис помощи студентам

Здравствуйте, уважаемые знатоки VBA.
Я не программист, но приходится иногда «с книжкой на коленках». В 1990-м году чуть-чуть ознакомительно изучал возможности Turbo Pascal 5.0 для персональных ЭВМ. Вот уж не думал, что после 50 лет придется ещё и VBA изучать. Но, как говориться: «Век живи - век учись...» и «Дорогу осилит идущий».

Раньше, из других подобных файлов начинающихся строкой <?xml version="1.0" encoding="utf-8" standalone="no"?> в Microsoft Excel 2010 я построчно считывал строку String в ячейки Excel, обрабатывал и обратно построчно записывал их в файл. Но теперь столкнулся с тем, что файл около 70 Килобайт записан одной очень длинной строкой, которая не помещается в ячейку. В некоторых функциях обработки строк которыми я пользовался раньше есть ограничение по длине строк String.

Помогите, пожалуйста.

Напишите пример Sub, как в приложенном фале "ШаблонТранспортнойНакладной_001.fp3 " заменить строку
"{№_Заказа}" на "12345/19-24",
"{ФИО_Водителя}" на "Иванов И. И. ",
"{Цифрами_кг}" на "12345 кг." и т.д.

Дальше я сам буду пробовать. Предполагаю, что данные строки что искать: "{№_Заказа}" будет в ячейке Excel «A1», а на что заменить "12345/19-24" будет в ячейке Excel «B1» и т.д.

Пожалуйста, в Sub явно объявите переменные, так как включена «option explicit». Буду очень благодарен, если к коду будут хоть маленькие «пояснялочки» или ссылки где об этом можно почитать более подробно ведь я не программист. Предполагаю, что в будущем мне еще не раз придется столкнуться с подобными файлами.

По правилам форума прикрепленный файл *.fp3 переименован в *.doc "ШаблонТранспортнойНакладной_001.doc " пожалуйста переименуйте его в *.fp3 самостоятельно.

Используется: Windows 7 – 64, Microsoft Excel 2010
Буду благодарен за любую помощь.

@Eugene-LS · 31.03.2024, 22:01

Сообщение от Vladimir1753

Но в этом случае столкнулся с файлом записанным одной длинной строкой

Если нужно результирующий текст разбить на строки, то достаточно вставить в код (post#35), под строчку #62 такой блок:

Visual Basic
1
2
3
4
'Вставка переводов строки между тегами (опционально)
    sFindVal = "><"                   ' Что меняем
    sReplaceVal = ">" & vbCrLf & "<"  ' На что меняем
    sVal = Replace(sVal, sFindVal, sReplaceVal, 1, , vbTextCompare)

@Jack Famous · 01.04.2024, 10:12

Сообщение от HackerVlad

моя скорость будет выше

без тестов — голословно

@Vladimir1753 · 01.04.2024, 12:00 **[ТС]**

Сообщение от Eugene-LS

достаточно вставить в код (post#35), под строчку #62 такой блок

Я уже даже знаю где это можно применить ещё в другом проекте, который на форуме не обсуждался.
Спасибо за подсказку. Помощь профессионалов мне действительно очень важна!
Учусь на бегу.

Добавлено через 11 минут

Сообщение от shanemac51

причем методика пригодна для любого подобного шаблона

Спасибо.
Вместе со спотыканиями и "шишками", нарабатываю опыт. Впереди ещё много подводных камней. Главное не бояться. Дорогу осилит идущий!

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .