Загрузить в поле ввода текст из файла

Илья Привалов

читатель

офлайн

Дата регистрации: 13.10.2017
Сообщений: 13

Пост №1

13.10.2017 09:57

1С8.3 Конфигурация самописная, пишу обработку для рассылки почты, помимо общего функционала должна быть возможность выгрузить текст из файла в поле ввода ТекстПисьма, испытываю затруднения при выводе текста в поле, подскажите, как вывести не только текущую строку, а все строки документа по очереди?

Процедура ЗагрузитьТекстИзФайла(Элемент, ДанныеВыбора, СтандартнаяОбработка)

Перем Стр;
ДТФ = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДТФ.Заголовок = "Выберите файл (*.TXT/.RTF.HTML*)";
ДТФ.Фильтр = "Текстовый Документ (*.txt;*.doc;*.rtf)|*.txt;*.doc;*.rtf|";
ДТФ.ПредварительныйПросмотр=Ложь;
ДТФ.ПроверятьСуществованиеФайла=Истина;
Если ДТФ.Выбрать() Тогда

ПутьКТфайлу = ДТФ.ПолноеИмяФайла;
КонецЕсли;
      Текст = Новый ТекстовыйДокумент;
      Текст.Прочитать(ПутьКТФайлу);
      КоличествоСтрок = Текст.КоличествоСтрок();
Для Счетчик = 1 по КоличествоСтрок Цикл
ТекСтрока = Текст.ПолучитьСтроку(Счетчик);
Сообщить(ТекСтрока);
      ТекстПисьма = ТекСтрока;
      КонецЦикла;

КонецПроцедуры

Ответили: пост №2

Prikum

активный пользователь

офлайн

Дата регистрации: 18.02.2002
Сообщений: 20952

Пост №2

13.10.2017 10:00

Ответ на пост №1

Илья Привалов, так у тебя ТекстПисьма каждый раз перезаписывается текущей строкой из файла.

Илья Привалов

читатель

офлайн

Дата регистрации: 13.10.2017
Сообщений: 13

Пост №3

13.10.2017 10:06

Prikum пишет:

Цитата
Илья Привалов , так у тебя ТекстПисьма каждый раз перезаписывается текущей строкой из файла.

Я понимаю, подскажите будьте добры, каким образом мне каждую строку выводить? Или может все можно сделать проще и не к строке обращаться, а сразу из файла в поле ввода поместить, пробовал методом ПРОЧИТАТЬ, но как оказалось у поля ввода такого метода нет..

Ответили: пост №4

Prikum

активный пользователь

офлайн

Дата регистрации: 18.02.2002
Сообщений: 20952

Пост №4

13.10.2017 10:08

Ответ на пост №3

Илья Привалов, какой тип у поля ввода?

Ответили: пост №5

Илья Привалов

читатель

офлайн

Дата регистрации: 13.10.2017
Сообщений: 13

Пост №5

13.10.2017 10:13

Ответ на пост №4

Prikum, Строка с неограниченной длинной.

Ответили: пост №6 , пост №7

Prikum

активный пользователь

офлайн

Дата регистрации: 18.02.2002
Сообщений: 20952

Пост №6

13.10.2017 10:30

Ответ на пост №5

Илья Привалов,

Код
ТекстПисьма = Текст.ПолучитьТекст();

Prikum

активный пользователь

офлайн

Дата регистрации: 18.02.2002
Сообщений: 20952

Пост №7

13.10.2017 10:31

Ответ на пост №5

Илья Привалов, только цикл убери.

Илья Привалов

читатель

офлайн

Дата регистрации: 13.10.2017
Сообщений: 13

Пост №8

13.10.2017 11:18

Большое спасибо, все работает)

Читают тему:

Мероприятия