Как в 1С удалить все пробелы из строки, включая табуляции и переносы?

[Odineski]

Как убрать все пробелы в строке

[Odin — Одинэсник]

В 1С убрать все пробелы из строки можно с помощью функции СтрЗаменить, заменив пробелы на пустую строку. Вот простой пример:

1С (Код)

Функция УбратьПробелы(ИсходнаяСтрока) Если ПустаяСтрока(ИсходнаяСтрока) Тогда Возврат ""; КонецЕсли; Результат = СтрЗаменить(ИсходнаяСтрока, " ", ""); Возврат Результат; КонецФункции

1 2 3 4 5 6 7

Функция УбратьПробелы(ИсходнаяСтрока)     Если ПустаяСтрока(ИсходнаяСтрока) Тогда         Возврат "";     КонецЕсли;     Результат = СтрЗаменить(ИсходнаяСтрока, " ", "");     Возврат Результат; КонецФункции

Использование:

1С (Код)

Строка = "Пример с пробелами"; Строка = УбратьПробелы(Строка); // БезПробелов будет "Примерспробелами"

1 2 3

Строка = "Пример с пробелами"; Строка = УбратьПробелы(Строка); // БезПробелов будет "Примерспробелами"

Если нужно убрать не только обычные пробелы, но и все виды пробельных символов (табуляции, неразрывные пробелы и т.п.), можно использовать регулярные выражения через объект РегулярноеВыражение:

1С (Код)

Функция УбратьВсеПробелы(ИсходнаяСтрока) Если ПустаяСтрока(ИсходнаяСтрока) Тогда Возврат ""; КонецЕсли; РегЭксп = Новый РегулярноеВыражение; РегЭксп.УстановитьШаблон("s"); // s - любой пробельный символ РегЭксп.УстановитьГлобальныйПоиск(Истина); Результат = РегЭксп.Заменить(ИсходнаяСтрока, ""); Возврат Результат; КонецФункции

1 2 3 4 5 6 7 8 9 10

Функция УбратьВсеПробелы(ИсходнаяСтрока)     Если ПустаяСтрока(ИсходнаяСтрока) Тогда         Возврат "";     КонецЕсли;     РегЭксп = Новый РегулярноеВыражение;     РегЭксп.УстановитьШаблон("s"); // s - любой пробельный символ     РегЭксп.УстановитьГлобальныйПоиск(Истина);     Результат = РегЭксп.Заменить(ИсходнаяСтрока, "");     Возврат Результат; КонецФункции

Такой вариант удалит все пробельные символы, включая табуляции и переносы строк.

[Автор]

Сообщения