Процедура выбора файла к примеру для загрузки файла XML
&НаКлиенте
Процедура ЗагрузитьИзФайла1(Команда)
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбораФайла.Заголовок = "Выберете файл загрузки";
Фильтр = "XML (*.xml)|*.xml";
ДиалогВыбораФайла.Фильтр = Фильтр;
Если Не ДиалогВыбораФайла.Выбрать() Тогда
Возврат;
КонецЕсли;
т = Новый ТекстовыйДокумент;
т.Прочитать(ДиалогВыбораФайла.ПолноеИмяФайла, КодировкаТекста.UTF8);
ЗагрузитьВТаблицу(т.ПолучитьТекст());//ДиалогВыбораФайла.ПолноеИмяФайла);
АвтоТест_ЗаполнитьЦеныПоСоглашению("Неопределено");
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьИзФайла1(Команда)
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбораФайла.Заголовок = "Выберете файл загрузки";
Фильтр = "XML (*.xml)|*.xml";
ДиалогВыбораФайла.Фильтр = Фильтр;
Если Не ДиалогВыбораФайла.Выбрать() Тогда
Возврат;
КонецЕсли;
т = Новый ТекстовыйДокумент;
т.Прочитать(ДиалогВыбораФайла.ПолноеИмяФайла, КодировкаТекста.UTF8);
ЗагрузитьВТаблицу(т.ПолучитьТекст());//ДиалогВыбораФайла.ПолноеИмяФайла);
АвтоТест_ЗаполнитьЦеныПоСоглашению("Неопределено");
КонецПроцедуры
Комментариев нет:
Отправить комментарий