今天无聊，发一个以前的试验品 超快感搜索令 v1.0

狂刀lxx

今天无聊，发一个以前的试验品 超快感搜索令 v1.0

2. 
   
3. ;| xdir,(xdir path fn) = 超快感搜索令 v1.0 (函数版)-----ok!!----by lxx.2005.10
   
4. 说明: 1. 因为太快了，根本不需要在状态条显示搜索过程!!故名"超快感搜索令".
   
5.       2. 参考: c:xfind = 超快感搜索令 v1.0 (对话框版)
   
6. 技巧: 1. 应用到 添加acad.pgp并更新re-init技术!
   
7.       2. 应用到调用系统选择目录对话框.
   
8.       3. 应用到shell参数4不闪屏。
   
9.       4. 应用到外部命令: dir /s/b >文件名 取得搜索结果.
   
10. 测试:
    
11. 命令: xdir
    
12. "c:\\WINDOWS\\system32\\Comdlg32.ocx"
    
13. 00时00分01.65秒
    
14. ;; 8G硬盘.
    
15. 命令: xdir
    
16. 输入文件名(支持通配符):acad*.lsp
    
17. "C:\\Program Files\\LiZheng\\LAr2004\\SYS\\acaddoc.lsp"
    
18. "C:\\Program Files\\AutoCAD 2004\\Express\\acadinfo.lsp"
    
19. "C:\\Program Files\\AutoCAD 2004\\Support\\acadinfo.lsp"
    
20. "C:\\Program Files\\AutoCAD 2004\\Support\\acad2004.lsp"
    
21. "C:\\Program Files\\AutoCAD 2004\\Support\\acad2004doc.lsp"
    
22. "C:\\a14\\Acad.lsp"
    
23. 00时00分01.98秒
    
24. |;
    
25. ;;命令方式:
    
26. (defun c:xdir ()
    
27.   (xdir nil nil)
    
28.   (princ)
    
29. )
    
30. ;| 主函数: (xdir path fn) = 超快感搜索令-------by lxx.2005.10
    
31. 参数: path = 搜索路径. 当为nil.自动显示系统选择目录对话框(qf_getfolder msg).
    
32.       fn   = filename,支持通配符的文件名，如： acad*.lsp .当为nil,自动提示输入.
    
33. 返回: 搜索结果列表. 搜索过程显示搜索内容.
    
34. |;
    
