&НаСервере
// Определяет, является ли символ разделителем.
//
// Параметры:
// КодСимвола — Число — код проверяемого символа;
// РазделителиСлов — Строка — символы разделителей.
//
// Возвращаемое значение:
// Булево — истина, если символ является разделителем.
//
Функция ЭтоРазделительСлов(КодСимвола, РазделителиСлов = Неопределено) Экспорт
Если РазделителиСлов <> Неопределено Тогда
Возврат Найти(РазделителиСлов, Символ(КодСимвола)) > 0;
КонецЕсли;
Диапазоны = Новый Массив;
Диапазоны.Добавить(Новый Структура(«Мин,Макс», 48, 57)); // цифры
Диапазоны.Добавить(Новый Структура(«Мин,Макс», 65, 90)); // латиница большие
Диапазоны.Добавить(Новый Структура(«Мин,Макс», 97, 122)); // латиница маленькие
Диапазоны.Добавить(Новый Структура(«Мин,Макс», 1040, 1103)); // кириллица
Диапазоны.Добавить(Новый Структура(«Мин,Макс», 1025, 1025)); // символ «Ё»
Диапазоны.Добавить(Новый Структура(«Мин,Макс», 1105, 1105)); // символ «ё»
Диапазоны.Добавить(Новый Структура(«Мин,Макс», 95, 95)); // символ «_»
Для Каждого Диапазон Из Диапазоны Цикл
Если КодСимвола >= Диапазон.Мин И КодСимвола <= Диапазон.Макс Тогда
Возврат Ложь;
КонецЕсли;
КонецЦикла;
Возврат Истина;
КонецФункции
&НаСервере
// Разбивает строку на несколько строк, используя заданный набор разделителей.
// Если параметр РазделителиСлов не задан, то разделителем слов считается любой из символов,
// не относящихся к символам латиницы, кириллицы, цифры, подчеркивания.
//
// Параметры:
// Строка — Строка — строка, которую необходимо разложить на слова.
// РазделителиСлов — Строка — строка, содержащая символы-разделители.
//
// Возвращаемое значение:
// массив значений, элементы которого — отдельные слова.
//
// Пример:
// РазложитьСтрокуВМассивСлов(«один-@#два2_!три») возвратит массив значений: «один», «два2_», «три»;
// РазложитьСтрокуВМассивСлов(«один-@#два2_!три», «#@!_») возвратит массив значений: «один-«, «два2», «три».
//
Функция РазложитьСтрокуВМассивСлов(Знач Строка, РазделителиСлов = Неопределено) Экспорт
Слова = Новый Массив;
РазмерТекста = СтрДлина(Строка);
НачалоСлова = 1;
Для Позиция = 1 По РазмерТекста Цикл
КодСимвола = КодСимвола(Строка, Позиция);
Если ЭтоРазделительСлов(КодСимвола, РазделителиСлов) Тогда
Если Позиция <> НачалоСлова Тогда
Слова.Добавить(Сред(Строка, НачалоСлова, Позиция — НачалоСлова));
КонецЕсли;
НачалоСлова = Позиция + 1;
КонецЕсли;
КонецЦикла;
Если Позиция <> НачалоСлова Тогда
Слова.Добавить(Сред(Строка, НачалоСлова, Позиция — НачалоСлова));
КонецЕсли;
Возврат Слова;
КонецФункции
&НаСервере
/// Объединяет строки из массива в строку с разделителями.
//
// Параметры:
// Массив — Массив — массив строк которые необходимо объединить в одну строку;
// Разделитель — Строка — любой набор символов, который будет использован в качестве разделителя.
//
// Возвращаемое значение:
// Строка — строка с разделителями.
//
Функция СтрокаИзМассиваПодстрок(Массив, Разделитель = «,», СокращатьНепечатаемыеСимволы = Ложь) Экспорт
Результат = «»;
Для Индекс = 0 По Массив.ВГраница() Цикл
Подстрока = Массив[Индекс];
Если СокращатьНепечатаемыеСимволы Тогда
Подстрока = СокрЛП(Подстрока);
КонецЕсли;
Если ТипЗнч(Подстрока) <> Тип(«Строка») Тогда
Подстрока = Строка(Подстрока);
КонецЕсли;
Если Индекс > 0 Тогда
Результат = Результат + Разделитель;
КонецЕсли;
Результат = Результат + Подстрока;
КонецЦикла;
Возврат Результат;
КонецФункции
&НаСервере
// Разделяет текст на слова по указанным разделителям. По умолчанию разделители — пробельные символы.
//
// Параметры:
// Текст — Строка — Разделяемая строка.
// Разделители — Строка — Необязательная строка символов-разделителей.
//
// Возвращаемое значение:
// Массив — строки, слова
//
Функция СловаТекста(Знач Текст, Знач Разделители = Неопределено) Экспорт
НачалоСлова = 0;
Состояние = 0;
Результат = Новый Массив;
Для Позиция = 1 По СтрДлина(Текст) Цикл
ТекущийСимвол = Сред(Текст, Позиция, 1);
ЭтоРазделитель = ?(Разделители = Неопределено, ПустаяСтрока(ТекущийСимвол), Найти(Разделители, ТекущийСимвол) > 0);
Если Состояние = 0 И (Не ЭтоРазделитель) Тогда
НачалоСлова = Позиция;
Состояние = 1;
ИначеЕсли Состояние = 1 И ЭтоРазделитель Тогда
Результат.Добавить(Сред(Текст, НачалоСлова, Позиция—НачалоСлова));
Состояние = 0;
КонецЕсли;
КонецЦикла;
Если Состояние = 1 Тогда
Результат.Добавить(Сред(Текст, НачалоСлова, Позиция—НачалоСлова));
КонецЕсли;
Возврат Результат;
КонецФункции
&НаСервере
Функция СократитьНеЦифры(Текст, ДопустимоКромеЦифр = «», Направление = Истина)
Длина = СтрДлина(Текст);
Если Направление Тогда
// Сокращение слева
Индекс = 1;
Конец = 1 + Длина;
Шаг = 1;
Иначе
// Сокращение справа
Индекс = Длина;
Конец = 0;
Шаг = —1;
КонецЕсли;
Пока Индекс <> Конец Цикл
Символ = Сред(Текст, Индекс, 1);
ЭтоЦифра = (Символ >= «0» И Символ <= «9») Или Найти(ДопустимоКромеЦифр, Символ) = 0;
Если ЭтоЦифра Тогда
Прервать;
КонецЕсли;
Индекс = Индекс + Шаг;
КонецЦикла;
Если Направление Тогда
// Сокращение слева
Возврат Прав(Текст, Длина — Индекс + 1);
КонецЕсли;
// Сокращение справа
Возврат Лев(Текст, Индекс);
КонецФункции
