skill是否不能正常使用递归？

leilei4908

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. ))

复制代码

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

hyper

大神，你这程序没有错，Sub 定义为空
这一句不会执行，那就不能获取子文件夹的文件了
when(Sub && obj != "." && obj != ".."
         when(isDir(obj) files = getFiles(obj files Sub))
      )

leilei4908

hyper 发表于 2017-8-1 09:20
大神，你这程序没有错，Sub 定义为空
这一句不会执行，那就不能获取子文件夹的文件了
when(Sub && obj != ...

我在执行的时候，当然会定义Sub为t了
getFiles（path，files， t）


上面的错误主要是：
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. ))

复制代码

我已经改成这样了，但会获取到重复项，不知道为什么

leilei4908

hyper 发表于 2017-8-1 09:20
大神，你这程序没有错，Sub 定义为空
这一句不会执行，那就不能获取子文件夹的文件了
when(Sub && obj != ...

我在执行的时候，当然会定义Sub为t了
getFiles（path，files， t）

hyper

leilei4908 发表于 2017-8-2 08:27
我在执行的时候，当然会定义Sub为t了
getFiles（path，files， t）

1、增加判断是不是空文件夹
2、子文件夹传的是全路径，能不能扩展不会影响吧

hyper

hyper 发表于 2017-8-2 13:12
1、增加判断是不是空文件夹
2、子文件夹传的是全路径，能不能扩展不会影响吧

测试结果，不知道是不是你想要的那种

("D:\\hyper\\work\\2017-08\\02\\test\\\313\277\323\241\315\274/\313\277\323\241\315\274.pdf" "D:\\hyper\\work\\2017-08\\02\\test/screen_top.color" "D:\\hyper\\work\\2017-08\\02\\test/DL0802_Yiti_ZZLH01_V1-3.brd.lck" "D:\\hyper\\work\\2017-08\\02\\test/DL0802_Yiti_ZZLH01_V1-3.brd" "D:\\hyper\\work\\2017-08\\02\\test/allegro.jrl")

hyper

hyper 发表于 2017-8-2 13:13
测试结果，不知道是不是你想要的那种

("D:\\hyper\\work\\2017-08\\02\\test\\\313\277\323\241\315\2 ...

目录如下

其中，Gerber是空目录

hyper

后面再试了下，files只能传进去，返回值始终为nil

hyper

改用return也一样的效果，不知道大神是怎么搞定的？

leilei4908

hyper 发表于 2017-8-2 19:28
改用return也一样的效果，不知道大神是怎么搞定的？

将完整路径传递给递归函数，用simplifyFilename无法正确获取子文件夹或者子文件的路径