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

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

В этой статье мы разберём 5 проверенных способов удаления букв из строк — от простых замен до сложных регулярных выражений. Каждый метод сопровождён практическими примерами кода, которые можно сразу использовать в своих конфигурациях. Особое внимание уделено нюансам работы с кириллицей, латиницей и специальными символами, а также оптимизации производительности для больших объёмов данных.

1. Метод СтрЗаменить(): простой, но ограниченный подход

Функция СтрЗаменить() — самый очевидный инструмент для удаления символов, но он требует ручного перечисления всех букв, которые нужно убрать. Это неудобно, если алфавит большой (например, кириллица + латиница), но подходит для простых случаев.

Основной синтаксис:

Результат = СтрЗаменить(ИсходнаяСтрока, "а", "");
Результат = СтрЗаменить(Результат, "б", "");
// ... и так для всех букв

Чтобы автоматизировать процесс, можно сгенерировать список букв программно:

Алфавит = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяabcdefghijklmnopqrstuvwxyz";
Для Каждого Символ Из Алфавит Цикл
ИсходнаяСтрока = СтрЗаменить(ИсходнаяСтрока, Символ, "");
КонецЦикла;

• ✅ Плюсы: простота, не требует внешних библиотек.
• ❌ Минусы: низкая производительность для длинных строк (много итераций), не учитывает регистр по умолчанию.
• ⚠️ Нюанс: для учёта заглавных букв придётся дублировать алфавит в верхнем регистре.

2. Регулярные выражения: мощно, но с оговорками

В 1С:Предприятие 8.3.10+ появилась поддержка регулярных выражений через объект РегулярноеВыражение. Это самый гибкий способ удаления букв, но он работает только в новых версиях платформы.

Пример кода для удаления всех букв (кириллица + латиница, любой регистр):

РегВыр = Новый РегулярноеВыражение("[а-яА-ЯёЁa-zA-Z]");
Результат = РегВыр.Заменить(ИсходнаяСтрока, "");

Расширенный вариант с учётом дополнительных символов (например, дефисов в словах):

РегВыр = Новый РегулярноеВыражение("[а-яА-ЯёЁa-zA-Z\-]");
Результат = РегВыр.Заменить(ИсходнаяСтрока, "");

⚠️ Внимание: В версиях 1С ниже 8.3.10 регулярные выражения не поддерживаются. Для старых платформ используйте альтернативные методы из этой статьи.

3. Цикл по символам: универсально, но медленно

Если нужно поддерживать старые версии 1С или требуется максимальная гибкость, можно обработать строку посимвольно. Этот метод работает везде, но может быть медленным для строк длиной >1000 символов.

Пример кода:

Результат = "";
Для Инд = 1 По СтрДлина(ИсходнаяСтрока) Цикл
Символ = Сред(ИсходнаяСтрока, Инд, 1);
Если НЕ (Символ >= "а" И Символ <= "я") И
НЕ (Символ >= "А" И Символ <= "Я") И
НЕ (Символ >= "a" И Символ <= "z") И
НЕ (Символ >= "A" И Символ <= "Z") Тогда
Результат = Результат + Символ;
КонецЕсли;
КонецЦикла;

Оптимизированная версия с использованием Найти() для проверки:

Алфавит = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяabcdefghijklmnopqrstuvwxyz";
Результат = "";
Для Инд = 1 По СтрДлина(ИсходнаяСтрока) Цикл
Символ = Сред(ИсходнаяСтрока, Инд, 1);
Если Найти(Алфавит, Символ) = 0 Тогда
Результат = Результат + Символ;
КонецЕсли;
КонецЦикла;

• 🔹 Когда использовать: для старых версий платформы или когда нужна сложная логика фильтрации (например, оставить только цифры и точки).
• 🔹 Как ускорить: предварительно конвертируйте строку в массив символов с помощью СтрРазделить().

4. Внешние компоненты: для сложных задач

Если встроенные средства 1С не справляются (например, нужно обработать Unicode-символы или применить сложные правила фильтрации), можно подключить внешние компоненты:

• 📌 1Script: расширение языка 1С с поддержкой регулярных выражений даже в старых версиях платформы.
• 📌 AddIn: COM-объекты или .NET-компоненты (например, System.Text.RegularExpressions для .NET).
• 📌 HTTP-сервисы: отправка строки на обработку внешнему API (актуально для облачных решений).

// Подключаем .NET
CLR = Новый CLRHost();
РегEx = CLR.DotNetFactory("System.Text.RegularExpressions.Regex", "System");

// Удаляем все буквы
Результат = РегEx.Replace(ИсходнаяСтрока, "[а-яА-Яa-zA-Z]", "");

Функция УдалитьБуквыИзСтроки(Знач Строка) Экспорт
Алфавит = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяabcdefghijklmnopqrstuvwxyz" +
"АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯABCDEFGHIJKLMNOPQRSTUVWXYZ";

Результат = Строка;
Для Каждого Символ Из Алфавит Цикл
Результат = СтрЗаменить(Результат, Символ, "");
КонецЦикла;

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

ОчищеннаяСтрока = УдалитьБуквыИзСтроки("Пример123Строки456");
// Вернёт: "123456"

// Преобразование из UTF-8 в ANSI
СтрокаANSI = СтрЗаменить(СтрокаUTF8, Чр(208), ""); // Удаляем первый байт кириллических символов
СтрокаANSI = СтрЗаменить(СтрокаANSI, Чр(209), ""); // Удаляем второй байт