! | Правила читаем |
Функция Стринг(СтрИсточник, СтрШаблон)
// Возвращает строку, отформатированную в соответствии с шаблоном
// Пример: вызов Стринг("1234567", "###/#/#/#/#/#/#/#")
// возвратит строку "123/4/5/6/7"
Перем ВыхСтрока, ПозИсточник, ПозШаблон;
ВыхСтрока = "";
ПозИсточник = 1;
ПозШаблон = 1;
Пока (ПозИсточник<=СтрДлина(СтрИсточник)) И (ПозШаблон<=СтрДлина(СтрШаблон)) Цикл
СимвС = Сред(СтрИсточник,ПозИсточник,1);
СимвШ = Сред(СтрШаблон,ПозШаблон,1);
Если СимвШ = "#" Тогда
ВыхСтрока = ВыхСтрока + СимвС;
Иначе
ВыхСтрока = ВыхСтрока + СимвШ + СимвС;
КонецЕсли;
ПозИсточник = ПозИсточник + 1;
ПозШаблон = ПозШаблон+ 1;
КонецЦикла;
Возврат ВыхСтрока;
КонецФункции