В практике разработки на платформе 1С:Предприятие часто возникает задача парсинга строк, когда необходимо получить конкретный фрагмент текста, заключенный в определенные символы, например, в кавычки, скобки или, как в нашем случае, в звездочки *. Рассмотрим подробнее несколько способов решения этой задачи: от самых простых встроенных функций до использования мощных инструментов регулярных выражений.
Начиная с версии платформы 8.3.6, разработчикам стал доступен крайне удобный метод СтрРазделить. Этот метод разбивает исходную строку на массив подстрок, используя указанный разделитель. Проанализируем ситуацию, когда искомый текст находится внутри одной пары звездочек.
Если мы имеем строку вида "Префикс *Нужный текст* Суффикс" и разделим ее по символу *, то получим массив из трех элементов:
"Префикс ")." Суффикс").Рассмотрим пример кода, который был признан наиболее эффективным в обсуждении:
ТекстИсточник = "Слово слово слово .. слово *То что надо выделить* слово слово";
МассивЧастей = СтрРазделить(ТекстИсточник, "*");
// Проверяем, что в строке было как минимум две звездочки (массив содержит 3+ элемента)
Если МассивЧастей.Количество() >= 3 Тогда
Результат = МассивЧастей[1];
Сообщить(Результат);
КонецЕсли;
Важный нюанс: всегда следует проверять количество элементов в полученном массиве. Если в исходной строке не окажется разделителей или будет только одна звездочка, обращение к индексу [1] вызовет фатальную ошибку выполнения программы «Индекс находится за границами массива».
Если вы работаете на старых версиях платформы или хотите избежать создания массива (что может быть критично при обработке огромных объемов данных в цикле), целесообразно использовать функции поиска позиций. Этот метод считается «классическим» и работает максимально быстро. Для расширения возможностей стандартных строковых алгоритмов можно использовать набор методов для работы со строками в 1С.
Разберем алгоритм по шагам:
*.*, начиная поиск со следующей позиции после первого вхождения.Сред.Проанализируем программную реализацию:
Текст = "Слово слово *искомое* слово";
СимволРазделитель = "*";
Поз1 = СтрНайти(Текст, СимволРазделитель);
Если Поз1 > 0 Тогда
// Ищем вторую звездочку, начиная со следующего символа
Поз2 = СтрНайти(Текст, СимволРазделитель, , Поз1 + 1);
Если Поз2 > 0 Тогда
// Длина текста — это разница позиций минус единица
ДлинаТекста = Поз2 - Поз1 - 1;
Результат = Сред(Текст, Поз1 + 1, ДлинаТекста);
Сообщить(Результат);
КонецЕсли;
КонецЕсли;
Этот метод надежен, так как мы явно контролируем наличие обоих разделителей перед извлечением данных.
Для более сложных случаев, когда структура строки может варьироваться или когда нужно найти все вхождения текста между звездочками в большом тексте, на помощь приходят регулярные выражения. В 1С они реализуются через COM-объект VBScript.RegExp.
Выясним, как составить правильный паттерн. Для поиска текста между двумя звездочками подойдет шаблон: \*([^*]*)\*. Рассмотрим подробнее, что он означает:
\* — экранированная звездочка (так как в регулярных выражениях это служебный символ).([^*]*) — захватывающая группа, которая ищет любое количество символов, НЕ являющихся звездочкой.\* — закрывающая звездочка.Пример использования в коде 1С:
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.IgnoreCase = Истина;
RegExp.Global = Истина;
RegExp.MultiLine = Истина;
RegExp.Pattern = "\*([^*]*)\*";
Текст = "Первый *блок* и второй *фрагмент* текста";
Matches = RegExp.Execute(Текст);
Для Каждого Match Из Matches Цикл
// SubMatches(0) содержит текст внутри скобок нашего паттерна
Сообщить("Найдено: " + Match.SubMatches(0));
КонецЦикла;
Использование RegExp позволяет избежать проблем с «жадностью» поиска, когда стандартные функции могут ошибочно захватить лишний текст между первой и самой последней звездочкой в предложении. При необходимости комплексного применения внешних скриптов для обработки данных подойдёт библиотека функций VBScript для обработки строк и данных.
Если в вашей строке содержится несколько блоков, выделенных звездочками (например, "параметр1: *значение1*, параметр2: *значение2*"), метод СтрРазделить также может быть очень полезен. При разделении такой строки все элементы массива с нечетными индексами (1, 3, 5...) будут содержать текст, находившийся между разделителями.
Посмотрим на пример обработки в цикле:
МассивЧастей = СтрРазделить(ИсходнаяСтрока, "*");
Для Счетчик = 0 По МассивЧастей.Количество() - 1 Цикл
// Каждый второй элемент (индексы 1, 3, 5...) — это данные между разделителями
Если Счетчик % 2 <> 0 Тогда
Сообщить("Найден выделенный текст: " + МассивЧастей[Счетчик]);
КонецЕсли;
КонецЦикла;
Подводя итог, проанализируем, какой метод лучше выбрать в зависимости от условий задачи:
СтрРазделить с обязательной проверкой количества элементов. Это самый современный и лаконичный код.СтрНайти и Сред, так как они не порождают создание тяжелых объектов (массивов или COM-объектов).RegExp. Это позволит гибко настраивать правила поиска, игнорировать регистр или искать текст по сложным шаблонам внутри разделителей.СтрЗаменить(Текст, "*", Символы.ПС) и последующий перебор строк через СтрПолучитьСтроку, либо стандартный СтрНайти.Важно помнить о безопасности кода: всегда предполагайте, что входная строка может быть пустой, поврежденной или не содержать закрывающего символа. Проверка условий перед обращением к данным — залог стабильной работы вашей конфигурации.