如何删除文件夹里的文件

c3a139

请问用LISP 如何实现删除文件夹里的某一类文件，如*.txt。。。

caoyin

c3a139发表于2007-4-26 16:59:00随便再问一下，lambda (x / f)中/有什么用？在下面没用到

lambda 是定义临时函数，和 defun 后面的 (x / y) 意义相同。“/”前面的是参数，后面的是变量，因为临时函数引用了变量 f ，所以放在 “/ ”后面，以区别函数之外的 " f '

例如：
(setq x T)       ;;将变量 x 赋值为 T
(defun test1 (/ x)
  (not x)
)
(test1)          ;;返回 T

而：
(setq x T)       ;;将变量 x 赋值为 T
(defun test1 ()
  (not x)
)
(test1)          ;;返回 nil

caoyin

(defun test (dir extn / finis)
  (if (vl-file-directory-p dir)
    (progn
      (setq finis (substr dir (strlen dir) 1))
      (if (or (/= finis "\\") (/= finis "/"))
        (setq dir (strcat dir "\\"))
      )
      (mapcar '(lambda (x / f)
                 (if (findfile (setq f (strcat dir x)))
                   (vl-file-delete f)
                 )
               )
              (vl-directory-files dir extn 1)
      )
    )
  )
)

;;测试
 (test "c:\\temp" "*.*")
 (test (getenv "tmp") "*.bak")

c3a139

运行了一下，错误，参数太少

(mapcar '(lambda (x / f)
                 (if (findfile (setq f (strcat dir x)))
                   (vl-file-delete f)
                 )
               )
这一段的作用也不太明白

caoyin

我运行没问题啊。

test 共两个参数，你有没有少

(test <路径> <扩展名：如*.*， *.txt>)

      (mapcar '(lambda (x / f)
                 (if (findfile (setq f (strcat dir x)))
                   (vl-file-delete f)        ;;删除下面表中的文件
                 )
               )
              (vl-directory-files dir extn 1);;得出文件列表
      )

c3a139

谢谢你，可以用，是我操作的问题，再次感谢！

随便再问一下，lambda (x / f)中/有什么用？在下面没用到

c3a139

明的了，谢谢！

不冰的冰红茶

给个赞，很有用
谢谢

xujinhua

caoyin 发表于 2007-4-26 10:40
(defun test (dir extn / finis)&nbsp; (if (vl-file-directory-p dir)&nbsp;&nbsp;&nbsp; (progn&nbsp;&nb ...

谢谢楼主，学习了