Интересные решения. Строка — 1с заметки программиста

Если нам вдруг понадобится разложить стандартные Фамилию Имя Отчество мы можем сделать это вот таким способом:

ФИОМассив = СтрРазделить("Фамилия Имя Отчество"," ");
ФИОСокр = Строка(ТРег(ФИОМассив[0])+" "+ВРег(Сред(ФИОМассив[1],1,1))+"."+ВРег(Сред(ФИОМассив[2],1,1))+"."); //Выйдет Фамилия И.О.

1 2	ФИОМассив = СтрРазделить("Фамилия Имя Отчество"," "); ФИОСокр = Строка(ТРег(ФИОМассив[0])+" "+ВРег(Сред(ФИОМассив[1],1,1))+"."+ВРег(Сред(ФИОМассив[2],1,1))+"."); //Выйдет Фамилия И.О.

Но на старых версиях платформы нет метода СтрРазделить и тогда мы можем использовать БСП:

СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Строка, Разделитель, ПропускатьПустыеСтроки);

1	СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Строка, Разделитель, ПропускатьПустыеСтроки);

Функции в стандартных конфигурациях для версий платформы до 8.3.6, например УТ10.3:

ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Строка, Разделитель);

1	ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Строка, Разделитель);

Или если ничего нет то следующую функцию:

Функция СтрРазделить(ВходящаяСтрока, Разделитель) 

     Рез = Новый Массив();
     ВрСтрока = СтрЗаменить(ВходящаяСтрока, Разделитель, Символы.ПС); 
     Для Сч = 1 По СтрЧислоСтрок(ВрСтрока) Цикл
          Стр = СтрПолучитьСтроку(ВрСтрока, Сч);
          Если Разделитель = " " и СокрЛП(Стр) = "" Тогда
               Продолжить;
          КонецЕсли;
          Рез.Добавить(Стр);
     КонецЦикла; 
     Возврат Рез;

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

Функция СтрРазделить(ВходящаяСтрока, Разделитель)

Рез = Новый Массив();

ВрСтрока = СтрЗаменить(ВходящаяСтрока, Разделитель, Символы.ПС);

Для Сч = 1 По СтрЧислоСтрок(ВрСтрока) Цикл

Стр = СтрПолучитьСтроку(ВрСтрока, Сч);

Если Разделитель = " " и СокрЛП(Стр) = "" Тогда

Продолжить;

КонецЕсли;

Рез.Добавить(Стр);

КонецЦикла;

Возврат Рез;

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

Возможны еще примеры