Загрузить в поле ввода текст из файла
13.10.2017
09:57
#1
1С8.3 Конфигурация самописная, пишу обработку для рассылки почты, помимо общего функционала должна быть возможность выгрузить текст из файла в поле ввода ТекстПисьма, испытываю затруднения при выводе текста в поле, подскажите, как вывести не только текущую строку, а все строки документа по очереди?
Процедура ЗагрузитьТекстИзФайла(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Перем Стр;
ДТФ = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДТФ.Заголовок = "Выберите файл (*.TXT/.RTF.HTML*)";
ДТФ.Фильтр = "Текстовый Документ (*.txt;*.doc;*.rtf)|*.txt;*.doc;*.rtf|";
ДТФ.ПредварительныйПросмотр=Ложь;
ДТФ.ПроверятьСуществованиеФайла=Истина;
Если ДТФ.Выбрать() Тогда
ПутьКТфайлу = ДТФ.ПолноеИмяФайла;
КонецЕсли;
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ПутьКТФайлу);
КоличествоСтрок = Текст.КоличествоСтрок();
Для Счетчик = 1 по КоличествоСтрок Цикл
ТекСтрока = Текст.ПолучитьСтроку(Счетчик);
Сообщить(ТекСтрока);
ТекстПисьма = ТекСтрока;
КонецЦикла;
КонецПроцедуры
Процедура ЗагрузитьТекстИзФайла(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Перем Стр;
ДТФ = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДТФ.Заголовок = "Выберите файл (*.TXT/.RTF.HTML*)";
ДТФ.Фильтр = "Текстовый Документ (*.txt;*.doc;*.rtf)|*.txt;*.doc;*.rtf|";
ДТФ.ПредварительныйПросмотр=Ложь;
ДТФ.ПроверятьСуществованиеФайла=Истина;
Если ДТФ.Выбрать() Тогда
ПутьКТфайлу = ДТФ.ПолноеИмяФайла;
КонецЕсли;
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ПутьКТФайлу);
КоличествоСтрок = Текст.КоличествоСтрок();
Для Счетчик = 1 по КоличествоСтрок Цикл
ТекСтрока = Текст.ПолучитьСтроку(Счетчик);
Сообщить(ТекСтрока);
ТекстПисьма = ТекСтрока;
КонецЦикла;
КонецПроцедуры
Ответили:
пост #2
13.10.2017
10:00
#2
Ответ на
пост №1
Илья Привалов, так у тебя ТекстПисьма каждый раз перезаписывается текущей строкой из файла. 13.10.2017
10:06
#3
Prikum пишет:
Я понимаю, подскажите будьте добры, каким образом мне каждую строку выводить? Или может все можно сделать проще и не к строке обращаться, а сразу из файла в поле ввода поместить, пробовал методом ПРОЧИТАТЬ, но как оказалось у поля ввода такого метода нет..
Цитата |
---|
Илья Привалов , так у тебя ТекстПисьма каждый раз перезаписывается текущей строкой из файла. |
Ответили:
пост #4
Читают тему
(гостей: 1)