明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2916|回复: 10

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

[复制链接]
发表于 2013-7-30 21:32 | 显示全部楼层 |阅读模式
5明经币
本帖最后由 simpleye 于 2013-7-31 16:41 编辑

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

附件: 您需要 登录 才可以下载或查看,没有账号?注册
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2013-7-30 21:51 | 显示全部楼层
用SCRIPT可以搞定
回复

使用道具 举报

发表于 2013-7-31 00:30 | 显示全部楼层
张牙舞爪 发表于 2013-7-30 21:51
用SCRIPT可以搞定

占同,一楼观点,
回复

使用道具 举报

发表于 2013-7-31 08:43 | 显示全部楼层
楼上2位大侠可以详细指导一下吗
回复

使用道具 举报

发表于 2013-7-31 08:50 | 显示全部楼层
提供一个gu版的程序
http://gyh060707.blog.sohu.com/164581411.html
其中GXL-FILE-GETFOLDER函数缺失,请自行联系gu版
回复

使用道具 举报

 楼主| 发表于 2013-7-31 14:52 | 显示全部楼层
不打开文件下批量替换已找到了,但我只需要不打开文件下,批理查找并显示该文件名。
回复

使用道具 举报

发表于 2013-11-4 15:31 | 显示全部楼层
(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
这是怎么回事呢?
回复

使用道具 举报

发表于 2013-11-4 15:31 | 显示全部楼层
阿然 发表于 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 | 显示全部楼层
好帖子 一定要顶!!!
回复

使用道具 举报

发表于 2020-9-3 18:58 | 显示全部楼层
留下一个脚印日后需要好学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 07:50 , Processed in 0.310758 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表