[LISP函数]：列出目录下的所有ext扩展名文件

cy956

从明经还是别的那里下的lisp，但是不能列出该目录
下的所有ext扩展名文件，返回一个文件名列表.

2. 
   
3. (defun sea_subfolders (pathfile ext / EXT NIL-1 PATHFILE SUB)
   
4.   ;;;pathfile路径下及所有子目录内的ext文件列表
   
5.   ;;; Usage: (sea_subfolders (getvar "DWGPREFIX") "*.dwg")
   
6.   (mapcar '(lambda (sub)
   
7.     (cons sub
   
8.       (vl-directory-files
   
9.         (strcat pathfile sub)
   
10.         ext 1) )
    
11.     ); lambda
    
12.     (vl-directory-files
    
13.       (vl-filename-directory pathfile) nil-1)
    
14.   )
    
15. )
    

<br /> (defun sea_subfolders (pathfile ext / EXT NIL-1 PATHFILE SUB)<br />   ;;;pathfile路径下及所有子目录内的ext文件列表<br />   ;;; Usage: (sea_subfolders (getvar "DWGPREFIX") "*.dwg")<br />   (mapcar '(lambda (sub)<br />     (cons sub<br />       (vl-directory-files<br />         (strcat pathfile sub)<br />         ext 1) ) <br />     ); lambda<br />     (vl-directory-files<br />       (vl-filename-directory pathfile) nil-1)<br />   ) <br /> ) <br />

用土办法另外写了一个。再请教dx们的高招（玩c的兄弟要笑了：）

cy956

这会儿只有老菜和灯火在这个版面，很想叫一声“阿灯，你好！”:)
回想原来论坛的热闹劲儿，现在好像太理性也太冷清了。

——把水贴放在自己的帖子下面，希望你别觉得碍眼。:D

cy956

可能是没讲清目的：

lisp程序，返回某目录下所有 某扩展名的文件名表。


俺的土办法是用dir>文件再读出，当然细节上包括
dir最小化运行，最后把过程文件删掉。

cy956

提这个问题，是因为我发现用doslib出错(也许是个bug)

(command "dir" "c:\\*.dwg /s /b >c:\\cyotemp.txt")
(dos_filep "c:\\cyotemp.txt")
返回值为t，确实找到了新生成的文件。

而(dos_command "dir c:\\*.dwg /s /b >c:\\cyotemp.txt" 2)
(dos_filep "c:\\cyotemp.txt")
返回值为nil，确实没找到了新生成的文件，
如果存在旧的cyotemp.txt,那么再往下的读文件....都是针对
旧的文件，就像没re-read硬盘一样，而实际上新文件已生成。

LUCAS

并不是doslib出错,那是一种执行时间的问题,dos的执行时间很慢,当(dos_command "dir c:\\*.dwg /s /b >c:\\cyotemp.txt" 2) 这句程序还没有生成cyotemp.txt这个档案时(目录下档案数量不尽相同), (dos_filep "c:\\cyotemp.txt")程序就开始执行,故无法找到档案cyotemp.txt(还没有生成),但只要延迟执行(dos_filep "c:\\cyotemp.txt")则返回值为t(因cyotemp.txt巳经生成),但通常很难判断延迟的时间(几乎不可能),因而程序将失败。(我曾遇到类似的问题!!!这是我想出的最可能原因!!)

2. 
   
3. (defun SEA_SUBFOLDERS (PATHFILE EXT TXT / DWG_NAME_LIST FILE_DWG N)
   
4. ;;;pathfile路径下及所有子目录内的ext文件表
   
5. ;;;pathfile如: "D:\\FILES\",  ext如: "*.dwg", txt如: "c:\\cyotemp.txt"
   
6. ;;;Usage: (sea_subfolders (getvar "DWGPREFIX") "*.dwg" "c:\\cyotemp.txt")
   
7.   (setq PATHFILE (substr PATHFILE 1 (- (strlen PATHFILE) 1)))
   
8.   (setq DWG_NAME_LIST (vl-directory-files PATHFILE EXT))
   
9.   (if (/= DWG_NAME_LIST NIL)
   
10.     (progn
    
11.       (setq FILE_DWG (open TXT "w"))
    
12.       (foreach N DWG_NAME_LIST
    
13.         (write-line (strcat PATHFILE "\" N) FILE_DWG)
    
14.       )
    
15. ;(foreach N DWG_NAME_LIST
    
16. ;        (setq dwg_list (append dwg_list (list(strcat PATHFILE "\" N)))
    
17. ;      )
    
18.       (close FILE_DWG)
    
19.       (alert (strcat "已建立" TXT "档案"))
    
20.     )
    
21.     (alert (strcat PATHFILE "目录下并无你指定的档案"))
    
22.   )
    
23.   (princ)
    
24. )
    

<br /> (defun SEA_SUBFOLDERS (PATHFILE EXT TXT / DWG_NAME_LIST FILE_DWG N)<br /> ;;;pathfile路径下及所有子目录内的ext文件表 <br /> ;;;pathfile如: "D:\\FILES\",  ext如: "*.dwg", txt如: "c:\\cyotemp.txt"<br /> ;;;Usage: (sea_subfolders (getvar "DWGPREFIX") "*.dwg" "c:\\cyotemp.txt")<br />   (setq PATHFILE (substr PATHFILE 1 (- (strlen PATHFILE) 1)))<br />   (setq DWG_NAME_LIST (vl-directory-files PATHFILE EXT))<br />   (if (/= DWG_NAME_LIST NIL)<br />     (progn<br />       (setq FILE_DWG (open TXT "w"))<br />       (foreach N DWG_NAME_LIST<br />         (write-line (strcat PATHFILE "\" N) FILE_DWG)<br />       )<br /> ;(foreach N DWG_NAME_LIST<br /> ;        (setq dwg_list (append dwg_list (list(strcat PATHFILE "\" N)))<br /> ;      )<br />       (close FILE_DWG)<br />       (alert (strcat "已建立" TXT "档案"))<br />     )<br />     (alert (strcat PATHFILE "目录下并无你指定的档案"))<br />   )<br />   (princ)<br /> )<br />