Обрезка строки справа в 1С: все методы с практическими примерами

Работа со строками в 1С:Предприятие — одна из самых частых задач при разработке конфигураций, написании отчётов или обработке данных. Обрезка строки справа может понадобиться для удаления лишних пробелов, символов, суффиксов или приведения данных к единому формату. Например, при импорте данных из внешних источников часто встречаются строки с пробелами в конце, которые мешают сравнению или сортировке.

В этой статье разберём 5 основных способов обрезки строки справа в 1С 8.3 и 1С 8.2, включая стандартные функции платформы и пользовательские алгоритмы. Особое внимание уделим нюансам работы с СокрЛП(), Правая(), Сред(), а также рассмотрим случаи, когда требуется обрезать не пробелы, а конкретные символы (точки, запятые, скобки). Все примеры сопровождаются готовым кодом, который можно сразу использовать в своих конфигурациях.

Если вы работаете с большими объёмами данных, то правильная обрезка строк поможет избежать ошибок при сравнении, поиске или записи в базу. Например, строки "Иванов_" и "Иванов" для системы — разные значения, хотя визуально отличаются лишь пробелом. Далее вы узнаете, как такого избежать.

1. Функция СокрЛП() — удаление пробелов справа (и слева)

Самый простой и распространённый способ обрезать пробелы справа — использовать встроенную функцию СокрЛП(). Она удаляет все пробелы как в начале, так и в конце строки. Если вам нужно убрать только правые пробелы, этот метод подойдёт, но учтите, что левые пробелы тоже будут удалены.

Синтаксис функции:

СокрЛП(<Строка>)

Примеры использования:

• 📌 СокрЛП(" Пример ") → вернёт "Пример" (убраны пробелы с обеих сторон).
• 📌 СокрЛП("Данные___") → вернёт "Данные" (три пробела справа удалены).
• 📌 СокрЛП(" ") → вернёт пустую строку "".

Если вам нужно сохранить пробелы слева, но убрать только справа, придётся использовать другой подход (см. раздел 3). Также СокрЛП() не удаляет другие "непечатаемые" символы, например табуляцию (СимвольныеКоды.Таб) или перевод строки (СимвольныеКоды.ВК). Для их удаления потребуется дополнительная обработка.

⚠️ Внимание: Функция СокрЛП() работает только с пробелами (код символа 32). Если в конце строки есть другие "пустые" символы (например, неразрывный пробел СимвольныеКоды.НПП), они останутся. Для их удаления используйте СтрЗаменить().

2. Функция Правая() для обрезки по количеству символов

Когда нужно обрезать строку справа на фиксированное количество символов, используйте функцию Правая(). Она возвращает указанное число символов с конца строки, но если задать отрицательное значение или ноль, можно эффективно "отсечь" часть строки.

Синтаксис:

Правая(<Строка>, <КоличествоСимволов>)

Чтобы обрезать N символов справа, используйте формулу:

Левая(ИсходнаяСтрока, СтрДлина(ИсходнаяСтрока) - N)

Примеры:

• 🔢 Обрезать 3 символа справа:

  Левая("АБВГДЕЖЗ", 8 - 3) // Вернёт "АБВГД"

• 🔢 Удалить расширение файла (например, .txt):

  Левая("файл.txt", СтрДлина("файл.txt") - 4) // Вернёт "файл"

Этот метод удобен, когда вы точно знаете, сколько символов нужно удалить. Однако если длина строки меньше заданного количества, результат будет пустой строкой. Чтобы избежать ошибок, добавьте проверку:

Если СтрДлина(ИсходнаяСтрока) > N Тогда
Результат = Левая(ИсходнаяСтрока, СтрДлина(ИсходнаяСтрока) - N);
Иначе
Результат = ИсходнаяСтрока;
КонецЕсли;

3. Удаление конкретных символов справа (не пробелов)

Часто требуется обрезать не пробелы, а определённые символы — например, точки, запятые, скобки или кавычки. Для этого подходит цикл с проверкой последнего символа или функция СтрЗаменить() с регулярными выражениями (в новых версиях 1С).

Пример 1: Удаление точек в конце строки

Перем Строка, Результат;
Строка = "Пример...";

Пока Правая(Строка, 1) = "." И СтрДлина(Строка) > 0 Цикл
Строка = Левая(Строка, СтрДлина(Строка) - 1);
КонецЦикла;

Результат = Строка; // Вернёт "Пример"

Пример 2: Удаление нескольких типов символов (запятая, точка, восклицательный знак):

Функция ОбрезатьСимволыСправа(Знач Строка, Знач СимволыДляУдаления)
Перем Результат, ПоследнийСимвол;
Результат = Строка;

Пока Найти(ПоследнийСимвол(Результат), СимволыДляУдаления) > 0 И СтрДлина(Результат) > 0 Цикл
Результат = Левая(Результат, СтрДлина(Результат) - 1);
КонецЦикла;

Возврат Результат;
КонецФункции

// Использование:
ОбрезатьСимволыСправа("Тест,!", ",!") // Вернёт "Тест"

