Как перебрать все символы в строке 1С

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

Во встроенном языке 1С нет отдельного типа «символ» — строка является атомарным значением, а обращение к отдельным знакам выполняется через строковые функции. Основной инструмент — функция Сред(), которая извлекает подстроку по позиции, в сочетании с функцией СтрДлина(), возвращающей длину строки. Дополнительно полезны КодСимвола() и Символ() для работы с кодами Unicode.

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

Базовый перебор символов циклом Для

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

Процедура ПримерПеребора()
Строка = "Артикул-123";
ДлинаСтроки = СтрДлина(Строка);
Для Позиция = 1 По ДлинаСтроки Цикл
Символ = Сред(Строка, Позиция, 1);
Сообщить("Позиция " + Позиция + ": " + Символ);
КонецЦикла;
КонецПроцедуры

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

Если строка может быть пустой, отдельная проверка не обязательна: при СтрДлина(Строка) = 0 цикл просто не выполнится ни разу, и ошибки не возникнет. Это безопасное поведение упрощает код.

Для Позиция = 1 По СтрДлина(Строка) Цикл
    Символ = Сред(Строка, Позиция, 1);
КонецЦикла;

Анализ символа: коды, цифры, буквы

Чтобы принимать решения внутри цикла, символ сравнивают либо напрямую со строковым литералом, либо через его код Unicode функцией КодСимвола(). Прямое сравнение нагляднее, когда набор допустимых знаков невелик: Если Символ = "-" Или Символ = "/" Тогда.

Для проверки принадлежности к диапазонам удобнее коды. Цифры «0»–«9» имеют коды с 48 по 57, заглавные латинские буквы — с 65 по 90, строчные — с 97 по 122. Кириллица занимает диапазон с 1040 по 1103, кроме букв «Ё» (код 1025) и «ё» (код 1105), которые стоят отдельно — это частая ловушка при проверке русского текста.

Функция ЭтоЦифра(Символ)
Код = КодСимвола(Символ);
Возврат Код >= 48 И Код <= 57;
КонецФункции

Обратное преобразование выполняет функция Символ(Код) — она возвращает символ по его коду. Так можно, например, сформировать строку из управляющих символов: перевод строки имеет код 10, табуляция — 9. Впрочем, для типовых служебных символов удобнее использовать объект Символы.ПС, Символы.Таб и другие предопределённые значения.

Практический сценарий: очистка строки от лишних символов

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

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

1. 1
   Определите точный набор допустимых символов или их кодовые диапазоны
2. 2
   Инициализируйте пустую строку-результат до цикла
3. 3
   Пройдите циклом Для от 1 до СтрДлина по исходной строке
4. 4
   Извлеките символ функцией Сред и проверьте его допустимость
5. 5
   Допишите подходящий символ к результату
6. 6
   Проверьте функцию на пустой строке, строке без допустимых символов и строке с «ё»

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

Подсчёт вхождений и поиск позиций символа

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

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

Функция ПозицииСимвола(Строка, ИскомыйСимвол)
Позиции = Новый Массив;
Для Позиция = 1 По СтрДлина(Строка) Цикл
Если Сред(Строка, Позиция, 1) = ИскомыйСимвол Тогда
Позиции.Добавить(Позиция);
КонецЕсли;
КонецЦикла;
Возврат Позиции;
КонецФункции

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

Обратный перебор и посимвольное сравнение строк

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

Для Позиция = -СтрДлина(Строка) По -1 Цикл
Символ = Сред(Строка, -Позиция, 1);
КонецЦикла;

В 1С цикл Для не имеет явного параметра шага, поэтому приём с отрицательными границами — рабочий, но не самый читаемый. Альтернатива — обычный прямой цикл с вычислением позиции как ДлинаСтроки - Счетчик + 1. Такой вариант проще сопровождать.

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

Производительность и ограничения

Посимвольный перебор на встроенном языке — интерпретируемая операция, и на строках в сотни тысяч символов она ощутимо медленнее встроенных строковых функций. Прежде чем писать цикл, проверьте, не решается ли задача функциями СтрЗаменить(), СтрНайти(), СтрЧислоВхождений() или разбиением через СтрРазделить().

Если цикл всё же нужен, минимизируйте работу внутри него: выносите инвариантные вычисления наружу, не вызывайте СтрДлина() на каждой итерации, избегайте лишних промежуточных переменных. Для массовых обработок данных переносите вычисления на сервер, чтобы не гонять строки между клиентом и сервером.

Отдельное ограничение — суррогатные пары Unicode (некоторые редкие иероглифы и эмодзи). Они занимают две кодовые позиции, и посимвольный перебор через Сред() разобьёт такой знак на две «половинки». Для типовых учётных данных это не критично, но при обработке произвольного пользовательского текста стоит учитывать.

Контроль результата и отладка

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

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

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

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