[原创]：多层子目录内批量文件重命名的方法(利用4种小众语言)

snoopychen

利用4种小众语言进行批量多层子目录内文件重命名的方法
（华南理工大学建筑学院  qjchen）
问题的提出:
有一批txt文件（处于c:\a目录及在此内的多层子目录下），名字是1，2，3，4等比较乱的名字，现在希望用每个文本的第三行文字作为文件的新名字。
（这个要求当然可以是其他比较奇特的，修改一下即可）
为了方便测试，放了一个文件在这里，
http://qjchen.googlepages.com/test.ZIP
请解压到c:\a目录下即可。

现在希望用几种小众语言共同试一下，作为自我学习，也希望各位高手指正、精简及告诉多几种语言的写法。

问题的中心：目录的递归查找文件，文件读取，重命名

1a）纯粹的Lisp语言
既然是Lisp版，当然得先用Lisp语言，此处用的是Vlisp，其中借助了John F. Uhden, Cadlantic的程序。由于VLisp本身只提供了少量的目录函数，因此代码比较长。里面涉及了递归定义。

优点：lisp函数就如一个玩具一样，它用很少的语言定义出一栋高楼大厦，给人有很满足的感觉，当有足够多的Lisp函数构建出函数库，照样有强大的功能。当然，AutoLisp语言的强项在于图形方面，用它来作这些也有点难为它。

缺点：vlisp的速度相对其他语言似乎有些慢。

用法：在autocad2000以上加载之后，运行ren即可。

2. 
   
3. ;;; ========================================================================
   
4. ;;; Some of the following code are writen by CHEN QING JUN                 ;
   
5. ;;; Civil engineering Department, South China University of Technology     ;
   
6. ;;; Purpose: To get a file list of the currrent path                       ;
   
7. ;;; The platform: Acad2000 and after                                       ;
   
8. ;;; 2007.02.19                                                             ;
   
9. ;;; [url]Http://chenqj.blogspot.com[/url]                                             ;
   
10. ;;; [url]Http://autolisper.googlepages.com[/url]                                      ;
    
11. ;;; ========================================================================
    
12. (defun c:ren (/ direc directree x y direcfile)
    
13.   (setq direc (getstring "\nc:/a:"))
    
14.   (if (= direc "")
    
15.     (setq direc "c:/a")
    
16.   )
    
17.   (setq directree (@Folders direc))
    
18.   (foreach x directree
    
19.     (setq direcfile (qj-directory-only-files x))
    
20.     (foreach y direcfile
    
21.       (if (= (vl-filename-extension y) ".txt")
    
22.         (rename y)
    
23.       )
    
24.     )
    
25.   )
    
26. )
    
27. (defun rename (y / path fh newname)
    
28.   (setq path (vl-filename-directory y)
    
29.         ext (vl-filename-extension y)
    
30.   )
    
31.   (setq fh (open y "r"))
    
32.   (read-line fh)
    
33.   (read-line fh)
    
34.   (setq newname (strcat path "/" (read-line fh) ext))
    
35.   (close fh)
    
36.   (vl-file-rename y newname)
    
37. )
    
38. (defun qj-directory-only-files (path / lst res)
    
39.   (setq lst (vl-directory-files path))
    
40.   (setq lst (mapcar
    
41.               '(lambda (x)
    
42.                  (strcat path "/" x)
    
43.                )
    
44.               lst
    
45.             )
    
46.   )
    
47.   (foreach x lst
    
48.     (if (not (vl-file-directory-p x))
    
49.       (setq res (append
    
50.                   res
    
51.                   (list x)
    
52.                 )
    
53.       )
    
54.     )
    
55.   )
    
56.   res
    
57. )
    
58. ;;; ========================================================================
    
59. ;; given the parent folder as a Path.                                      ;
    
60. ;; Note that using a path of "" or "." or "\" will exclude                ;
    
