首页 › 求助答疑 › skill是否不能正常使用递归？

leilei4908 发表于 2017-7-31 13:47:49

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

本帖最后由 leilei4908 于 2017-7-31 14:56 编辑

procedure(getFiles(@optional (path ".") (files nil) (Sub nil))
prog(()
   unless(isDir(path) return(files))
   foreach(obj getDirFiles(path)
      when(Sub && obj != "." && obj != ".."
         when(isDir(obj) files = getFiles(obj files Sub))
      )
      ; when(isFile(obj) files = cons(simplifyFilename(obj) files))
      when(isFile(obj) files = cons(obj files))
   )
   return(files)
))
大神帮我看下这个哪里有错误
代码目的是利用递归，获取所有文件夹及子文件夹内的文件
结果只能获取当前文件夹内的文件，不能获取子文件夹的

hyper 发表于 2017-8-1 09:20:39

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

leilei4908 发表于 2017-8-2 08:27:46

本帖最后由 leilei4908 于 2017-8-2 08:30 编辑

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

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


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


procedure(getFiles(@optional (path ".") (files nil) (Sub nil))
let((objs obj)
   path = simplifyFilename(path)
   objs = isDir(path) && getDirFiles(path) || nil
   foreach(obj objs
      fullpath = strcat(path "\\" obj)
      when(Sub && isDir(fullpath)
         when(obj != "." && obj != ".." files = getFiles(fullpath files Sub))
      )
      when(isFile(fullpath) files = cons(fullpath files))
   )
   files
))
我已经改成这样了，但会获取到重复项，不知道为什么

leilei4908 发表于 2017-8-2 08:27:51

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

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

hyper 发表于 2017-8-2 13:12:03

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

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

hyper 发表于 2017-8-2 13:13:55

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 发表于 2017-8-2 13:17:06

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

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

目录如下

其中，Gerber是空目录

hyper 发表于 2017-8-2 19:26:50

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

hyper 发表于 2017-8-2 19:28:48

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

leilei4908 发表于 2017-8-3 08:42:33

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

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

查看完整版本: skill是否不能正常使用递归？