Для версий 1С:Предприятие 8.3.14+ можно использовать регулярные выражения через СтрПолучитьРегВыражение(), но этот метод требует дополнительных знаний и может быть менее производительным на больших объёмах данных.

4. Обрезка до последнего вхождения символа

Иногда требуется обрезать строку до последнего вхождения определённого символа. Например, из пути "C:\Папка1\Папка2\Файл.txt" нужно получить "C:\Папка1\Папка2" (удалить имя файла). Для этого используйте комбинацию функций Найти() и Левая().

Пример: обрезка до последней точки (для удаления расширения файла):

Функция ОбрезатьДоПоследнейТочки(Строка)
Перем ПозицияТочки;

ПозицияТочки = СтрНайти(Строка, ".", НаправлениеПоиска.СКонца);
Если ПозицияТочки = 0 Тогда
Возврат Строка; // Точек нет
Иначе
Возврат Левая(Строка, ПозицияТочки - 1);
КонецЕсли;
КонецФункции

// Использование:
ОбрезатьДоПоследнейТочки("документ.pdf") // Вернёт "документ"

Аналогично можно обрезать до последнего слеша, запятой или другого разделителя. Важно учитывать направление поиска (НаправлениеПоиска.СКонца), чтобы найти последнее вхождение, а не первое.

Для путей файлов в Windows удобно использовать функцию ПолучитьИмяКаталога() из библиотеки ФайловаяСистема:

Путь = "C:\Data\Отчет.xlsx";
Каталог = ФайловаяСистема.ПолучитьИмяКаталога(Путь); // Вернёт "C:\Data"

5. Обрезка с учётом регистра и кодировки

При работе с многобайтовыми кодировками (например, UTF-8) или строками на разных языках могут возникнуть нюансы. Например, кириллические символы занимают 2 байта, и стандартные функции Левая()/Правая() работают корректно только с однобайтовыми кодировками. В современных версиях 1С это учитывается автоматически, но в старых конфигурациях могут быть проблемы.

Пример проблемы: строка "Привет!" в UTF-8 имеет длину 7 символов, но 12 байт. Если обрезать её как байтовый массив, можно получить "битые" символы. Чтобы избежать этого, всегда используйте символьные функции (СтрДлина(), Левая()), а не байтовые.

Если вам нужно обрезать строку до определённой байтовой длины (например, для записи в файл фиксированного формата), используйте следующий подход:

Функция ОбрезатьДоБайт(Строка, МаксБайт)
Перем Результат, ДлинаБайт;

Результат = Строка;
Пока СтрДлинаБайт(Результат) > МаксБайт И СтрДлина(Результат) > 0 Цикл
Результат = Левая(Результат, СтрДлина(Результат) - 1);
КонецЦикла;

Возврат Результат;
КонецФункции

Для работы с UTF-8 в 1С 8.3.10+ доступна функция СтрПолучитьUTF8Длину(), которая корректно считает длину строки в байтах с учётом многобайтовых символов.

⚠️ Внимание: При обмене данными с внешними системами (например, через HTTP-Сервис или COM-соединение) всегда уточняйте ожидаемую кодировку. Несовпадение кодировок может привести к обрезке "кривых" символов.

6. Производительность: какой метод выбрать?

Выбор метода обрезки строки зависит от объёма данных и частоты выполнения операции. Для разовых действий подойдёт любой способ, но при обработке тысяч строк в цикле важно оптимизировать код.

Сравнение производительности (от быстрого к медленному):

1. СокрЛП() — самый быстрый для удаления пробелов (встроенная функция).
2. Цикл с Правая() и Левая() — эффективен для удаления конкретных символов.
3. Регулярные выражения — гибкие, но медленные на больших объёмах.
4. Посимвольная обработка в цикле — удобно для сложной логики, но требует оптимизации.

Примеры оптимизации:

• 🚀 Для массовой обработки используйте Массив и векторные операции вместо циклов по строкам.
• 🚀 Кэшируйте результаты СтрДлина() в переменных, если длина строки используется многократно.
• 🚀 Избегайте вложенных вызовов функций — например, вместо Левая(Строка, СтрДлина(Строка) - 1) сохраните длину в переменную.

Тест производительности на 10 000 строк (усреднённые данные):

FAQ: Частые вопросы по обрезке строк в 1С

Строка = "Иванов Иван Иванович";
ПозицияПробела = СтрНайти(Строка, " ");
Если ПозицияПробела > 0 Тогда
Результат = Левая(Строка, ПозицияПробела - 1); // Вернёт "Иванов"
КонецЕсли;

Строка = СтрЗаменить(Строка, Символ(160), "");
Строка = СокрЛП(Строка);

ВЫБРАТЬ
ЛЕВ(Поле, ДЛСТР(Поле) - 3) КАК ОбрезанноеПоле
ИЗ
Документ.МойДокумент

// Обрезать 5 символов справа
Результат = Левая(ИсходнаяСтрока, СтрДлина(ИсходнаяСтрока) - 5);

Процедура ПолеВводаПриИзменении(Элемент)
Элемент.Значение = СокрЛП(Элемент.Значение);
КонецПроцедуры