极速搜索Everything

自贡黄明儒

网友panliang9@sohu.com(2259433769)发给了我Everything，试了一下，速度相当快  我用了sendkeys 自动拾取文本，但存在一个问题，如果中文或者带有特殊符号就不行，各位高手可有更好办法？

1. (defun C:TZ (/ TXT)
   
2.   (if (setq txt (cdr (assoc 1 (entget (car (nentsel "\n 拾取搜索文本"))))))
   
3.     (if        (= (getenv "PROCESSOR_ARCHITECTURE") "x86")            ;32位
   
4.       (Everything32 TXT)
   
5.       (Everything64 TXT)
   
6.     )
   
7.   )
   
8.   (princ)
   
9. )
   
10. (defun Everything64 (TXT)
    
11.   (startapp "Everything-1.4.1.773b.x64-Setup.exe")
    
12.   (sendkeys txt)
    
13. )
    
14. (defun Everything32 (TXT)
    
15.   (startapp "Everything1.3.4.686.x86.x64.exe")
    
16.   (sendkeys txt)
    
17. )
    
18. (defun sendkeys        (keys)
    
19.   (or *WSH* (setq *WSH* (vlax-get-or-create-object "wscript.shell")))
    
20.   (vlax-invoke-method *WSH* 'sendkeys keys)
    
21.   (princ)
    
22. )
    
23. 
    

(defun C:TZ (/ TXT)<br />   (if (setq txt (cdr (assoc 1 (entget (car (nentsel "\n 拾取搜索文本"))))))<br />     (if        (= (getenv "PROCESSOR_ARCHITECTURE") "x86")            ;32位<br />       (Everything32 TXT)<br />       (Everything64 TXT)<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun Everything64 (TXT)<br />   (startapp "Everything-1.4.1.773b.x64-Setup.exe")<br />   (sendkeys txt)<br /> )<br /> (defun Everything32 (TXT)<br />   (startapp "Everything1.3.4.686.x86.x64.exe")<br />   (sendkeys txt)<br /> )<br /> (defun sendkeys        (keys)<br />   (or *WSH* (setq *WSH* (vlax-get-or-create-object "wscript.shell")))<br />   (vlax-invoke-method *WSH* 'sendkeys keys)<br />   (princ)<br /> )<br /> <br />

zxmmelly

everything的速度太快，简直是秒出结果，不过还没研究过lisp调用everything

yangchao2005090

用了很多年了

yangchao2005090

相当好用，还有一个多窗口软件Q-Dir，安全卫士里面好多

87737352

非常好呀，谢谢楼主的分享了。

434939575

大师这个搜索也可以：AIFinderPortable，我的Everything 有时搜不到，用这个了

断箭

下载下来试用了一下，出结果，速度果然是秒算

664571221

这个程序是做什么用的

664571221

是在cad里面查找文字吗

chshsl

我一直用locate这个，应该比Everything好用，当时对比过。