Как убрать символ переноса строки и спецсимволы из текстовой строки в 1С

← На главную

При работе с данными, полученными из внешних источников (Excel, веб-сайты, сторонние базы данных), программисты 1С часто сталкиваются с проблемой «засорения» текста невидимыми или служебными символами. Одной из наиболее коварных ситуаций является появление символа «¶» (пилькроу), который невозможно удалить простой заменой по визуальному совпадению. В этой статье мы подробно разберем, почему так происходит, и научимся корректно очищать строки в 1С.

Выясняем причину проблемы: визуализация против реальности

Рассмотрим стандартную ситуацию: в справочнике или текстовом поле вы видите символ «¶». Первая естественная реакция — использовать функцию СтрЗаменить, указав этот символ явно или через его стандартный код в кодировке Windows-1251 (182). Однако зачастую это не дает результата. Проанализируем причину: символ «¶» во многих текстовых редакторах и в самой платформе 1С является лишь графическим отображением (глифом) управляющего символа, который в реальности отвечает за перевод строки или возврат каретки.

Для того чтобы понять, что именно перед нами, необходимо «препарировать» строку. Мы не можем доверять тому, что видим на экране. Для этого воспользуемся небольшим отладочным кодом, который выводит коды каждого символа в строке:


СтрокаДляАнализа = Спр.НаименованиеДляКлиента;
Для Индекс = 1 По СтрДлина(СтрокаДляАнализа) Цикл
    ТекСимвол = Сред(СтрокаДляАнализа, Индекс, 1);
    Сообщить("Символ: '" + ТекСимвол + "' имеет код: " + КодСимвола(ТекСимвол));
КонецЦикла;

В ходе такого анализа часто выясняется, что вместо ожидаемого кода 182 (символ параграфа), мы встречаем коды 10 или 13. Давайте разберем, что это за значения:

Код 13 (Символ(13)) — Возврат каретки (Carriage Return, CR).
Код 10 (Символ(10)) — Перевод строки (Line Feed, LF).
Код 160 (Символ(160)) — Неразрывный пробел (часто встречается в данных из HTML).

Решение 1: Точечная замена управляющих символов

Если мы выяснили конкретный код «враждебного» символа, самым простым и эффективным способом будет использование функции СтрЗаменить. Посмотрим на пример кода, который очищает строку от возвратов каретки и переводов строк:


Наименование = Спр.НаименованиеДляКлиента;

// Удаляем возврат каретки (символ 13)
Наименование = СтрЗаменить(Наименование, Символ(13), " ");

// Удаляем перевод строки (символ 10)
Наименование = СтрЗаменить(Наименование, Символ(10), " ");

// Удаляем неразрывные пробелы, которые СокрЛП не видит
Наименование = СтрЗаменить(Наименование, Символ(160), " ");

// Очищаем лишние пробелы по краям
Наименование = СокрЛП(Наименование);

Важный нюанс: Платформа 1С предоставляет встроенные константы для таких случаев. Вместо использования Символ(13) и Символ(10), мы можем использовать объект Символы:

Символы.ВК — Возврат каретки.
Символы.ПС — Перевод строки.
Символы.НПП — Неразрывный пробел.
Символы.Таб — Табуляция.

Решение 2: Обход проблемы через разбиение на строки

Если в строке много управляющих символов ПС или ВК, мы можем использовать встроенный механизм работы с многострочным текстом. Функция СтрЧислоСтрок воспринимает эти спецсимволы как разделители. Разберем алгоритм, который «склеивает» многострочный текст в одну строку с пробелами:


Функция ОчиститьТекстОтПереносов(ВходнаяСтрока)
    Результат = "";
    КоличествоСтрок = СтрЧислоСтрок(ВходнаяСтрока);
    
    Для Инд = 1 По КоличествоСтрок Цикл
        ТекСтрока = СтрПолучитьСтроку(ВходнаяСтрока, Инд);
        Результат = Результат + ТекСтрока + " ";
    КонецЦикла;
    
    Возврат СокрЛП(Результат);
КонецФункции

Этот метод хорош тем, что он автоматически обрабатывает различные комбинации символов перевода строк, принятые в разных операционных системах (например, только 10 или комбинацию 13+10).

Решение 3: Использование регулярных выражений (RegExp)

Когда «мусора» в строке слишком много (разные непечатные символы, табуляции, переводы строк), эффективнее всего использовать регулярные выражения. Это позволяет выполнить полную очистку за один проход. Рассмотрим пример функции, которая оставляет в строке только печатные символы:


Функция ОчиститьСтрокуRegExp(Знач ИсходнаяСтрока)
    RegExp = Новый COMОбъект("VBScript.RegExp");
    RegExp.MultiLine = Истина;
    RegExp.Global = Истина;
    RegExp.IgnoreCase = Истина;
    
    // Паттерн [\x00-\x1F] находит все управляющие символы ASCII
    RegExp.Pattern = "[\x00-\x1F]";
    
    Результат = RegExp.Replace(ИсходнаяСтрока, " ");
    Возврат СокрЛП(Результат);
КонецФункции

Решение 4: Принцип «белого списка»

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


Функция ОставитьТолькоПечатные(Строка)
    ОчищеннаяСтрока = "";
    Для Позиция = 1 По СтрДлина(Строка) Цикл
        Код = КодСимвола(Строка, Позиция);
        // Оставляем пробел (32), цифры, буквы и основные знаки
        Если Код >= 32 Тогда 
            ОчищеннаяСтрока = ОчищеннаяСтрока + Сред(Строка, Позиция, 1);
        КонецЕсли;
    КонецЦикла;
    Возврат ОчищеннаяСтрока;
КонецФункции

Подведем итоги

Для успешного решения «засады» с заменой символа «¶» важно помнить следующие правила:

Никогда не доверяйте визуальному представлению. Всегда проверяйте реальный код символа через КодСимвола().
Помните о неразрывном пробеле (160). Он визуально неотличим от обычного, но СокрЛП() его игнорирует.
Используйте системные константы. Символы.ПС и Символы.ВК делают код более читаемым.
Для массовой очистки используйте RegExp. Это надежнее, чем десяток вызовов СтрЗаменить.

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