不打开文件下，批量查找文件中的文字

simpleye · 发表于 2013-7-30 21:32:23

本帖最后由 simpleye 于 2013-7-31 16:41 编辑

电脑里有几千张图纸，想查找其中几个文件中的文字（单行或多行）并定位文件。同事用VBA做了一个，但查找五六分钟就出现内存不足并死机。大家有没有Vlisp类似的程序。

张牙舞爪 · 发表于 2013-7-30 21:51:03

用SCRIPT可以搞定

xiabin68 · 发表于 2013-7-31 00:30:50

张牙舞爪发表于 2013-7-30 21:51
用SCRIPT可以搞定

占同，一楼观点，

注册 · 发表于 2013-7-31 08:43:27

楼上2位大侠可以详细指导一下吗

阿然 · 发表于 2013-7-31 08:50:58

提供一个gu版的程序
http://gyh060707.blog.sohu.com/164581411.html
其中GXL-FILE-GETFOLDER函数缺失，请自行联系gu版

simpleye · 发表于 2013-7-31 14:52:28

不打开文件下批量替换已找到了，但我只需要不打开文件下，批理查找并显示该文件名。

328302216 · 发表于 2013-11-4 15:31:07

(defun gxl-file-GetFolder (msg / WinShell shFolder path catchit)
  (setq winshell (vlax-create-object "Shell.Application"))
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
  (setq
catchit (vl-catch-all-apply
      '(lambda ()
   (setq shFolder (vlax-get-property shFolder 'self))
   (setq path (vlax-get-property shFolder 'path))
         )
      )
  )
  (if (vl-catch-all-error-p catchit)
nil
path
  )
)

附上这个函数还是有错误提示正在查找替换文本，请等待...; 错误: 参数类型错误: VLA-OBJECT nil
这是怎么回事呢？

328302216 · 发表于 2013-11-4 15:31:58

阿然发表于 2013-7-31 08:50
提供一个gu版的程序
http://gyh060707.blog.sohu.com/164581411.html
其中GXL-FILE-GETFOLDER函数缺失，请 ...

(defun gxl-file-GetFolder (msg / WinShell shFolder path catchit)
  (setq winshell (vlax-create-object "Shell.Application"))
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
  (setq
catchit (vl-catch-all-apply
            '(lambda ()
               (setq shFolder (vlax-get-property shFolder 'self))
               (setq path (vlax-get-property shFolder 'path))
            )
         )
  )
  (if (vl-catch-all-error-p catchit)
nil
path
  )
)

附上这个函数还是有错误提示正在查找替换文本，请等待...; 错误: 参数类型错误: VLA-OBJECT nil
这是怎么回事呢？

青玉案 · 发表于 2014-8-18 16:29:53

好帖子一定要顶！！！

zhangcan0515 · 发表于 2020-9-3 18:58:33

留下一个脚印日后需要好学习

账号		自动登录	找回密码
密码			注册

[提问] 不打开文件下，批量查找文件中的文字

浏览过的版块