Подскажите кто может. Как можно открыть несколько файлов одновременно в таблицу. Поясняю: нужно организовать поиск, выбор и открытие файлов из нужного места.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Процедура Сформировать()
Т = СоздатьОбъект("Таблица");
ИмяФайла = Сред(СокрЛП(ПостТМЦР.ТекущийДокумент()),17,10);
ИмяКаталога = "\\....\...\";
Результ=ФС.НайтиПервыйФайл(ИмяКаталога+"*"+ИмяФайла+"*.mxl");
Т.Открыть(""+ИмяКаталога+Результ);
Т.Показать();
КонецПроцедуры
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Как организовать открытие файлов с таким же именем 10 знаков слева, без учета последующих символов в имени файла в таблице. Чтоб открывалось сразу несколько файлов в разные таблицы. Файлы под таким именем:
ЛМ00000050_12_08_06_10_53_21.mxl
ЛМ00000050_14_08_06_13_40_41.mxl
ДО02340600_21_07_06_07_43_19.mxl
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Процедура Сформировать()
Т = СоздатьОбъект("Таблица");
ИмяФайла = Сред(СокрЛП(ПостТМЦР.ТекущийДокумент()),17,10);
ИмяКаталога = "\\....\...\";
Результ=ФС.НайтиПервыйФайл(ИмяКаталога+"*"+ИмяФайла+"*.mxl");
Т.Открыть(""+ИмяКаталога+Результ);
Т.Показать();
КонецПроцедуры
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Как организовать открытие файлов с таким же именем 10 знаков слева, без учета последующих символов в имени файла в таблице. Чтоб открывалось сразу несколько файлов в разные таблицы. Файлы под таким именем:
ЛМ00000050_12_08_06_10_53_21.mxl
ЛМ00000050_14_08_06_13_40_41.mxl
ДО02340600_21_07_06_07_43_19.mxl
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Попробуй такой код:
| Код |
|---|
//*******************************************
Процедура Сформировать()
ИмяФайла = ПостТМЦР.НомерДок;
ИмяКаталога = "e:";
Результат=ФС.НайтиПервыйФайл(ИмяКаталога+"*"+ИмяФайла+"*.mxl");
Пока ПустоеЗначение(Результат) = 0 Цикл
Т = СоздатьОбъект("Таблица");
Т.Открыть(""+ИмяКаталога+Результат);
Т.Показать();
Результат=ФС.НайтиСледующийФайл();
КонецЦикла;
КонецПроцедуры
Показать полностью |
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот