|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2011-4-23 10:35 编辑 + T+ Z5 `2 k* ]% t- v% ^
7 H5 d) U- \- y3 [6 l; _
一、问题的由来7 X% I* O/ C; G/ ^+ @" r, f, ~
我们知道在Microsoft Office Excel 2003的VBA中有一个FileSearch对象，利用FileSearch对象可以很方便的遍历某个目录下的所有Excel文件，以批量修改或打印Excel文件，如图1所示。
' N; ~7 ^# U5 q! q
2 D( e3 r. }6 O
% I7 a. E" s0 v |# ?% F
在AutoCAD中没有类似的功能。我写了一个glFileseach类，可以模拟Excel的Fileseach对象所提供的一些功能，用于遍历AutoACD应用程序所支持的文件。应用它可以方便的批量修改和打印AutoACD文件，如图2所示。
" A* R r, f# ~0 P, `: s. u
9 a: \4 {/ P" A, @
$ P. ]+ f$ ^; ^7 q2 [, ~$ ^二、Fileseach类的属性和方法简介
9 J& u) p+ f7 S" P- ^! J* o5 R0 SLookIn 属性：返回或设置在指定的文件搜索过程中要搜索的文件夹。String 类型，可读写。
, p+ @1 C b0 c7 V# m1 \2 o8 _FileName 属性：返回或设置文件搜索过程中要查找的文件名。文件名中可以包含 *（星号）或 ?（问号）通配符。问号通配符可以匹配任意一个单个字符。如键入“gr?y”可以匹配“gray”和“grey”。星号通配符可以匹配任意个字符。如键入“*.txt”可以查找到所有带 .TXT 扩展名的文件。String类型，可读写。7 L: K' U' y+ f
FileType 属性：返回或设置文件搜索过程中要查找的文件类型。可读写，支持：AutoCADs、CorelDRAW、ExcelWorkbooks、PowerPointPPT和WordDocuments、金山公司的WPS表格工作簿、WPS演示演示文稿和WPS文字文档。可以遍历AutoCAD、 CorelDRAW 、Exce、 PowerPoint、 Word和金山公司Office系列软件等应用程序生成的文件。如图3所示。7 l2 @% y8 b8 b$ j' x; t( m& \$ K
SearchFolders属性：确定调用 FileSearch 对象的 Execute 方法时是否搜索子文件夹。
" Z' O$ c! @/ D: Q/ [0 {9 V/ S; p* ~Execute 方法：开始对指定文件的搜索。返回一个 Long 类型，如果没有找到文件，则返回零 (0)，如果找到一个或多个文件，则返回一个正数$ W4 Y+ b T2 t; A& J8 U: r
FoundFiles 属性：返回一个 FoundFiles 集合对象，该对象包括一次查找操作中找到的所有文件的文件名。只读。
$ p, e0 V' `3 ~& w
9 }: P7 S& z$ j6 ~
; w4 @! s2 y0 k4 Y/ ^% @& ^- Q
* q/ B s# |3 J1 k9 W7 |
( ^ K: O, }6 A% G
7 d5 J' L! ^* z* y3 `" b& A
四、其他说明的
+ b- e$ |$ v* m: L由于类的可移植性强，所以glFileseach类可以用于其他支持VBA的程序中，如Microsoft Office 2007、CorelDRAW中。有兴趣的朋友可以使用一下，欢迎你多提宝贵的建议。
7 y4 @- J9 C, V! S; {; \增加了文件类型：( U2 v: Y* A) N. Q
支持：
! |+ J' W9 s5 ^' ~+ `$ h# i, YAutoCADs
( Y' U q& n( b6 [CorelDRAW9 g4 Y# b/ J' [* \! p
ExcelWorkbooks1 J! D) T) \, `& [
PowerPointPPT5 H4 L* s, r( d
WordDocuments, j: f! f: @( m9 x
可以遍历AutoCAD、 CorelDRAW 、Exce、 PowerPoint、 Word等应用程序生成的文件+ t0 `( ] B& Z. E2 _* |" \9 ]# T
4 b& x9 L$ g: ]9 P8 G7 D+ h最新版，请测试！ |
评分
-
查看全部评分
|
发表于 2011-4-22 20:01:24
