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 static/image/common/back.gif
用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 static/image/common/back.gif
提供一个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

留下一个脚印日后需要好学习
页: [1] 2
查看完整版本: 不打开文件下，批量查找文件中的文字