求个递归函数，类似于dos的tree命令！

77077

求啊求~~~~

2. 
   
3. (defun TREE(PATH / filelst outlst Dirlst)
   
4.   (setq filelst (vl-directory-files path "*.lsp")
   
5.               outlst (cons PATH filelst)
   
6.               Dirlst (cddr (vl-directory-files path nil -1))
   
7.               )
   
8.    (mapcar '(lambda(x)
   
9.      (if (setq dirx (cddr (vl-directory-files x nil -1)))
   
10.                (TREE dirx)
    
11.                outlst
    
12.             )
    
13.                   )
    
14.             Dirlst
    
15.           )
    
16.         outlst
    
17. )
    

<br /> (defun TREE(PATH / filelst outlst Dirlst)<br />   (setq filelst (vl-directory-files path "*.lsp")<br />               outlst (cons PATH filelst)<br />               Dirlst (cddr (vl-directory-files path nil -1))<br />               )<br />    (mapcar '(lambda(x)<br />      (if (setq dirx (cddr (vl-directory-files x nil -1)))<br />                (TREE dirx)<br />                outlst<br />             )<br />                   )<br />             Dirlst<br />           )<br />         outlst<br /> )<br />

77077

谁能帮忙下呀。。。。。。

XDSoft

77077 发表于 2014-10-31 21:17
谁能帮忙下呀。。。。。。

看昨天朋友发的列出目录下所有DWG文件的帖子。

77077

学习啊，只想得到多层表表示的目录和文件列表~~~
长老哪个是调用tree命令的~

st788796

dir /a:d /b /s

77077

2. (defun tree (path / dir dirs files pathx)
   
3.    (if (wcmatch path ",*/,*\")
   
4.            (setq dir path)
   
5.            (setq dir (strcat path "/"))
   
6.     )
   
7.     (setq dirs (vl-directory-files dir "*.*" -1)
   
8.                 files (vl-directory-files path "*.txt")
   
9.                 pathx (cons path files)
   
10.                 folders (cons pathx folders)
    
11.                 dirs (vl-remove-if '(lambda (x) (vl-position x '("." ".."))) dirs)
    
12.                 )
    
13.     (mapcar 'tree (mapcar '(lambda (x) (strcat dir x)) dirs))
    
14.     (reverse folders)
    
15. )

(defun tree (path / dir dirs files pathx)<br />    (if (wcmatch path ",*/,*\")<br />            (setq dir path)<br />            (setq dir (strcat path "/"))<br />     )<br />     (setq dirs (vl-directory-files dir "*.*" -1)<br />                 files (vl-directory-files path "*.txt")<br />                 pathx (cons path files)<br />                 folders (cons pathx folders)<br />                 dirs (vl-remove-if '(lambda (x) (vl-position x '("." ".."))) dirs)<br />                 )<br />     (mapcar 'tree (mapcar '(lambda (x) (strcat dir x)) dirs))<br />     (reverse folders)<br /> )

iLisp

77077 发表于 2014-11-1 23:38

xml 就是树形结构存储，搜寻、检索、替换都有函数，远比倒腾alisp省事