Массив файлов в ТЗ

[vova-1c@xaker.ru]

 Подскажите  (1С 8.3.12)
получаю массив файлов

Код Выделить Развернуть

МассивФайлов = НайтиФайлы( "D:\tmp" , "*");
теперь надо этот массив отобразить на форме в ТЗ

[vova-1c@xaker.ru]

Написал пока вот так

Код Выделить Развернуть

&НаСервере
Процедура Массив2ТЗ( )

МассивФайлов = НайтиФайлы( Объект.ПутьККаталогу , "*");

ТЗ = Новый ТаблицаЗначений;

ТЗ.Колонки.Добавить("Имя"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("ПолноеИмя"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("Путь"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("ИмяБезРасширения"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("Расширение"   , Новый ОписаниеТипов("Строка"));
         
Для Каждого стрМас Из МассивФайлов  Цикл
СтрТЗ  = ТЗ.Добавить();
СтрТЗ.Имя  = стрМас.Имя ;
СтрТЗ.ПолноеИмя  = стрМас.ПолноеИмя ;
СтрТЗ.Путь  = стрМас.Путь ;
СтрТЗ.ИмяБезРасширения  = стрМас.ИмяБезРасширения ;
СтрТЗ.Расширение  = стрМас.Расширение ;
КонецЦикла;

ВыводТЗнаФорму("ТЗформ",   ТЗ);   // выводим Таблицу значений на Форму

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


Добавлено: 27 апр 2019, 05:47

одно НО,
как теперь эту партянку уместить одной строчкой,
т.е.  Подскажите существует ли более красивый способ,
и второй вопрос - как выкатить на форму эту ТЗ

Добавлено: 27 апр 2019, 05:57

На форме ТЗ  как Ревизит Формы

[alexandr_ll]

Написал пока вот так

Код Выделить Развернуть

&НаСервере
Процедура Массив2ТЗ( )

МассивФайлов = НайтиФайлы( Объект.ПутьККаталогу , "*");

ТЗ = Новый ТаблицаЗначений;

ТЗ.Колонки.Добавить("Имя"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("ПолноеИмя"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("Путь"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("ИмяБезРасширения"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("Расширение"   , Новый ОписаниеТипов("Строка"));
         
Для Каждого стрМас Из МассивФайлов  Цикл
СтрТЗ  = ТЗ.Добавить();
СтрТЗ.Имя  = стрМас.Имя ;
СтрТЗ.ПолноеИмя  = стрМас.ПолноеИмя ;
СтрТЗ.Путь  = стрМас.Путь ;
СтрТЗ.ИмяБезРасширения  = стрМас.ИмяБезРасширения ;
СтрТЗ.Расширение  = стрМас.Расширение ;
КонецЦикла;

ВыводТЗнаФорму("ТЗформ",   ТЗ);   // выводим Таблицу значений на Форму

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


Добавлено: 27 апр 2019, 05:47

одно НО,
как теперь эту партянку уместить одной строчкой,
т.е.  Подскажите существует ли более красивый способ,
и второй вопрос - как выкатить на форму эту ТЗ

Добавлено: 27 апр 2019, 05:57

На форме ТЗ  как Ревизит Формы

https://forum.infostart.ru/forum9/topic97492/

[vova-1c@xaker.ru]

 Нет , не о том , мимо

Добавлено: 29 апр 2019, 04:34

Навоял вот такое решение , солянка

Код Выделить Развернуть

&НаСервере
Процедура Массив2ТЗ( )

МассивФайлов = НайтиФайлы( ПутьККаталогу , "*.epf");

ТЗ = Новый ТаблицаЗначений;

ТЗ.Колонки.Добавить("Имя"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("ПолноеИмя"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("Путь"   , Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("ИмяБезРасширения"   , Новый ОписаниеТипов("Строка"));
//ТЗ.Колонки.Добавить("Расширение"   , Новый ОписаниеТипов("Строка"));

Для Каждого стрМас Из МассивФайлов  Цикл
СтрТЗ  = ТЗ.Добавить();
СтрТЗ.Имя  = стрМас.Имя ;
СтрТЗ.ПолноеИмя  = стрМас.ПолноеИмя ;
СтрТЗ.Путь  = стрМас.Путь ;
СтрТЗ.ИмяБезРасширения  = стрМас.ИмяБезРасширения ;
//СтрТЗ.Расширение  = стрМас.Расширение ;
КонецЦикла;

ВыводТЗнаФорму("ТЗформ",   ТЗ);// выводим ТЗ на Форму
                               // ТЗформ - на форме как Реквизит Формы
КонецПроцедуры

[antoneus]

Код Выделить Развернуть

Для Каждого стрМас Из МассивФайлов  Цикл
    ЗаполнитьЗначенияСвойств(ТЗ.Добавить(), стрМас)
КонецЦикла;