Как убрать все буквы из строки в 1С

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

Выбор способа зависит от контекста: где выполняется код (тонкий клиент, веб-клиент, сервер), какого объёма данные и насколько критична скорость. Для разовой обработки подойдёт простой цикл, для пакетной очистки миллионов записей в справочнике разумнее вынести логику в запрос или выполнить её на сервере.

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

Способ 1. Посимвольный перебор с проверкой кода символа

Самый надёжный и переносимый метод — пройти по строке циклом и проверить каждый символ. Функция КодСимвола возвращает числовой код символа Unicode, и по диапазону кодов можно определить, является ли символ буквой.

Для кириллицы основной диапазон — коды от 1040 до 1103 (включая Ё и ё), для латиницы — от 65 до 90 (A–Z) и от 97 до 122 (a–z). Если символ не попадает ни в один из этих диапазонов, он добавляется в результат.

Функция УбратьБуквы(Строка)

Результат = "";
Для Позиция = 1 По СтрДлина(Строка) Цикл
Код = КодСимвола(Строка, Позиция);
ЭтоБуква = (Код >= 1040 И Код <= 1103)
Или (Код >= 65 И Код <= 90)
Или (Код >= 97 И Код <= 122);
Если Не ЭтоБуква Тогда
Результат = Результат + Сред(Строка, Позиция, 1);
КонецЕсли;
КонецЦикла;

Возврат Результат;

КонецФункции

Такой код работает на любом клиенте и на сервере, не требует внешних компонент и легко модифицируется: например, можно инвертировать условие и оставить только цифры (коды 48–57).

Результат = "";
Для Позиция = 1 По СтрДлина(Строка) Цикл
	Код = КодСимвола(Строка, Позиция);
	Если Код >= 48 И Код <= 57 Тогда
		Результат = Результат + Сред(Строка, Позиция, 1);
	КонецЕсли;
КонецЦикла;

Способ 2. Оставить только цифры — частный и самый частый случай

На практике «убрать буквы» почти всегда означает «оставить цифры»: телефоны, ИНН, ОГРН, номера документов. В этом случае условие упрощается — достаточно проверить, что код символа лежит в диапазоне 48–57.

Альтернатива без кодов — сравнение символа со строкой-шаблоном через СтрНайти. Символ считается цифрой, если он входит в строку «0123456789»:

Функция ТолькоЦифры(Строка)

Цифры = "0123456789";
Результат = "";
Для Позиция = 1 По СтрДлина(Строка) Цикл
Символ = Сред(Строка, Позиция, 1);
Если СтрНайти(Цифры, Символ) > 0 Тогда
Результат = Результат + Символ;
КонецЕсли;
КонецЦикла;
Возврат Результат;

КонецФункции

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

Способ 3. Регулярные выражения через VBScript.RegExp

Если код выполняется на сервере или толстом клиенте под Windows, доступен COM-объект VBScript.RegExp, который позволяет решить задачу одной строкой замены. Шаблон [A-Za-zА-Яа-яЁё] описывает все буквы, а метод Replace заменяет их на пустую строку.

Функция УбратьБуквыРегуляркой(Строка)

RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.Global = Истина;
RegExp.Pattern = "[A-Za-zА-Яа-яЁё]";
Возврат RegExp.Replace(Строка, "");

КонецФункции

Для обратной задачи — оставить только цифры — шаблон ещё короче: [^0-9] или \D (всё, что не цифра). Регулярные выражения удобны, когда шаблон сложный: например, убрать буквы, но только стоящие в начале строки, или удалить латиницу, сохранив кириллицу.

Главное ограничение — привязка к Windows. На Linux-сервере и в веб-клиенте COM-объект недоступен, и код выдаст ошибку. Поэтому в мобильных и кроссплатформенных решениях от RegExp отказываются в пользу посимвольного перебора.

Способ 4. Перебор с функцией СтрЗаменить по алфавиту

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

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

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

Способ 5. Очистка данных запросом при массовой обработке

Если буквы нужно убрать у тысяч записей справочника или регистра, выгружать каждую строку в цикл неэффективно. Логику можно перенести в запрос, комбинируя ПОДСТРОКА и проверку вхождения символа через ПОДОБНО или ВЫБОР. Однако язык запросов не умеет циклов, поэтому полноценная посимвольная очистка в запросе громоздка.

Практичный компромисс — обработка в запросе для типовых случаев. Например, если известно, что мусорные символы ограничены (скобки, дефисы, отдельные буквы-префиксы), их убирают цепочкой вложенных замен через функцию запроса ЗАМЕНИТЬ там, где она поддерживается СУБД, либо выбирают данные запросом, а чистят в серверной процедуре пакетами.

При массовой обработке не забывайте про транзакции и блокировки: изменение большого справочника в одной транзакции может надолго заблокировать таблицу. Разбивайте обработку на порции по несколько сотен записей с фиксацией после каждой порции.

Проверка результата и типичные ошибки

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

Частые вопросы