多重子目录

llsheng_73 · 发表于 2014-1-11 21:02:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun xdirectory(folder / a);;;指定目录folder下的所有子目录(可以多层)
(setq a(cddr(vl-directory-files folder nil -1)))
(if a(cons folder(mapcar'(lambda(x)(xdirectory(strcat folder"\\"x))) a))folder))

本来想用递归处理返回指定目录下所有子目录，但有一点没处理好，那就是它可能返回嵌套表，希望高手优化一下，能直接返回一层表而不是需要进一步处理的嵌套表

ayl1004 · 发表于 2014-1-12 19:31:45

这种问题用递归反而不好

llsheng_73 · 发表于 2014-1-14 08:18:38

关键不用递归的话，那处理起来不知道怎么办，而用了递归又没处理好，头痛

账号		自动登录	找回密码
密码			立即注册