|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); Диалог.Заголовок = "Выберите файл"; Диалог.ПолноеИмяФайла = ""; Фильтр = "Все файлы (*.*)|*.*"; Диалог.Фильтр = Фильтр; //Разрешим множественный выбор Диалог.МножественныйВыбор = Истина; Диалог.Каталог = "F:\"; Если Диалог.Выбрать() Тогда //Переберем выбранные файлы Для Каждого ТекФайл из Диалог.ВыбранныеФайлы Цикл //Прочитаем выбранне файлы как текстовые Текст = Новый ЧтениеТекста(ТекФайл); Стр = Текст.ПрочитатьСтроку(); Пока Стр <> Неопределено Цикл Сообщить(Стр); Стр = Текст.ПрочитатьСтроку(); КонецЦикла; КонецЦикла; КонецЕсли; |
About the Author
