Вот что получилось у меня:
Функция Стринг(СтрИсточник, СтрШаблон)
Перем ВыхСтрока, ПозИсточник, ПозШаблон;
ВыхСтрока = "";
ПозИсточник = 1;
ПозШаблон = 1;
Пока (ПозИсточник<=СтрДлина(СтрИсточник)) И (ПозШаблон<=СтрДлина(СтрШаблон)) Цикл
СимвС = Сред(СтрИсточник,ПозИсточник,1);
СимвШ = Сред(СтрШаблон,ПозШаблон,1);
Если СимвШ = "#" Тогда
ВыхСтрока = ВыхСтрока + СимвС;
Иначе
ВыхСтрока = ВыхСтрока + СимвШ + СимвС;
КонецЕсли;
ПозИсточник = ПозИсточник + 1;
ПозШаблон = ПозШаблон+ 1;
КонецЦикла;
Возврат ВыхСтрока;
КонецФункции
Сообщение отредактировал vadim007 - 28.04.12, 11:47