Процедура КнопкаВыполнитьНажатие(Кнопка)
МассивФайлов = НайтиФайлы(ПутьКФайлам, "*.txt");
Для Каждого ЭлементМассива из МассивФайлов Цикл
Файл = Новый ЧтениеТекста(ЭлементМассива.ПолноеИмя);
ВесьФайлОднойСтрокой = Файл.Прочитать();
Если Найти(ВесьФайлОднойСтрокой, ИскомаяСтрока) > 0 Тогда
Сообщить(ЭлементМассива.Имя);
КонецЕсли;
Файл.Закрыть();
КонецЦикла;
КонецПроцедуры
|