8.х Построчная загрузка из txt-файла в реквизит

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Larry Linson, 17 мар 2018.

  1. TopicStarter Overlay
    Larry Linson
    Offline

    Larry Linson

    Регистрация:
    17 мар 2018
    Сообщения:
    5
    Симпатии:
    0
    Баллы:
    1
    Есть созданная мною обработка, в ней реквизит и форма. Реквизит - срока неограниченной длины. На форме есть кнопка с командой: "ЗагрузитьТекстовыйФайл", и сам реквизит как некое поле, куда и будет помещаться текст из txt файла (текст файла представлен на рисунке).
    Мне необходимо, чтобы при нажатии на кнопку текст из файла загружался в реквизит построчно, т.е. каждое слово на новой строке.

    Сейчас сделано так, что текст просто вставляется из файла почти как он есть. Можно ли как-то доработать код, чтоб вывод был построчным?

    Код:
    &НаСервере
    Функция ЗагрузитьТекстовыйФайл()
    
        Текст = Новый ТекстовыйДокумент;
        Текст.Прочитать(" //путь к файлу ");
    
        //Перебор строк текстового документа
       Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл
       
            //Получить строку из файла с указанным номером
            ОбрабатываемаяСтрока = Текст.ПолучитьСтроку(НомерСтроки);
            СтрРезультат = " " + СтрРезультат + ОбрабатываемаяСтрока;
            БлокПроверки = "";
            Счетчик = 0;
            N=0;
       
            Для i=1 По СтрДлина(ОбрабатываемаяСтрока) Цикл
           
                ТекущийСимвол = Прав(Лев(ОбрабатываемаяСтрока, i), 1);
           
                Если ТекущийСимвол = " " Тогда // Разделитель
               
                               
                               
                    Счетчик = Счетчик + 1;
               
                    БлокПроверки = "";
               
                    Продолжить;
                КонецЕсли;
           
                БлокПроверки = БлокПроверки + ТекущийСимвол;
            КонецЦикла;
       
        КонецЦикла;
    
    Возврат СтрРезультат;
    КонецФункции
    
    &НаКлиенте
    Процедура ЗагрузитьТекстовыйФайл1(Команда)
        Объект.Реквизит1 = ЗагрузитьТекстовыйФайл();// Вставить содержимое обработчика.
    КонецПроцедуры
    
    Заранее благодарна за помощь! 45656.png 45656.png
  2. nbIpKuH_BaH9I
    Offline

    nbIpKuH_BaH9I Модераторы Команда форума Модератор

    Регистрация:
    16 сен 2009
    Сообщения:
    8.096
    Симпатии:
    549
    Баллы:
    204
    Код:
    Строка1 = "Будет";
    Строка2 = "Вам";
    Строка3 = "счастье";
    Результат = Строка1 + ""
    "" + Строка2 + ""
    "" + Строка3;
    Результат будет выглядеть так:
    Будет
    Вам
    счастье
    --- Объединение сообщений, 17 мар 2018 ---
    Под себя подстройте как надо.
  3. TopicStarter Overlay
    Larry Linson
    Offline

    Larry Linson

    Регистрация:
    17 мар 2018
    Сообщения:
    5
    Симпатии:
    0
    Баллы:
    1

    Но если у меня этих строк штук 500? Немного не понимаю как это сделать
  4. nbIpKuH_BaH9I
    Offline

    nbIpKuH_BaH9I Модераторы Команда форума Модератор

    Регистрация:
    16 сен 2009
    Сообщения:
    8.096
    Симпатии:
    549
    Баллы:
    204
    Мда. Вы в цикле же эти 500 строк перебираете. Вот в нем и делаете когда заполняете свой результат.