35. (defun xdir (path filename / f a lst)
    
36.   ;;(setq path "c:\")
    
37.   ;;(setq filename "acad*.lsp")
    
38.   (if (not path)
    
39.     (setq path (qf_getFolder "选择搜索目录:"))
    
40.   )     ;(getfiled "" "" "" 4)
    
41.   (if (not filename)
    
42.     (setq filename (getstring "\n输入文件名(支持通配符):"))
    
43.   )
    
44.   (if (and path filename)
    
45.     (progn
    
46.       (x!-time)
    
47.       (x-addpgp "XSHELL, , 4,*OS Command: ," '*xshell*);检测及初始化xshell外部命令
    
48.       (command "xshell"
    
49.         (strcat "dir " path filename " /s/b >c:\\xdir.tmp")
    
50.       )
    
51.       (setq f (open "c:\\xdir.tmp" "r"))
    
52.       (while (setq a (read-line f))
    
53. (setq lst (cons a lst))
    
54.       )
    
55.       (close f)
    
56.       (vl-file-delete "c:\\xdir.tmp")
    
57.       (mapcar 'print lst)
    
58.       (x!-runtime)
    
59.     )
    
60.   )
    
61.   lst
    
62. )
    
63. ;|(x-addpgp str) = 在acad.pgp中添加一行内容.
    
64. 可用于初始化xshell外部命令
    
65. 如果acad.pgp没有以下一行，自行加入。
    
66. "XSHELL,,4,*OS Command: ,"
    
67. 定义外部命令，参数4为隐藏自行!
    
68. 设置后 设全局变量*xshell*为T.第二次运行即可不用打开acad.pgp来判断.
    
69. !!!!调用方法:!!!!
    
70. (x-addpgp "XSHELL, , 4,*OS Command: ," '*xshell*)
    
71. |;
    
72. (defun x-addpgp (str key / fn f a k)
    
73.   (if (not (eval key))
    
74.     (progn
    
75.       (setq fn (findfile "acad.pgp"))
    
76.       (setq f (open fn "r"))
    
77.       (while (and (setq a (read-line f))
    
78.     (setq k (/= a str)))
    
79.       )
    
80.       (close f)
    
81.       (if k
    
82. (progn
    
83.    (setq f (open fn "a"))
    
84.    (write-line str f)
    
85.    (close f)
    
86.    (setvar "re-init" 16) ; reinit acad.pgp !!!!!
    
87. )
    
88.       )
    
89.       (set key T)
    
90.     )
    
91.   )
    
92. )
    
93. ;| (x!-time)...(x!-runtime) = 求测试程序运行时间.---ok!---by lxx.2005.10
    
94. 说明:  (x!-time)..[过程代码]...(x!-runtime) 配套使用.
    
95. |;
    
96. (defun x!-time ()
    
97.   (setq *x!-time (getvar "cdate"))
    
98. )
    
99. ;;
    
100. (defun x!-runtime ( / tm tm$) ;*x!-time 全局.
     
101.   (print)
     
102.   (if *x!-time
     
103.     (progn
     
104.       (setq tm  (- (getvar "cdate") *x!-time)
     
105.      tm$ (rtos tm 2 8))
     
106.       (mapcar '(lambda(x y / a)(princ (strcat  (setq a (substr tm$ x 2)) y)) a) '(3 5 7 9)  '("时" "分" "." "秒"))
     
107.     )
     
108.   )
     
109. )
     
110. ;; (qf_getFolder "")
     
111. (defun qf_getFolder (msg / WinShell shFolder path catchit)
     
112.   (vl-load-com)
     
113.   (setq winshell (vlax-create-object "Shell.Application")); (vlax-dump-object winshell T)
     
114.   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
     
115.   (setq
     
116.     catchit (vl-catch-all-apply
     
117.        '(lambda ()
     
118.    (setq shFolder (vlax-get-property shFolder 'self))
     
119.    (setq path (vlax-get-property shFolder 'path))
     
120.         )
     
121.      )
     
122.   )
     
123.   (if (vl-catch-all-error-p catchit)
     
124.     nil
     
125.     path
     
126.   )
     
127. )
     

<br /> ;| xdir,(xdir path fn) = 超快感搜索令 v1.0 (函数版)-----ok!!----by lxx.2005.10<br /> 说明: 1. 因为太快了，根本不需要在状态条显示搜索过程!!故名"超快感搜索令".<br />       2. 参考: c:xfind = 超快感搜索令 v1.0 (对话框版)<br /> 技巧: 1. 应用到 添加acad.pgp并更新re-init技术!<br />       2. 应用到调用系统选择目录对话框.<br />       3. 应用到shell参数4不闪屏。<br />       4. 应用到外部命令: dir /s/b >文件名 取得搜索结果.<br /> 测试:<br /> 命令: xdir<br /> "c:\\WINDOWS\\system32\\Comdlg32.ocx"<br /> 00时00分01.65秒<br /> ;; 8G硬盘.<br /> 命令: xdir<br /> 输入文件名(支持通配符):acad*.lsp<br /> "C:\\Program Files\\LiZheng\\LAr2004\\SYS\\acaddoc.lsp"<br /> "C:\\Program Files\\<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 2004\\Express\\acadinfo.lsp"<br /> "C:\\Program Files\\AutoCAD 2004\\Support\\acadinfo.lsp"<br /> "C:\\Program Files\\AutoCAD 2004\\Support\\acad2004.lsp"<br /> "C:\\Program Files\\AutoCAD 2004\\Support\\acad2004doc.lsp"<br /> "C:\\a14\\Acad.lsp"<br /> 00时00分01.98秒<br /> |;<br /> ;;命令方式:<br /> (defun c:xdir ()<br />   (xdir nil nil)<br />   (princ)<br /> )<br /> ;| 主函数: (xdir path fn) = 超快感搜索令-------by lxx.2005.10<br /> 参数: path = 搜索路径. 当为nil.自动显示系统选择目录对话框(qf_getfolder msg).<br />       fn   = filename,支持通配符的文件名，如： acad*.lsp .当为nil,自动提示输入.<br /> 返回: 搜索结果列表. 搜索过程显示搜索内容.<br /> |;<br /> (defun xdir (path filename / f a lst)<br />   ;;(setq path "c:\")<br />   ;;(setq filename "acad*.lsp")<br />   (if (not path)<br />     (setq path (qf_getFolder "选择搜索目录:"))<br />   )     ;(getfiled "" "" "" 4)<br />   (if (not filename)<br />     (setq filename (getstring "\n输入文件名(支持通配符):"))<br />   )<br />   (if (and path filename)<br />     (progn<br />       (x!-time)<br />       (x-addpgp "XSHELL, , 4,*OS Command: ," '*xshell*);检测及初始化xshell外部命令<br />       (command "xshell"<br />         (strcat "dir " path filename " /s/b >c:\\xdir.tmp")<br />       )<br />       (setq f (open "c:\\xdir.tmp" "r"))<br />       (while (setq a (read-line f))<br /> (setq lst (cons a lst))<br />       )<br />       (close f)<br />       (vl-file-delete "c:\\xdir.tmp")<br />       (mapcar 'print lst)<br />       (x!-runtime)<br />     )<br />   )<br />   lst<br /> )<br /> ;|(x-addpgp str) = 在acad.pgp中添加一行内容.<br /> 可用于初始化xshell外部命令<br /> 如果acad.pgp没有以下一行，自行加入。<br /> "XSHELL,,4,*OS Command: ,"<br /> 定义外部命令，参数4为隐藏自行!<br /> 设置后 设全局变量*xshell*为T.第二次运行即可不用打开acad.pgp来判断.<br /> !!!!调用方法:!!!!<br /> (x-addpgp "XSHELL, , 4,*OS Command: ," '*xshell*)<br /> |;<br /> (defun x-addpgp (str key / fn f a k)<br />   (if (not (eval key))<br />     (progn<br />       (setq fn (findfile "acad.pgp"))<br />       (setq f (open fn "r"))<br />       (while (and (setq a (read-line f))<br />     (setq k (/= a str)))<br />       )<br />       (close f)<br />       (if k<br /> (progn<br />    (setq f (open fn "a"))<br />    (write-line str f)<br />    (close f)<br />    (setvar "re-init" 16) ; reinit acad.pgp !!!!!<br /> )<br />       )<br />       (set key T)<br />     )<br />   ) <br /> )<br /> ;| (x!-time)...(x!-runtime) = 求测试程序运行时间.---ok!---by lxx.2005.10<br /> 说明:  (x!-time)..[过程代码]...(x!-runtime) 配套使用.<br /> |;<br /> (defun x!-time ()<br />   (setq *x!-time (getvar "cdate"))<br /> )<br /> ;;<br /> (defun x!-runtime ( / tm tm$) ;*x!-time 全局.<br />   (print)<br />   (if *x!-time<br />     (progn<br />       (setq tm  (- (getvar "cdate") *x!-time) <br />      tm$ (rtos tm 2 8))<br />       (mapcar '(lambda(x y / a)(princ (strcat  (setq a (substr tm$ x 2)) y)) a) '(3 5 7 9)  '("时" "分" "." "秒"))<br />     )<br />   )<br /> )<br /> ;; (qf_getFolder "")<br /> (defun qf_getFolder (msg / WinShell shFolder path catchit)<br />   (vl-load-com)<br />   (setq winshell (vlax-create-object "Shell.Application")); (vlax-dump-object winshell T)<br />   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br />   (setq<br />     catchit (vl-catch-all-apply<br />        '(lambda ()<br />    (setq shFolder (vlax-get-property shFolder 'self))<br />    (setq path (vlax-get-property shFolder 'path))<br />         )<br />      )<br />   )<br />   (if (vl-catch-all-error-p catchit)<br />     nil<br />     path<br />   )<br /> )<br />

zark

灰常好，我原来用程序查找ACAD.LSP ACAD.FAS。不懂要用到几分钟呢

狂刀lxx

2. 
   
3. 
   
4. ;| xdirx = 超快感搜索令 v1.0 (对话框版)-----ok!!----by lxx.2005.10
   
5. 说明: 1. 因为太快了，根本不需要在状态条显示搜索过程!!故名"超快感搜索令".
   
6.       2. 参考: c:xfind = 超快感搜索令 v1.0 (函数版)
   
7. 技巧: 1. 应用到 添加acad.pgp并更新re-init技术!
   
8.       2. 应用到调用系统选择目录对话框.
   
9.       3. 应用到shell参数4不闪屏。
   
10.       4. 应用到外部命令: dir /s/b >文件名 取得搜索结果.
    
11.       5. 应用到 自动生成对话框文件并加载 技术. !!!
    
12. 测试:
    
13. ;; 8G硬盘.
    
14. 命令: xfindx
    
15. |;
    
16. ;;命令方式:
    
17. ;;; 主命令:
    
18. (defun c:xfindx (/ dcl_id dclfn dd $lst)
    
19.   ;检测或生成xfindx.dcl.
    
20.   (setq dcl_id (load_dialog (setq dclfn (xdcl-create-xfindx)))) ;加载xfindx.dcl
    
21.   (new_dialog "xfindx" dcl_id) ;获得对话框句柄.
    
22.   ;;预定义按钮操作.
    
23.   (action_tile "getfolder"
    
24.     "(set_tile "searchfolder" (qf_getFolder "选择搜索路径:"))")
    
25.   (action_tile "accept"
    
26.     "(setq folder (get_tile "searchfolder"))
    
27.      (setq fname (get_tile "fname"))     
    
28.      (if (and folder fname)
    
29.          (done_dialog 1)
    
30.          (alert "请选择目录，输入搜索文件名。\n通配符如: acad*.lsp|acad*.*")
    
31.      )")
    
32.   ;; 激活对话框.
    
33.   (setq dd (start_dialog))
    
34.   (unload_dialog dcl_id)
    
35.   (if (= dd 1);由(done_dialog 1)返回的值.
    
36.     (if (setq $lst (xdir folder fname))
    
37.       (xfinx-get $lst dclfn);选择文件.
    
38.       (alert "\n!没有找到!")
    
39.     )
    
40.   )
    
41.   (princ)
    
42. )
    
43. ;| (xfinx-get $lst dclfn) = 从搜索结果中选择需要的文件，返回列表-----by lxx.2005.10
    
44. 参数: $lst = 搜索到的所有文件列表.
    
45.       dclfn = 对话框文件.
    
46. 返回: 选择到的文件列表.
    
47. |;
    
48. (defun xfinx-get ($lst dclfn / $runtime dcl_id dd til fns fnss)
    
49.   (setq allkey nil til nil)
    
50.   (setq dcl_id (load_dialog dclfn))
    
51.   (new_dialog "select" dcl_id)
    
52.   (start_list "selfn")
    
53.   (mapcar 'add_list $lst)
    
54.   (end_list)
    
55.   (set_tile "runtime" $runtime)
    
56.   (action_tile "selfn"
    
57.     "(set_tile "selfn" $value)
    
58.      (setq fnss (xl-subilst $lst (read(strcat "("(get_tile "selfn") ")"))))
    
59.      (print fnss)
    
60.     "
    
61.   )
    
62.   (action_tile "accept"
    
63.     "(if fnss
    
64.          (done_dialog 1)
    
65.          (alert "请选择文件名(可多选)")
    
66.      )")
    
67.   (action_tile "selall" "(set_tile "selfn" (listall$i $lst))(setq fnss $lst)")
    
68.   (action_tile "info" "(alert "狂刀制造 2005.10")")
    
69.   ;;激活
    
70.   (setq dd (start_dialog))
    
71.   (unload_dialog dcl_id)
    
72.   (princ "\n 搜索结果:\n")
    
73.   (cond
    
74.     ((= dd 2)(mapcar 'print fnss));返回所有文件列表.
    
75.     ((= dd 1)
    
76.           (mapcar (function (lambda (x)
    
77.                               (if (member x fnss)
    
78.                                 (setq fnss (vl-remove x fnss))
    
79.                                 (setq fnss (cons x fnss))
    
80.                               )
    
81.                             )
    
82.                   )
    
83.                   fns
    
84.           )
    
85.           fnss                ;返回选到的文件列表.
    
86.     )
    
87.   )
    
88. )
    
89. ;| (listall$i lst) = 取得列表的序号字符串(空格分开).----by lxx.2005.11
    
90. (listall$i '(a b c d)) -> "0 1 2 3"
    
91. |;
    
92. (defun listall$i ($lst / i str)
    
93.   (setq str "" i -1)
    
94.   (mapcar '(lambda(x)(setq str (strcat str (itoa(setq i(1+ i))) " "))) $lst)
    
95.   (vl-string-right-trim " " str)
    
96. )
    
97. ;|
    
98. (xl-subilst lst ilst) = 从ilst序号表提取lst表格元素组新表.
    
99. 测试: (xl-subilst '(a b c d e) '(0 2 3)) -> '(A C D)
    
100. |;
     
101. (defun xl-subilst (lst ilst /)
     
102.   (mapcar '(lambda(x)(nth x lst)) ilst)
     
103. )
     
104. ;| 主函数: (xdir path fn) = 超快感搜索令-------by lxx.2005.10
     
105. 参数: path = 搜索路径. 当为nil.自动显示系统选择目录对话框(qf_getfolder msg).
     
106.       fn   = filename,支持通配符的文件名，如： acad*.lsp .当为nil,自动提示输入.
     
107. 返回: 搜索结果列表. 搜索过程显示搜索内容.
     
108. |;
     
109. (defun xdir (path filename / f a lst)
     
110.   (if (not path)
     
111.     (setq path (qf_getFolder "选择搜索目录:"))
     
112.   )                                        ;(getfiled "" "" "" 4)
     
113.   (if (not filename)
     
114.     (setq filename (getstring "\n输入文件名(支持通配符):"))
     
115.   )
     
116.   (if (and path filename)
     
117.     (progn
     
118.       (x!-time)
     
119.       (x-addpgp "XSHELL, , 4,*OS Command: ," '*xshell*);检测及初始化xshell外部命令
     
120.       (command "xshell"
     
121.                (strcat "dir " path filename " /s/b >c:\\xdir.tmp")
     
122.       )
     
123.       (setq f (open "c:\\xdir.tmp" "r"))
     
124.       (while (setq a (read-line f))
     
125.         (setq lst (cons a lst))
     
126.       )
     
127.       (close f)
     
128.       (vl-file-delete "c:\\xdir.tmp")
     
129.       ;(mapcar 'print lst);对话框版本取消本行.
     
130.       (setq $runtime (x!-runtime))
     
131.     )
     
132.   )
     
133.   lst
     
134. )
     
135. ;|(x-addpgp str) = 在acad.pgp中添加一行内容.
     
136. 可用于初始化xshell外部命令
     
137. 如果acad.pgp没有以下一行，自行加入。
     
138. "XSHELL,,4,*OS Command: ,"
     
139. 定义外部命令，参数4为隐藏自行!
     
140. 设置后 设全局变量*xshell*为T.第二次运行即可不用打开acad.pgp来判断.
     
141. !!!!调用方法:!!!!
     
142. (x-addpgp "XSHELL, , 4,*OS Command: ," '*xshell*)
     
143. |;
     
144. 
     
145. (defun x-addpgp (str key / fn f a k)
     
146.   (if (not (eval key))
     
147.     (progn
     
148.       (setq fn (findfile "acad.pgp"))
     
149.       (setq f (open fn "r"))
     
150.       (while (and (setq a (read-line f))
     
151.                   (setq k (/= a str)))
     
152.       )
     
153.       (close f)
     
154.       (if k
     
155.         (progn
     
156.           (setq f (open fn "a"))
     
157.           (write-line str f)
     
158.           (close f)
     
159.           (setvar "re-init" 16) ; reinit acad.pgp !!!!!
     
160.         )
     
161.       )
     
162.       (set key T)
     
163.     )
     
164.   )
     
165. )
     
166. ;| (x!-time)...(x!-runtime) = 求测试程序运行时间.---ok!---by lxx.2005.10
     
167. 说明:  (x!-time)..[过程代码]...(x!-runtime) 配套使用.
     
168. |;
     
169. (defun x!-time ()
     
170.   (setq *x!-time (getvar "cdate"))
     
171. )
     
172. ;;
     
173. (defun x!-runtime ( / tm tm$) ;*x!-time 全局.
     
174.   (print)
     
175.   (if *x!-time
     
176.     (progn
     
177.       (setq tm  (- (getvar "cdate") *x!-time)
     
178.             tm$ (rtos tm 2 8))
     
179.       (mapcar '(lambda(x y / a)(princ (strcat  (setq a (substr tm$ x 2)) y)) a) '(3 5 7 9)  '("时" "分" "." "秒"))
     
180.     )
     
181.   )
     
182. )
     
183. 
     
184. ;; (qf_getFolder "")
     
185. (defun qf_getFolder (msg / WinShell shFolder path catchit)
     
186.   (vl-load-com)
     
187.   (setq winshell (vlax-create-object "Shell.Application")); (vlax-dump-object winshell T)
     
188.   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
     
189.   (setq
     
190.     catchit (vl-catch-all-apply
     
191.               (function(lambda ()
     
192.                  (setq shFolder (vlax-get-property shFolder 'self))
     
193.                  (setq path (vlax-get-property shFolder 'path))
     
194.                ))
     
195.             )
     
196.   )
     
197.   (if (vl-catch-all-error-p catchit)
     
198.     nil
     
199.     path
     
200.   )
     
201. )
     
202. ;; 自动生成xfindx.dcl对话框文件,保存在 (getVAR "LOCALROOTPREFIX")目录下.
     
203. ;; 返回:文件名: 路径+"xfindx.dcl".
     
204. ;; (xdcl-create-xfindx)
     
205. (defun xdcl-create-xfindx (/ dclname dlg$lst f)
     
206.   (setq        dclname
     
207.          (strcat (getVAR "LOCALROOTPREFIX") "xfindx.dcl")
     
208.   )
     
209.   (setq        dlg$lst
     
210.          (list
     
211.            "xfindx:dialog{"
     
212.              "label="超快感搜索令 v1.0 (对话框版) 狂刀制造------v0510-1.0";"
     
213.              ":row{"
     
214.              ":edit_box{label="搜索路径:";key="searchfolder";value="c:\\\\";width=40;}"
     
215.              ":button {label=" 指定路径 ";key="getfolder";}" "}" ":row{"
     
216.              ":edit_box{label="文 件 名:  ";key="fname";value="*.lsp";width=42;}"
     
217.              ":button {label="狂搜";key="accept";}"
     
218.              ":button {label="退出";is_cancel=true;key="cancel";}"
     
219.              "}"
     
220.            "}"
     
221.            "select:dialog{"
     
222.              "label="超快感搜索令 v1.0 (对话框版) 狂刀制造------v0510-1.0";"
     
223.              ":text{label="搜索用时:";key="runtime";}"
     
224.              ":list_box{label="选择文件:";key="selfn";multiple_select=true;height=20;}"
     
225.              ":boxed_row{"
     
226.                "label="操作:";"
     
227.                ":column{"
     
228.                   ":radio_button {label="输出";key="retkey";value=1;}"
     
229.                   ":radio_button {label="删除";key="delkey";value=0;}"
     
230.                   ":radio_button {label="编辑";key="editkey";value=0;}"
     
231.                "}"
     
232.                ":column{"
     
233.                   ":toggle{label="全选所有选项";key="selall";}"
     
234.                   ":row{"
     
235.                   ":button {label="编辑程序";key="getexef";}"
     
236.                   ":button {label="作者信息";key="info";}"
     
237.                 "}"
     
238.                ":row{"
     
239.                   ":button {label="确定";key="accept";}"
     
240.                   ":button {label="退出";key="cancel";is_cancel=true;}"
     
241.                 "}"
     
242.                "}"
     
243.             "}"
     
244.           "}"
     
245.            )
     
246.   )
     
247.   (if (not (findfile dclname))
     
248.     (progn
     
249.       (setq f (open dclname "W"))
     
250.       (foreach x dlg$lst (write-line x f))
     
251.       (close f)
     
252.     )
     
253.   )
     
254.   dclname
     
255. )
     

<br /> <br /> ;| xdirx = 超快感搜索令 v1.0 (对话框版)-----ok!!----by lxx.2005.10<br /> 说明: 1. 因为太快了，根本不需要在状态条显示搜索过程!!故名"超快感搜索令".<br />       2. 参考: c:xfind = 超快感搜索令 v1.0 (函数版)<br /> 技巧: 1. 应用到 添加acad.pgp并更新re-init技术!<br />       2. 应用到调用系统选择目录对话框.<br />       3. 应用到shell参数4不闪屏。<br />       4. 应用到外部命令: dir /s/b >文件名 取得搜索结果.<br />       5. 应用到 自动生成对话框文件并加载 技术. !!!<br /> 测试:<br /> ;; 8G硬盘.<br /> 命令: xfindx<br /> |;<br /> ;;命令方式:<br /> ;;; 主命令:<br /> (defun c:xfindx (/ dcl_id dclfn dd $lst)<br />   ;检测或生成xfindx.dcl.<br />   (setq dcl_id (load_dialog (setq dclfn (xdcl-create-xfindx)))) ;加载xfindx.dcl<br />   (new_dialog "xfindx" dcl_id) ;获得对话框句柄.<br />   ;;预定义按钮操作.<br />   (action_tile "getfolder"<br />     "(set_tile "searchfolder" (qf_getFolder "选择搜索路径:"))") <br />   (action_tile "accept"<br />     "(setq folder (get_tile "searchfolder"))<br />      (setq fname (get_tile "fname"))     <br />      (if (and folder fname)<br />          (done_dialog 1) <br />          (alert "请选择目录，输入搜索文件名。\n通配符如: acad*.lsp|acad*.*")<br />      )")<br />   ;; 激活对话框.<br />   (setq dd (start_dialog))<br />   (unload_dialog dcl_id)<br />   (if (= dd 1);由(done_dialog 1)返回的值. <br />     (if (setq $lst (xdir folder fname)) <br />       (xfinx-get $lst dclfn);选择文件.<br />       (alert "\n!没有找到!")<br />     ) <br />   ) <br />   (princ)<br /> )<br /> ;| (xfinx-get $lst dclfn) = 从搜索结果中选择需要的文件，返回列表-----by lxx.2005.10<br /> 参数: $lst = 搜索到的所有文件列表.<br />       dclfn = 对话框文件.<br /> 返回: 选择到的文件列表.<br /> |;<br /> (defun xfinx-get ($lst dclfn / $runtime dcl_id dd til fns fnss)<br />   (setq allkey nil til nil)<br />   (setq dcl_id (load_dialog dclfn))<br />   (new_dialog "select" dcl_id) <br />   (start_list "selfn") <br />   (mapcar 'add_list $lst) <br />   (end_list)<br />   (set_tile "runtime" $runtime)<br />   (action_tile "selfn"<br />     "(set_tile "selfn" $value)<br />      (setq fnss (xl-subilst $lst (read(strcat "("(get_tile "selfn") ")"))))<br />      (print fnss)<br />     "<br />   )<br />   (action_tile "accept"<br />     "(if fnss<br />          (done_dialog 1) <br />          (alert "请选择文件名(可多选)")<br />      )")<br />   (action_tile "selall" "(set_tile "selfn" (listall$i $lst))(setq fnss $lst)")<br />   (action_tile "info" "(alert "狂刀制造 2005.10")")<br />   ;;激活<br />   (setq dd (start_dialog))<br />   (unload_dialog dcl_id)<br />   (princ "\n 搜索结果:\n")<br />   (cond<br />     ((= dd 2)(mapcar 'print fnss));返回所有文件列表.<br />     ((= dd 1) <br />           (mapcar (function (lambda (x)<br />                               (if (member x fnss)<br />                                 (setq fnss (vl-remove x fnss))<br />                                 (setq fnss (cons x fnss))<br />                               )<br />                             )<br />                   )<br />                   fns<br />           )<br />           fnss                ;返回选到的文件列表.<br />     )<br />   )<br /> )<br /> ;| (listall$i lst) = 取得列表的序号字符串(空格分开).----by lxx.2005.11<br /> (listall$i '(a b c d)) -> "0 1 2 3"<br /> |;<br /> (defun listall$i ($lst / i str)<br />   (setq str "" i -1)<br />   (mapcar '(lambda(x)(setq str (strcat str (itoa(setq i(1+ i))) " "))) $lst)<br />   (vl-string-right-trim " " str)<br /> )<br /> ;|<br /> (xl-subilst lst ilst) = 从ilst序号表提取lst表格元素组新表.<br /> 测试: (xl-subilst '(a b c d e) '(0 2 3)) -> '(A C D)<br /> |;<br /> (defun xl-subilst (lst ilst /)<br />   (mapcar '(lambda(x)(nth x lst)) ilst)<br /> )<br /> ;| 主函数: (xdir path fn) = 超快感搜索令-------by lxx.2005.10<br /> 参数: path = 搜索路径. 当为nil.自动显示系统选择目录对话框(qf_getfolder msg).<br />       fn   = filename,支持通配符的文件名，如： acad*.lsp .当为nil,自动提示输入.<br /> 返回: 搜索结果列表. 搜索过程显示搜索内容.<br /> |;<br /> (defun xdir (path filename / f a lst)<br />   (if (not path)<br />     (setq path (qf_getFolder "选择搜索目录:"))<br />   )                                        ;(getfiled "" "" "" 4)<br />   (if (not filename)<br />     (setq filename (getstring "\n输入文件名(支持通配符):"))<br />   )<br />   (if (and path filename)<br />     (progn<br />       (x!-time)<br />       (x-addpgp "XSHELL, , 4,*OS Command: ," '*xshell*);检测及初始化xshell外部命令<br />       (command "xshell"<br />                (strcat "dir " path filename " /s/b >c:\\xdir.tmp")<br />       )<br />       (setq f (open "c:\\xdir.tmp" "r"))<br />       (while (setq a (read-line f))<br />         (setq lst (cons a lst))<br />       )<br />       (close f)<br />       (vl-file-delete "c:\\xdir.tmp")<br />       ;(mapcar 'print lst);对话框版本取消本行.<br />       (setq $runtime (x!-runtime))<br />     )<br />   )<br />   lst<br /> )<br /> ;|(x-addpgp str) = 在acad.pgp中添加一行内容.<br /> 可用于初始化xshell外部命令<br /> 如果acad.pgp没有以下一行，自行加入。<br /> "XSHELL,,4,*OS Command: ,"<br /> 定义外部命令，参数4为隐藏自行!<br /> 设置后 设全局变量*xshell*为T.第二次运行即可不用打开acad.pgp来判断.<br /> !!!!调用方法:!!!!<br /> (x-addpgp "XSHELL, , 4,*OS Command: ," '*xshell*)<br /> |;<br /> <br /> (defun x-addpgp (str key / fn f a k)<br />   (if (not (eval key))<br />     (progn<br />       (setq fn (findfile "acad.pgp"))<br />       (setq f (open fn "r"))<br />       (while (and (setq a (read-line f))<br />                   (setq k (/= a str)))<br />       )<br />       (close f)<br />       (if k<br />         (progn<br />           (setq f (open fn "a"))<br />           (write-line str f)<br />           (close f)<br />           (setvar "re-init" 16) ; reinit acad.pgp !!!!!<br />         )<br />       )<br />       (set key T)<br />     )<br />   ) <br /> )<br /> ;| (x!-time)...(x!-runtime) = 求测试程序运行时间.---ok!---by lxx.2005.10<br /> 说明:  (x!-time)..[过程代码]...(x!-runtime) 配套使用.<br /> |;<br /> (defun x!-time ()<br />   (setq *x!-time (getvar "cdate"))<br /> )<br /> ;;<br /> (defun x!-runtime ( / tm tm$) ;*x!-time 全局.<br />   (print)<br />   (if *x!-time<br />     (progn<br />       (setq tm  (- (getvar "cdate") *x!-time) <br />             tm$ (rtos tm 2 8))<br />       (mapcar '(lambda(x y / a)(princ (strcat  (setq a (substr tm$ x 2)) y)) a) '(3 5 7 9)  '("时" "分" "." "秒"))<br />     )<br />   )<br /> )<br /> <br /> ;; (qf_getFolder "")<br /> (defun qf_getFolder (msg / WinShell shFolder path catchit)<br />   (vl-load-com)<br />   (setq winshell (vlax-create-object "Shell.Application")); (vlax-dump-object winshell T)<br />   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br />   (setq<br />     catchit (vl-catch-all-apply<br />               (function(lambda ()<br />                  (setq shFolder (vlax-get-property shFolder 'self))<br />                  (setq path (vlax-get-property shFolder 'path))<br />                ))<br />             )<br />   )<br />   (if (vl-catch-all-error-p catchit)<br />     nil<br />     path<br />   )<br /> )<br /> ;; 自动生成xfindx.dcl对话框文件,保存在 (getVAR "LOCALROOTPREFIX")目录下.<br /> ;; 返回:文件名: 路径+"xfindx.dcl".<br /> ;; (xdcl-create-xfindx)<br /> (defun xdcl-create-xfindx (/ dclname dlg$lst f)<br />   (setq        dclname<br />          (strcat (getVAR "LOCALROOTPREFIX") "xfindx.dcl")<br />   )<br />   (setq        dlg$lst<br />          (list<br />            "xfindx:dialog{"<br />              "label="超快感搜索令 v1.0 (对话框版) 狂刀制造------v0510-1.0";"<br />              ":row{"<br />              ":edit_box{label="搜索路径:";key="searchfolder";value="c:\\\\";width=40;}"<br />              ":button {label=" 指定路径 ";key="getfolder";}" "}" ":row{"<br />              ":edit_box{label="文 件 名:  ";key="fname";value="*.lsp";width=42;}"<br />              ":button {label="狂搜";key="accept";}"<br />              ":button {label="退出";is_cancel=true;key="cancel";}"<br />              "}"<br />            "}"<br />            "select:dialog{"<br />              "label="超快感搜索令 v1.0 (对话框版) 狂刀制造------v0510-1.0";"<br />              ":text{label="搜索用时:";key="runtime";}"<br />              ":list_box{label="选择文件:";key="selfn";multiple_select=true;height=20;}"<br />              ":boxed_row{"<br />                "label="操作:";"<br />                ":column{"<br />                   ":radio_button {label="输出";key="retkey";value=1;}"<br />                   ":radio_button {label="删除";key="delkey";value=0;}"<br />                   ":radio_button {label="编辑";key="editkey";value=0;}"<br />                "}"<br />                ":column{"<br />                   ":toggle{label="全选所有选项";key="selall";}"<br />                   ":row{"<br />                   ":button {label="编辑程序";key="getexef";}"<br />                   ":button {label="作者信息";key="info";}"<br />                 "}"<br />                ":row{"<br />                   ":button {label="确定";key="accept";}"<br />                   ":button {label="退出";key="cancel";is_cancel=true;}"<br />                 "}"<br />                "}"<br />             "}"<br />           "}"<br />            )<br />   )<br />   (if (not (findfile dclname))<br />     (progn<br />       (setq f (open dclname "W"))<br />       (foreach x dlg$lst (write-line x f))<br />       (close f)<br />     )<br />   )<br />   dclname<br /> )<br />

zark

灰常好，我原来用程序查找ACAD.LSP ACAD.FAS。不懂要用到几分钟呢

highflybird

回复 狂刀lxx 的帖子

好像找不到xshell,是要在你的库中加载么？楼主这次是要精品大奉献了。
另外，关于搜索问题，我以前用过API搜索，也可以达到极致。在我的《CAD 垃圾文件清除工具》中。

qjchen

:)，谢谢狂刀兄的好程序，真是很快
我现在一般都用Everything这个软件来搜索东西，也是快的离谱。
每次重启系统之后打开需要10来秒，之后每次搜索， 500G硬盘都是<0.1秒
它用的方法和狂刀兄的比较类似，不过它应该是读取了ntfs分区内的一个文件索引

狂刀lxx

用了  (x-addpgp "XSHELL, , 4,*OS Command: ," '*xshell*);检测及初始化xshell外部命令
没有添加成功么？

highflybird

其实我还是希望搜索能支持正则表达式的。那样更好。

zhouwanweihf

了解，明白

highflybird

回复 狂刀lxx 的帖子

while (setq a (read-line f))----在这个地方中断， f的数值为nil

Command: xdir
输入文件名(支持通配符):*.lsp
xshell Unknown command "XSHELL".  Press F1 for help.
Command: dir C:\*.lsp /s/b >c:\xdir.tmp Unknown command "DIR C:\*.LSP /S/B
>C:\XDIR.TMP".  Press F1 for help.
Command: ; error: bad argument type: FILE nil
; reset after error