Описание работы обработок 1С

Каталог файлов

Главная » Файлы » Мои файлы

Поиск подстроки в тексте
[ Скачать с сервера (6.4 Kb) ] 13.01.2015, 16:34

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

Категория: Мои файлы | Добавил: kevseev0
Просмотров: 201 | Загрузок: 4 | Рейтинг: 0.0/0
Всего комментариев: 0
Пятница, 11.07.2025, 21:52
Приветствую Вас Гость

Категории раздела

Мои файлы [1]

Вход на сайт

Поиск

Наш опрос

Оцените мой сайт
Всего ответов: 2

Друзья сайта

  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Статистика


    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0