61. ;; the drive letter.  McNeel's DOSLIB has a DOS_FULLPATH function          ;
    
62. ;; that can return such folders with drive designations.                   ;
    
63. ;; (c) John F. Uhden, Cadlantic                                            ;
    
64. ;;; ========================================================================
    
65. (defun @Folders (Path / Folders @Dirs)
    
66.   (defun @Dirs (Path / Dir Dirs)
    
67.     (and
    
68.       (= (type Path) 'STR)
    
69.       (or
    
70.         (/= (type DOS_FULLPATH) 'EXRXSUBR)
    
71.         (setq Path (DOS_FULLPATH Path))
    
72.       )
    
73.       (if (wcmatch Path ",*/,*\")
    
74.         (setq Dir Path)
    
75.         (setq Dir (strcat Path "/"))
    
76.       )
    
77.       (setq Dirs (vl-directory-files Dir "*.*" -1))
    
78.       (setq Folders (cons Path Folders))
    
79.       (setq Dirs (vl-remove-if '(lambda (x)
    
80.                                   (vl-position x '("." ".."))
    
81.                                 ) Dirs
    
82.                  )
    
83.       )
    
84.       (mapcar
    
85.         '@Dirs
    
86.         (mapcar
    
87.           '(lambda (x)
    
88.              (strcat Dir x)
    
89.            )
    
90.           Dirs
    
91.         )
    
92.       )
    
93.     )
    
94.   )
    
95.   (@Dirs Path)
    
96.   (reverse Folders)
    
97. )
    

<br /> ;;; ========================================================================<br /> ;;; Some of the following code are writen by CHEN QING JUN                 ;<br /> ;;; Civil engineering Department, South China University of Technology     ;<br /> ;;; Purpose: To get a file list of the currrent path                       ;<br /> ;;; The platform: Acad2000 and after                                       ;<br /> ;;; 2007.02.19                                                             ;<br /> ;;; [url]Http://chenqj.blogspot.com[/url]                                             ;<br /> ;;; [url]Http://autolisper.googlepages.com[/url]                                      ;<br /> ;;; ========================================================================<br /> (defun c:ren (/ direc directree x y direcfile)<br />   (setq direc (getstring "\nc:/a:"))<br />   (if (= direc "")<br />     (setq direc "c:/a")<br />   )<br />   (setq directree (@Folders direc))<br />   (foreach x directree<br />     (setq direcfile (qj-directory-only-files x))<br />     (foreach y direcfile<br />       (if (= (vl-filename-extension y) ".txt")<br />         (rename y)<br />       )<br />     )<br />   )<br /> )<br /> (defun rename (y / path fh newname)<br />   (setq path (vl-filename-directory y)<br />         ext (vl-filename-extension y)<br />   )<br />   (setq fh (open y "r"))<br />   (read-line fh)<br />   (read-line fh)<br />   (setq newname (strcat path "/" (read-line fh) ext))<br />   (close fh)<br />   (vl-file-rename y newname)<br /> )<br /> (defun qj-directory-only-files (path / lst res)<br />   (setq lst (vl-directory-files path))<br />   (setq lst (mapcar<br />               '(lambda (x)<br />                  (strcat path "/" x)<br />                )<br />               lst<br />             )<br />   )<br />   (foreach x lst<br />     (if (not (vl-file-directory-p x))<br />       (setq res (append<br />                   res<br />                   (list x)<br />                 )<br />       )<br />     )<br />   )<br />   res<br /> )<br /> ;;; ========================================================================<br /> ;; given the parent folder as a Path.                                      ;<br /> ;; Note that using a path of "" or "." or "\" will exclude                ;<br /> ;; the drive letter.  McNeel's DOSLIB has a DOS_FULLPATH function          ;<br /> ;; that can return such folders with drive designations.                   ;<br /> ;; (c) John F. Uhden, Cadlantic                                            ;<br /> ;;; ========================================================================<br /> (defun @Folders (Path / Folders @Dirs)<br />   (defun @Dirs (Path / Dir Dirs)<br />     (and<br />       (= (type Path) 'STR)<br />       (or<br />         (/= (type DOS_FULLPATH) 'EXRXSUBR)<br />         (setq Path (DOS_FULLPATH Path))<br />       )<br />       (if (wcmatch Path ",*/,*\")<br />         (setq Dir Path)<br />         (setq Dir (strcat Path "/"))<br />       )<br />       (setq Dirs (vl-directory-files Dir "*.*" -1))<br />       (setq Folders (cons Path Folders))<br />       (setq Dirs (vl-remove-if '(lambda (x)<br />                                   (vl-position x '("." ".."))<br />                                 ) Dirs<br />                  )<br />       )<br />       (mapcar<br />         '@Dirs<br />         (mapcar<br />           '(lambda (x)<br />              (strcat Dir x)<br />            )<br />           Dirs<br />         )<br />       )<br />     )<br />   )<br />   (@Dirs Path)<br />   (reverse Folders)<br /> )<br />

1b）利用doslib程序库
DOSLib, 是一个免费的AutoLISP/Visual Lisp 程序库。它为Autocad提供了各种可供调用的windows操作函数 . 它是用Objectarx编写的AutoCAD应用程序。 DOSLib 通过各种函数扩展了AutoLISP和Visual LISP的编程功能。部分翻译可以见这里：
http://chenqj.blogspot.com/2007/01/doslib-75_27.html

优点：比Lisp的代码要短不少。

缺点：需外挂ARX函数库，对不同版本的arx需要不一样。

用法：对相应的cad版本，加载相应的doslib

2. 
   
3. ;;; ========================================================================
   
4. ;;; Some of the following code are writen by CHEN QING JUN                 ;
   
5. ;;; Civil engineering Department, South China University of Technology     ;
   
6. ;;; Purpose: To rename a batch of txt files into new name according to the ;
   
7. ;;;          third line of the text  (Use DOSLIB)                          ;
   
8. ;;; The platform: Acad2000 and after                                       ;
   
9. ;;; 2007.02.19                                                             ;
   
10. ;;; [url]Http://chenqj.blogspot.com[/url]                                             ;
    
11. ;;; [url]Http://autolisper.googlepages.com[/url]                                      ;
    
12. ;;; ========================================================================
    
13. (defun c:ren (/ direc directree x y direcfile fh newname)
    
14.   (setq direc (getstring "\nc:/a:"))
    
15.   (if (= direc "")
    
16.     (setq direc "c:/a")
    
17.   )
    
18.   (setq directree (dos_dirtree direc))
    
19.   (foreach x directree
    
20.     (dos_chdir x)
    
21.     (setq direcfile (dos_dir))
    
22.     (foreach y direcfile
    
23.       (if (= (vl-filename-extension y) ".txt")
    
24.               (progn
    
25.               (setq fh (open y "r"))
    
26.           (read-line fh)
    
27.           (read-line fh)
    
28.           (setq newname (strcat (read-line fh) ".txt"))
    
29.           (close fh)
    
30.         (dos_rename y newname)
    
31.         )
    
32.       )
    
33.     )
    
34.   )
    
35. )
    

<br /> ;;; ========================================================================<br /> ;;; Some of the following code are writen by CHEN QING JUN                 ;<br /> ;;; Civil engineering Department, South China University of Technology     ;<br /> ;;; Purpose: To rename a batch of txt files into new name according to the ;<br /> ;;;          third line of the text  (Use DOSLIB)                          ;<br /> ;;; The platform: Acad2000 and after                                       ;<br /> ;;; 2007.02.19                                                             ;<br /> ;;; [url]Http://chenqj.blogspot.com[/url]                                             ;<br /> ;;; [url]Http://autolisper.googlepages.com[/url]                                      ;<br /> ;;; ========================================================================<br /> (defun c:ren (/ direc directree x y direcfile fh newname)<br />   (setq direc (getstring "\nc:/a:"))<br />   (if (= direc "")<br />     (setq direc "c:/a")<br />   )<br />   (setq directree (dos_dirtree direc))<br />   (foreach x directree<br />     (dos_chdir x)<br />     (setq direcfile (dos_dir))<br />     (foreach y direcfile<br />       (if (= (vl-filename-extension y) ".txt")<br />               (progn <br />               (setq fh (open y "r"))<br />           (read-line fh)<br />           (read-line fh)<br />           (setq newname (strcat (read-line fh) ".txt"))<br />           (close fh)<br />         (dos_rename y newname)<br />         )<br />       )<br />     )<br />   )<br /> )<br />

2）Python语言
python语言是一种比较新的脚本语言，虽然比较小众，但是也得到越来越多人的应用，个人只学了很少的一部分，感觉其层次清楚，函数库也比较大，语言相对比较灵活，和lisp有点类似，比如list,def,lambda等等都很熟悉。我用的python版本是activepython: http://www.activestate.com/，下面的函数walk函数递归调用子程序中的各层文件是参考了http://www.chinaunix.net/jh/55/574467.html的函数的。

优点：函数库比较多，语言也算比较清晰
缺点：得安装python解释器。

用法：将代码存为.py文件，在activepython里面打开这个文件，按ctrl+R运行即可
注意：python的类似progn之类的操作，是用Tab缩进来描述的，每个缩进代表了一个层次，假如下述代码无法工作的话，请把相应的空格改成Tab，两层的为两个Tab

1. 
   
2. import os
   
3. filedir = "c:\\a"
   
4. filenamelist=[]
   
5. def visit(arg, dirname, names, flist = filenamelist):
   
6.     flist += [dirname + "\" + file for file in names]
   
7. os.path.walk(filedir, visit, 0)
   
8. for y in filenamelist:
   
9.     if os.path.isfile(y):
   
10.       f=open(y,'r')
    
11.       f.seek(0)
    
12.       allline=f.readlines()
    
13.       thirdline=allline[2]
    
14.       lst=os.path.split(y)
    
15.       os.chdir(lst[0])
    
16.       f.close()
    
17.       os.rename(lst[1] , thirdline.replace("\n", " ")+'.txt')
    

复制代码

3）cmd脚本语言
（这个是修改精品和drl的hitme大侠的，for的用法比较奇怪也非常强大）
cmd脚本其实就是批处理语言，在win2000之后得到很大的增强，有许多不可思议的操作都用短短几行就得到了解决，范例可见https://www.dream4ever.org/showthread.php?t=75887
第八楼的帖子，相应还有su99和hitme等高手之作

优点：完全只靠系统本身的批处理语言就解决了问题。
缺点：代码的可读性一般，for的用法非常复制，但也非常强大，好好的学习应该可以解决很复杂的问题（听说黑客整天干这种事，咱可没那种能力和野心：）

用法：将代码存为1.bat文件，放到c:\a目录下，双击运行或者cmd命令行下键入1.bat即可

1. 
   
2. @echo off
   
3. setlocal  ENABLEDELAYEDEXPANSION
   
4. for /f "delims=" %%a in ('dir /s/b *.txt') do (
   
5.                         for /f "skip=1 tokens=1,2 delims=:" %%i in ('findstr /n "." "%%a"') do (
   
6.                                 set n=%%j
   
7.                                 if "%%i"=="3" (
   
8.                                 ren "%%~da%%~pa%%~nxa" "!n:~0,10!.txt" 2>nul)
   
9.                         )
   
10. )       
    
11. endlocal
    

复制代码

4）用Autohotkey语言
Autohotkey是一个系统键盘及鼠标模拟程序，具有强大的自定义功能，完全可以将之作为一个Autocad热键处理程序来运行（与Autohook各有所长），外国网站是在这里
http://www.autohotkey.com/wiki/i ... Reading_.26_Parsing
国内也有好些此中高手
http://www.blogcn.com/user48/yonken/index.html
要先安装一个叫autohotkey的软件，下载地址：http://www.autohotkey.com/
它的作用是这样的，
比如把下面这三句代码，存为一个叫abc.ahk (abc可以任意取），

1. 
   
2. F1::^c
   
3. F2::^v
   
4. Tab::^l
   

复制代码

然后，双击这个abc.ahk，那么它将会认为F1是复制，F2是粘贴，在Autocad中，它会认为Tab键就是和F8键一样的正交键。（你可以用它实现很强大的功能吧：0，不过它和autohook还是不一样的，autohook对于定义单键，比如一个按键的，比如a非常有用，而autohotkey还不行）

本来我想编一个ahk文件来实现用autocad的lisp编辑器批量的autolisp程序的代码格式化的，差一点还没有成功，就先编一个这个来测试一下其目录递归功能，发现也很强大。

优点：语言简洁，更有其他强大的功能
缺点：调试不大方便

用法，将这段代码存为1.ahk文件，双击之则完成

1. 
   
2. FileList =  ; Initialize to be blank.
   
3. Loop, c:\a\*.*,0,1
   
4.         FileList = %FileList%%A_LoopFileFullPath%`n
   
5. Loop, parse, FileList, `n
   
6. {
   
7.         FileReadLine, line, %A_LoopField%, 3
   
8.         B= %A_LoopField%
   
9.         SplitPath, B, name, path
   
10.         NewName = %path%\%line%.txt
    
11.         FileMove, %A_LoopField%, %NewName%
    
12. }
    

复制代码

其实高手只要精通一种语言就可以为所欲为了，本人只是得处理非常多的文本文件，因此乱七八糟的学了一点皮毛，特别是语言不熟悉时程序也经常拖沓不已，各位见笑了。

总体的感觉，Lisp最顺手，编的最快。Doslib也很熟眼。Python之前编过一些，改改就成功，但是原来的listdir不能用了之后得google，cmd学的好苦，但感觉到有一片新天地，而autohotkey是为了后面的一些批量导出tecplot图形而学习的。除了lisp，好像速度都比较快。

假如有各种其他的代码，也请不吝指教，谢谢。

fools

很实用的函数,提点小建议,
qj-directory-only-files 可以做如下简化
[php]
(defun qj-directory-only-files (path)
  (MAPCAR (FUNCTION (LAMBDA (x) (STRCAT path "/" x)))
          (VL-DIRECTORY-FILES path nil 1)
  )
)
[/php]

snoopychen

谢谢fools兄，我的mapcar和lambda一直用的比较烂，谢谢fools兄精简：）

fools

hehe ,我只是改了你的VL-DIRECTORY-FILES函数,当最后一个参数取值为1时,只返回文件名,无目录名，和mapcar,lambda无关。不过,如果在循环中使用lambda时，一定要用(function (lambda ...，不要使用'(lambda...,纯lisp时察觉不出两者的区别，编译成vlx或fas速度差别很大。

雨箭风刀

snoopychen 真是博学多才啊．佩服

snoopychen

刀兄过誉了。我的编程水平比较低，杂而不精，远不如刀兄及其他论坛高手之钻研深刻，跟你们学习了许多，非常感谢。

今天我发现了一个更容易的方法，利用我最最最喜欢的total commander，更加简单的完成了这个问题，由于TC和Lisp无关，我就放在这边算数了。
http://chenqj.blogspot.com/2007/02/totalcmdn.html

[iframe h=500 w=600]http://chenqj.blogspot.com/2007/02/totalcmdn.html[/iframe]

小菜

最初由 fools 发布
[B]hehe ,我只是改了你的VL-DIRECTORY-FILES函数,当最后一个参数取值为1时,只返回文件名,无目录名，和mapcar,lambda无关。不过,如果在循环中使用lambda时，一定要用(function (lambda ...，不要使用'(lambda...,纯lisp?.. [/B]

关于使用function和'的区别，我一直很迷惑，今天看到fools兄的这种说法，特地做了以下的测试程序，编译后并没有发现速度上的差异，是什么原因？
[PHP]
(defun w2 (pts)
   (repeat 1000 (mapcar (function (lambda (x) (trans x 0 1))) pts))
  )
(defun w1 (pts)
   (repeat 1000 (mapcar '(lambda (x) (trans x 0 1)) pts))
  )
[/PHP]

fools

你可以看一下acad提供的function函数帮助.
纯lisp看不出两者的区别,将下面的代码编译成vlx或fas,或者直接加载附件中的vlx就可以看出function和quote的区别.用function函数,无论是否编译速度一样,而用quote,编译后非常慢.
[php]
(DEFUN c:tmp (/ T0 T1 T2)
  (SETQ t0 (* 86400 (GETVAR "tdusrtimer")))
  (REPEAT 30000 (MAPCAR '(LAMBDA (x) (* x x)) '(1 2 3)))
  (SETQ t1 (* 86400 (GETVAR "tdusrtimer")))
  (REPEAT 30000
    (MAPCAR (FUNCTION (LAMBDA (x) (* x x))) '(1 2 3))
  )
  (SETQ t2 (* 86400 (GETVAR "tdusrtimer")))
  (princ (strcat "\n<Function> is " (rtos (- t2 t1) 2 3) " second"))
  (princ (strcat "\n<Quote> is " (rtos (- t1 t0) 2 3) " second"))
  (princ)
)
[/php]

我机器上执行的结果是
[php]
<Function> is 1.797 second
<Quote> is 11.39 second
[/php]

雨箭风刀

最初由 fools 发布
[B]你可以看一下acad提供的function函数帮助.
纯lisp看不出两者的区别,将下面的代码编译成vlx或fas,或者直接加载附件中的vlx就可以看出function和quote的区别.用function函数,无论是否编译速度一样,而用quote,编译后非... [/B]

以前虽然知道，但是没想到差这么多．

2. 
   
3. ;;未编译
   
4. 命令: tmp
   
5. 
   
6. <Function> is 1.781 second
   
7. <Quote> is 3.500 second
   
8. 
   
9. 命令:
   
10. 命令: TMP
    
11. 
    
12. <Function> is 1.687 second
    
13. <Quote> is 1.735 second
    
14. 
    
15. 命令:
    
16. 命令: TMP
    
17. 
    
18. <Function> is 1.625 second
    
19. <Quote> is 1.484 second
    
20. 
    
21. 命令:
    
22. 命令: (LOAD "D:/lxx.lsp编译/tmp.fas")
    
23. C:TMP C:TMP
    
24. 
    
25. 命令: tmp
    
26. 
    
27. <Function> is 4.891 second
    
28. <Quote> is 13.140 second
    
29. 
    
30. 命令:
    
31. 命令: TMP
    
32. 
    
33. 
    
34. <Function> is 29.922 second
    
35. <Quote> is 15.297 second
    
36. 
    
37. 命令:
    
38. 命令: TMP
    
39. 
    
40. 
    
41. <Function> is 5.969 second
    
42. <Quote> is 14.140 second
    
43. 
    
44. 命令:
    
45. 命令: TMP
    
46. 
    
47. 
    
48. <Function> is 4.797 second
    
49. <Quote> is 11.438 second
    
50. 
    
51. 命令:
    
52. 命令:
    
53. 命令: (LOAD "D:/lxx.lsp编译/tmp.VLX")
    
54. C:TMP nil
    
55. 
    
56. 命令: TMP
    
57. 
    
58. 
    
59. <Function> is 4.875 second
    
60. <Quote> is 11.078 second
    
61. 
    
62. 命令:
    
63. 命令: TMP
    
64. 
    
65. 
    
66. <Function> is 3.063 second
    
67. <Quote> is 10.937 second
    
68. 
    
69. 命令:
    

<br /> ;;未编译<br /> 命令: tmp<br /> <br /> <Function> is 1.781 second<br /> <Quote> is 3.500 second<br /> <br /> 命令:<br /> 命令: TMP<br /> <br /> <Function> is 1.687 second<br /> <Quote> is 1.735 second<br /> <br /> 命令:<br /> 命令: TMP<br /> <br /> <Function> is 1.625 second<br /> <Quote> is 1.484 second<br /> <br /> 命令:<br /> 命令: (LOAD "D:/lxx.lsp编译/tmp.fas")<br /> C:TMP C:TMP<br /> <br /> 命令: tmp<br /> <br /> <Function> is 4.891 second<br /> <Quote> is 13.140 second<br /> <br /> 命令:<br /> 命令: TMP<br /> <br /> <br /> <Function> is 29.922 second<br /> <Quote> is 15.297 second<br /> <br /> 命令:<br /> 命令: TMP<br /> <br /> <br /> <Function> is 5.969 second<br /> <Quote> is 14.140 second<br /> <br /> 命令:<br /> 命令: TMP<br /> <br /> <br /> <Function> is 4.797 second<br /> <Quote> is 11.438 second<br /> <br /> 命令:<br /> 命令:<br /> 命令: (LOAD "D:/lxx.lsp编译/tmp.VLX")<br /> C:TMP nil<br /> <br /> 命令: TMP<br /> <br /> <br /> <Function> is 4.875 second<br /> <Quote> is 11.078 second<br /> <br /> 命令:<br /> 命令: TMP<br /> <br /> <br /> <Function> is 3.063 second<br /> <Quote> is 10.937 second<br /> <br /> 命令:<br />

顺便提供一个小巧的多文本替换工具

[iframe h=600 w=100%]http://soft.yiiu.com/Software/catalog106/470.html[/iframe]

界面：

小菜

我原先用benchmark测试的，可能加载有什么错误，导致看不出速度上的差别，看了fools的帖子，又试了一次，发现确实差别很大，多谢指点
使用function函数编译成vlx后有什么缺点么？ ' 难道仅仅是看起来比较简短这么个优点？
看帮助文件里：Compiled lambda expressions that are quoted by function will contain debugging information when loaded into the Visual LISP IDE.这句有点不太明白

fools

呵呵,越说越跑题了.
quote函数的作用不是短小好看那么简单，它是组成lisp的七个最基本函数之一，其他六个是atom,car,cdr,cons,eq,cond。虽然quote函数看上去有些奇怪，很难在其它语言中找到类似的概念，但正是这一特征构成了Lisp最为与众不同的特点——代码和数据使用相同的结构来表示，用quote来区分它们。
记不得从哪个cad版本开始引入的function函数，估计是有vlisp以后的事，与quote比起来属于是孙子辈的。为了保护lisp代码，vlisp对函数进行了特殊的照顾，用car，cdr，princ等已经看不到函数代码，严格来说，这已经违背了lisp的代码和数据使用相同结构的初衷。不清楚function具体做了哪些优化，因为纯lisp运行的往往比fas或vlx快。

wxytiger

fools 发表于 2007-2-21 16:28
hehe ,我只是改了你的VL-DIRECTORY-FILES函数,当最后一个参数取值为1时,只返回文件名,无目录名，和mapcar,l ...

感谢经验分享，一个程序，编译后比编译前速度慢很多，一直没找到原因，看到这个帖子，改了一下，确实是这个问题。感谢，解决了大问题了。

279491611

:)谢谢分享。楼主真博学.

qxlonmsn

感谢楼主的分享