Архитектору и проектировщику|Тепло- и звукоизоляция URSA.RU
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Список файлов в каталоге и подкаталогах

LISP. Список файлов в каталоге и подкаталогах

Ответ
Поиск в этой теме
Непрочитано 29.03.2015, 16:39 #1
LISP. Список файлов в каталоге и подкаталогах
WhiteShark
 
Регистрация: 30.03.2012
Сообщений: 101

Может искал плохо, но не нашёл никак. Пришлось писать самому.

Код:
[Выделить все]
 (defun WS-FileList (CurDir blnFlat ExtMask / lst CurDir NextDirs)
  (setq lst (mapcar '(lambda (x) (strcat CurDir "\\" x)) (append lst (vl-directory-files CurDir ExtMask 1))))
  (setq NextDirs (mapcar '(lambda (x) (strcat CurDir "\\" x)) (vl-remove "." (vl-remove ".." (vl-directory-files CurDir nil -1)))))
  (if blnFlat
    (append lst (apply 'append (mapcar '(lambda (x) (WS-filelist x blnFlat ExtMask)) NextDirs)))
    (append lst (vl-remove () (mapcar '(lambda (x) (WS-filelist x blnFlat ExtMask)) NextDirs)))
    )
  )
Даёт на выходе список полных путей к файлам с желаемым расширением, лежащим в указываемой папке и её подкаталогах.
Второй параметр (blnFlat) управляет структурой списка: в случае True список будет "плоский", иначе - повторять структуру подкаталогов.

Пример вызова
(WS-filelist "C:\\Projects\\ProjName" T "*.dwg")

Последний раз редактировалось WhiteShark, 30.03.2015 в 10:09. Причина: Поправил
Просмотров: 1849
 
Непрочитано 29.03.2015, 17:45
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,853


http://www.google.ru/cse?cx=partner-...ted&gsc.page=1

----- добавлено через 13 сек. -----
http://forum.dwg.ru/showthread.php?t=16562

----- добавлено через 44 сек. -----
http://forum.dwg.ru/showthread.php?t=16561
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 29.03.2015, 18:05
#3
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,831
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Еще здесь функция z-files-in-directory Или здесь
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 29.03.2015, 19:34
#4
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


WhiteShark, очень хорошо, что вы, занимаясь программированием, осваиваете новые горизонты и, судя по тому, что попали в ветку готовых программ, даже имеете некоторые успехи в этом деле. Ничего, что из-за невнимательности вами был пропущен префикс функции и она не рабочая. Результат придет с опытом, а пока советую вам перенести вашу тему в раздел "Программирование" и там обсудим все аспекты вашего творчества... Все таки здесь ветка готовых программ, а не неготовых функций
gomer вне форума  
 
Автор темы   Непрочитано 29.03.2015, 21:51
#5
WhiteShark


 
Регистрация: 30.03.2012
Сообщений: 101


Просто косякнул при копировании и нужен самому был вариант flat, поэтому не проверил вариант с деревом. Теперь, вроде, всё так
WhiteShark вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Список файлов в каталоге и подкаталогах

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DwgRuLispLib: Команда. Загрузка lisp файлов из указанной папки VVA Библиотека функций 7 15.02.2018 10:10
Autolisp Шифрование LISP файлов mikls LISP 4 07.06.2014 16:16
Нужен Лисп, который выводит список неоткрывшихся файлов pm_86 LISP 7 09.11.2013 02:31
LISP получить список установленных в системе (векторных) шрифтов или хотя бы узнать, установлен ли указанный Ax3 LISP 9 08.02.2011 14:11
Помощь по Лире Серега М Лира / Лира-САПР 52 28.05.2007 02:47