0
ig0z
25.08.19
✎
21:36
|
Необходимо прочитать выбранный файл, а я как-то не понимаю что нужно для это, как прочитать выбранный файл?
ОпОп = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтаФорма);
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.МножественныйВыбор = Истина;
Диалог.Заголовок = "Выберите программы";
Диалог.ПроверятьСуществованиеФайла = Истина;
Если ЗначениеЗаполнено(Объект.Станок) Тогда
Диалог.Расширение = ПолучитьРасширение(Объект.Станок);
Иначе
Диалог.Расширение = "*.txt";
КонецЕсли;
// какого ляда она ошибкой выходит "расширение для работы с файлами не подключено"
//НачатьПомещениеФайлов(ОпОп,, Диалог, Истина, УникальныйИдентификатор);
НачатьПомещениеФайла(ОпОп,, Диалог, Истина, УникальныйИдентификатор);
Процедура ОбработатьВыборФайла(ВыбранныйФайл, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт
Если НЕ ВыбранныйФайл Тогда
Возврат;
КонецЕсли;
Стр = Объект.Программы.Добавить();
Стр.Редактируется = Истина;
Стр.Наименование = ВыбранноеИмяФайла;
Сообщить("ДополнительныеПараметры: " + ТипЗнч(ДополнительныеПараметры));
Сообщить("ВыбранныйФайл: " + ТипЗнч(ВыбранныйФайл));
ФайлИзХранилища = ПолучитьИзВременногоХранилища(Адрес);
// это не работает
ТестовыйФайл = Новый ТекстовыйДокумент(ФайлИзХранилища);
Стр.ТекстПрограммы = ТестовыйФайл.Прочитать();;
Объект.ТекстПрограммы = Стр.ТекстПрограммы;
|
|