NAS и не только

[alexb_imported]

Цитата:

Сообщение от jopagames2

Вот теперь точно - САМАЯ-САМАЯ. Однострочная!

SHELL(ENVIRON('comspec'), '/c dir /b c:\*.* > c:\out.txt');

И всё-же повторюсь:
что-бы получить список ТОЛьКО файлов команда DIR не годится, т.к. выдаёт всё содержимое (и файлы, и папки).
Как получить список ТОЛьКО файлов? Если с таблицей FILE, то как?

[zm]

//Name DataType Subtype Length
//InFiles Record File
//IntegrationSetup."Inbound Document Folder" - какой-то установленный folder
CLEAR(InFiles);
InFiles.RESET;
InFiles.SETFILTER(Path,IntegrationSetup."Inbound Document Folder");
InFiles.SETRANGE("Is a file",TRUE);
IF InFiles.FIND('-') THEN
REPEAT
ImpFileName := InFiles.Path+'\'+InFiles.Name;
CLEARLASTERROR;
........

UNTIL InFiles.NEXT = 0;

Примерно так, используя NAS,мы импортируем *.xml files.

[alexb_imported]

Цитата:

Сообщение от zma

//Name DataType Subtype Length
//InFiles Record File
//IntegrationSetup."Inbound Document Folder" - какой-то установленный folder
CLEAR(InFiles);
InFiles.RESET;
InFiles.SETFILTER(Path,IntegrationSetup."Inbound Document Folder");
InFiles.SETRANGE("Is a file",TRUE);
IF InFiles.FIND('-') THEN
REPEAT
ImpFileName := InFiles.Path+'\'+InFiles.Name;
CLEARLASTERROR;
........

UNTIL InFiles.NEXT = 0;

Спасибо, с таблицей FILE теперь всё понятно

[Predatore]

Ух! Отвлёкся на алгоритмическую составляющую задачи и долго не заглядывал. Приятно что породил такую живую и плодотворную дискуссию.
Огромное спасибо jopagames2 за ссылку на подробную РУССКУЮ доку по NAS, InTacto за ссылку на тему с обсуждением перебора файлов и за Browser.txt в ней, Alterant за 10 пост в той теме. И ещё раз jopagames2 за

SHELL(ENVIRON('comspec'), '/c del "'+ENVIRON('appdata')+'\*.zup"');

[jopagames2]

Цитата:

Сообщение от Predatore

Ух! Отвлёкся на алгоритмическую составляющую задачи и долго не заглядывал. Приятно что породил такую живую и плодотворную дискуссию.
...И ещё раз jopagames2 за

SHELL(ENVIRON('comspec'), '/c del "'+ENVIRON('appdata')+'\*.zup"');

Да пользуйтесь на здоровье!
Главное - это красивый алгоритм, доброжелательность к собеседнику и умение порождать дискуссию
Здесь это очень ценят.

[Alex Che]

Цитата:

Сообщение от jopagames2

Блин.
Вот теперь точно - САМАЯ-САМАЯ. Однострочная!

SHELL(ENVIRON('comspec'), '/c dir /b c:\*.* > c:\out.txt');

Всё-таки нужно ставить RC := SHELL..., иначе вывод длинных оглавлений не успевает отработать, в чём легко убедиться, поставив, скажем, после 'DIR C:\WINDOWS' вызов NotePad.exe на файл out.txt. (не успевает только в первый раз, дальше оно, видимо сохраняется в кэше): в результате получаем в блокноте пустой файл.

Цитата:

Сообщение от AlexB

И всё-же повторюсь:
что-бы получить список ТОЛьКО файлов команда DIR не годится, т.к. выдаёт всё содержимое (и файлы, и папки).
Как получить список ТОЛьКО файлов? Если с таблицей FILE, то как?

Можно добавить ещё один параметр:

DIR <путь> /B /A-D

"Минус" перед D, как описано в хелпе по DIR, "имеет значение НЕ", то есть получается - "Выводить НЕ папки".

P.S. Jopagames2 - взаимозачОт за доведение идеи до совершенства!