EDA365电子工程师网

标题: [求助] skill是否不能正常使用递归？ [打印本页]

---

作者: leilei4908    时间: 2017-7-31 14:09
标题: [求助] skill是否不能正常使用递归？

1. procedure(getFiles(@optional (path ".") (files nil) (Sub nil))
   
2. prog(()
   
3.    unless(isDir(path) return(files))
   
4.    foreach(obj getDirFiles(path)
   
5.       when(Sub && obj != "." && obj != ".."
   
6.          when(isDir(obj) files = getFiles(obj files Sub))
   
7.       )
   
8.       ; when(isFile(obj) files = cons(simplifyFilename(obj) files))
   
9.       when(isFile(obj) files = cons(obj files))
   
10.    )
    
11.    return(files)
    
12. ))

复制代码

大神帮我看下这个哪里有错误
代码目的是利用递归，获取所有文件夹及子文件夹内的文件

这个只能获取到第一级文件夹内的文件，不能获取子文件夹的

上面的错误主要是：
1.子文件夹的文件名不能通过isFile判断文件是否存在
2.simplifyFilename不能将子文件夹扩展成完整路径

1. procedure(getFiles(@optional (path ".") (files nil) (Sub nil))
   
2. let((objs obj)
   
3.    path = simplifyFilename(path)
   
4.    objs = isDir(path) && getDirFiles(path) || nil
   
5.    foreach(obj objs
   
6.       fullpath = strcat(path "\\" obj)
   
7.       when(Sub && isDir(fullpath)
   
8.          when(obj != "." && obj != ".." files = getFiles(fullpath files Sub))
   
9.       )
   
10.       when(isFile(fullpath) files = cons(fullpath files))
    
11.    )
    
12.    files
    
13. ))

复制代码

这个能解决上面的问题，但是不知道为什么，获取的文件有重复项

---

欢迎光临 EDA365电子工程师网 (https://bbs.elecnest.cn/)

Powered by Discuz! X3.2