Как заменить последний символ в строке в 1С

Замена последнего символа строки — типовая задача при обработке данных в 1С: обрезка лишней запятой в конце списка, замена разделителя в выгрузке, корректировка окончания наименования. Встроенной функции «заменить последний символ» во встроенном языке нет, но задача решается комбинацией функций СтрДлина, Лев и конкатенации, либо через Сред и СтрЗаменить в зависимости от условий.

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

Базовый способ: Лев + СтрДлина

Самый надёжный вариант — отрезать последний символ функцией Лев и присоединить новый. Функция СтрДлина(Строка) возвращает количество символов, а Лев(Строка, N) берёт первые N символов. Если взять СтрДлина(Строка) - 1 символов слева, последний символ отбрасывается.

ИсходнаяСтрока = "Товар1,Товар2,Товар3,";
НоваяСтрока = Лев(ИсходнаяСтрока, СтрДлина(ИсходнаяСтрока) - 1) + ";";
// Результат: "Товар1,Товар2,Товар3;"

Этот подход работает с любыми символами, включая спецсимволы и кириллицу, и не зависит от содержимого строки. Именно его стоит использовать по умолчанию, когда нужно заменить последний символ в строке 1С без дополнительных условий.

Если задача — просто удалить последний символ (например, лишнюю запятую), достаточно не добавлять новый символ:

СтрокаБезПоследнего = Лев(ИсходнаяСтрока, СтрДлина(ИсходнаяСтрока) - 1);

НоваяСтрока = Лев(ИсходнаяСтрока, СтрДлина(ИсходнаяСтрока) - 1) + "НовыйСимвол";

Защита от пустой и короткой строки

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

Строка из одного символа — ещё один граничный случай: Лев(Строка, 0) вернёт пустую строку, и результатом будет просто новый символ. Иногда это допустимо, иногда — ошибка бизнес-логики. Поэтому перед заменой добавьте проверку длины.

Если СтрДлина(ИсходнаяСтрока) > 0 Тогда
НоваяСтрока = Лев(ИсходнаяСтрока, СтрДлина(ИсходнаяСтрока) - 1) + ";";
Иначе
НоваяСтрока = ИсходнаяСтрока; // или другое действие по умолчанию
КонецЕсли;

Условная замена: только если последний символ совпадает

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

Если СтрДлина(ИсходнаяСтрока) > 0 И Прав(ИсходнаяСтрока, 1) = "," Тогда
НоваяСтрока = Лев(ИсходнаяСтрока, СтрДлина(ИсходнаяСтрока) - 1) + ";";
Иначе
НоваяСтрока = ИсходнаяСтрока;
КонецЕсли;

Такой вариант безопасен при обработке списков, сформированных в цикле: если разделитель добавлялся после каждого элемента, в конце гарантированно окажется лишний, и его можно точечно заменить или удалить. Если же последний символ другой — строка останется нетронутой, что исключает порчу данных.

Для проверки нескольких допустимых символов удобно использовать СтрНайти: например, Если СтрНайти(",;.", Прав(Строка, 1)) > 0 Тогда.. — условие сработает, если строка заканчивается запятой, точкой с запятой или точкой.

Альтернативные способы и когда они уместны

Функция СтрЗаменить(Строка, ЧтоЗаменить, НаЧто) заменяет все вхождения подстроки, а не только последний символ. Использовать её для этой задачи напрямую нельзя: СтрЗаменить("а,б,", ",", ";") заменит обе запятые. Она подходит, только если заменяемый символ гарантированно встречается один раз — но тогда проще базовый способ.

В толстом клиенте и на сервере доступны регулярные выражения через COM-объект VBScript.RegExp (только Windows) или аналогичные механизмы. Паттерн .$ находит последний символ строки. Это оправдано при сложных шаблонах, но для простой замены одного символа — избыточно и медленнее, чем Лев + СтрДлина.

Ещё один вариант — функция Сред: Сред(Строка, 1, СтрДлина(Строка) - 1) делает то же, что и Лев. Разницы в результате нет, выбор — вопрос привычки.

Практический сценарий: обрезка разделителя в цикле

Наиболее частая реальная задача — сборка строки в цикле с разделителем, после которой в конце остаётся лишний символ. Типичный пример — формирование списка артикулов или значений для выгрузки:

Результат = "";
Для Каждого Элемент Из СписокЗначений Цикл
Результат = Результат + Элемент + ",";
КонецЦикла;

// Убираем последнюю запятую
Если СтрДлина(Результат) > 0 Тогда
Результат = Лев(Результат, СтрДлина(Результат) - 1);
КонецЕсли;

Альтернатива без замены последнего символа — добавлять разделитель перед элементом, кроме первого, или использовать СтрСоединить с массивом значений. Эти подходы чище, но если код уже написан через накопление строки, обрезка последнего символа — рабочее и читаемое решение.

1. 1
   Проверьте, что строка не пустая: СтрДлина(Строка) > 0
2. 2
   При необходимости убедитесь, что последний символ именно тот: Прав(Строка, 1) = ","
3. 3
   Сформируйте новую строку: Лев(Строка, СтрДлина(Строка) - 1) + "НовыйСимвол"
4. 4
   Проверьте результат на тестовых данных, включая строку из одного символа

Невидимые символы и типичные ошибки

Частая ситуация: замена «не работает», потому что последний видимый символ — не последний на самом деле. В конце строки могут быть пробел, символ табуляции или перенос строки (Символы.ПС), особенно если данные пришли из файла, буфера обмена или внешней системы. Тогда Прав(Строка, 1) вернёт невидимый символ, и условие не сработает.

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

FAQ