|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2011-4-23 10:35 编辑
2 F1 z: e0 `- I8 b0 f& N, ]- G' l, v1 D7 b* h# B4 x
一、问题的由来# N; U6 C0 ^; T0 A; x9 ?
我们知道在Microsoft Office Excel 2003的VBA中有一个FileSearch对象，利用FileSearch对象可以很方便的遍历某个目录下的所有Excel文件，以批量修改或打印Excel文件，如图1所示。! O7 x0 Y+ D' N' Y! W2 x9 I
2 G% X1 U! \+ S
% O( s! h+ J2 |- d
在AutoCAD中没有类似的功能。我写了一个glFileseach类，可以模拟Excel的Fileseach对象所提供的一些功能，用于遍历AutoACD应用程序所支持的文件。应用它可以方便的批量修改和打印AutoACD文件，如图2所示。
: q& e0 w: Y$ f; N$ }6 d* _ ]4 R
- g9 r* F, w$ k0 g
* U2 }" K7 E; Q; x8 Z
二、Fileseach类的属性和方法简介
5 N1 b+ l+ |# @. x8 ~( N& N, OLookIn 属性：返回或设置在指定的文件搜索过程中要搜索的文件夹。String 类型，可读写。
1 n# D8 V$ {# Q- v/ `! LFileName 属性：返回或设置文件搜索过程中要查找的文件名。文件名中可以包含 *（星号）或 ?（问号）通配符。问号通配符可以匹配任意一个单个字符。如键入“gr?y”可以匹配“gray”和“grey”。星号通配符可以匹配任意个字符。如键入“*.txt”可以查找到所有带 .TXT 扩展名的文件。String类型，可读写。2 ^& w& l$ A4 L8 S: V
FileType 属性：返回或设置文件搜索过程中要查找的文件类型。可读写，支持：AutoCADs、CorelDRAW、ExcelWorkbooks、PowerPointPPT和WordDocuments、金山公司的WPS表格工作簿、WPS演示演示文稿和WPS文字文档。可以遍历AutoCAD、 CorelDRAW 、Exce、 PowerPoint、 Word和金山公司Office系列软件等应用程序生成的文件。如图3所示。% d4 g- [" O, b' ?
SearchFolders属性：确定调用 FileSearch 对象的 Execute 方法时是否搜索子文件夹。. y8 G( r K" u
Execute 方法：开始对指定文件的搜索。返回一个 Long 类型，如果没有找到文件，则返回零 (0)，如果找到一个或多个文件，则返回一个正数. y% C, c8 ?, w) D; ?; I
FoundFiles 属性：返回一个 FoundFiles 集合对象，该对象包括一次查找操作中找到的所有文件的文件名。只读。
* n- [ t/ \ T
, X8 L+ Y6 r5 x+ N$ h# O2 E* j. |6 c
* ?; C, v0 J- @" u- y% r
8 l* g) S% D0 d. w: t
9 y0 }: e$ k7 H, ?9 p+ Q5 |! z' Q/ ^& h
四、其他说明的/ K* R+ z3 |7 Z; x; B5 M
由于类的可移植性强，所以glFileseach类可以用于其他支持VBA的程序中，如Microsoft Office 2007、CorelDRAW中。有兴趣的朋友可以使用一下，欢迎你多提宝贵的建议。
9 @- k0 `8 m1 ]& ?2 L增加了文件类型：! G0 o# @, P ^
支持：- ^, K2 { [5 B- G1 S: I
AutoCADs) q+ R b% V* y/ ]& A- B1 a( P- s
CorelDRAW
* m: ~ a$ K# J4 AExcelWorkbooks5 I c3 M" P. x- g2 D N* x. I1 K
PowerPointPPT
, q' w4 B4 D. c# ^9 EWordDocuments! h4 Z$ L; D" {. ^, _. p
可以遍历AutoCAD、 CorelDRAW 、Exce、 PowerPoint、 Word等应用程序生成的文件
! i# n( f% \& W. s+ K" g3 }0 h
. D+ H! o$ k3 ]* p3 C/ s1 n3 Z最新版，请测试！ |
评分
-
查看全部评分
|
发表于 2011-4-22 20:01:24
