NAS и не только

[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 теперь всё понятно

[Alterant]

Цитата:

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

Цитата:

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

Можно и так, но нужно учитывать, что SHELL начиная с 4-ой версии запрашивает подтверждение и под NASом работать не будет. Чтобы не запрашивала нужно 'c:\list.bat' объявить как текстовую константу, но тогда мы жестко привязаны к имени файла.

Эту константу выводим в настройки и пишем что хотим. За одном в настройках нужно сохранить этот замечательный файл, чтобы, при его отсутствии у конечного пользователя, он выгрузился в нужно нам место (не забудем путь вынести тоже в настройки). Или можно, конечно, не забыть его просто туда положить. <- Это для тех кто не захотел заморачиваться с внешними компонентами или табличкой файл.

А как вы константы в настройки выводите? Поля и переменные раньше не прокатывали - все равно спрашивает подтверждение, или сейчас уже работают?
Справка говорит о том, что только константы работают без подтверждения:

Цитата:

The SHELL function has been designed so that each user can create a list of trusted executables. This list is maintained in the user’s .zup file. The way this function works depends on whether the executable is given as a text constant or as a variable.
If the name of the executable is passed to the SHELL function as a text constant then the executable is trusted and the user is not prompted to confirm that they trust the executable. This is also the case when the executable (text constant) is called with a number of other arguments that have been assigned manually.
If the name of the executable is passed to the SHELL function as a variable then the executable is not trusted and the user is prompted to confirm whether they trust the executable the first time it is called. After the user has confirmed that they trust the executable it can be called again at any time without having to confirm that it is trusted.

[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 - взаимозачОт за доведение идеи до совершенства!

[InTacto]

Цитата:

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

А как вы константы в настройки выводите? Поля и переменные раньше не прокатывали - все равно спрашивает подтверждение, или сейчас уже работают?
Справка говорит о том, что только константы работают без подтверждения:

За это не знал. В 5 требует подтверждения, если не константы.