4.
dark_wolf
15
24.05.12 11:02
Сейчас в теме
Можно добавить кнопку загрузить со следующим обработчиком:
&НаКлиенте
Процедура Загрузить(Команда)
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
Текст = "ru = ""Форматированный документ""";
Фильтр = НСтр(Текст)+"(*.htm)|*.htm";
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = "Выберите файл";
Если ДиалогОткрытияФайла.Выбрать() Тогда
ИмяФайла = ДиалогОткрытияФайла.ПолноеИмяФайла;
Чтение = Новый ЧтениеТекста(ИмяФайла,КодировкаТекста.UTF8);
ТекстHTML = Чтение.Прочитать();
УстановитьHTML(ТекстHTML, Новый Структура());
Иначе
Текст = "ru = ""Файл(ы) не выбран!""";
Предупреждение(НСтр(Текст));
КонецЕсли;
КонецПроцедуры