&НаКлиенте
Процедура АдресФайлаНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка)
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите файл";
Диалог.ПолноеИмяФайла = "";
Диалог.Фильтр = "Текстовые файлы (*.txt)|*.txt";;
Диалог.МножественныйВыбор = Ложь;
Диалог.Показать(Новый ОписаниеОповещения("ЗагрузитьФайлЗавершение", ЭтаФорма, Новый Структура("Диалог", Диалог)));
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьФайлЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
Если ВыбранныеФайлы <> Неопределено Тогда
Диалог = ДополнительныеПараметры.Диалог;
АдресФайла = Диалог.ПолноеИмяФайла;
АдресВХ = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(Диалог.ПолноеИмяФайла));
ОбработатьФайлНаСервере(АдресВХ);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ОбработатьФайлНаСервере(АдресВХ)
ИмяВФ = ПолучитьИмяВременногоФайла(".txt");
ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВХ);
ДвоичныеДанные.Записать(ИмяВФ);
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ИмяВФ);
УдалитьФайлы(ИмяВФ);
КонецПроцедуры