在同一个文件夹中搜索文本（VBS）





<！——

昏暗的FSO，F，F1，FC，FN，1，民族院校

子b1_onclick

FN = t1.value

Pn =中（location.pathname，2，len（位置。路径名）- 14）

showfolderlist（PN）

端子


功能showfolderlist（路径）

'msgbox路径

设置FSO = CreateObject（脚本。FileSystemObject ）

集F = fso.getfolder（路径）

设置FC = f文件

'当= ucase（FN）

对于每一个F1在FC

filespec =路径f1.name

readentirefile（filespec）

' 1 = ucase（F1。名称）

如果仪器（UF1、院校）> 0

s。

如果

下一个

段搜索以下条目，请单击。{一月}墨叔叔准备2003

段的

设置FC =无

设置f =无

设置FSO

端功能


功能readentirefile（filespec）

Const ForReading = 1

昏暗的FSO，文件，retstring

设置FSO = CreateObject（脚本。FileSystemObject ）

设置文件= fso.opentextfile（文件规范，ForReading，假）

当= ucase（FN）

而atendofstream <>真实文件。

retstring = thefile.readline

1 = ucase（retstring）

如果仪器（UF1、院校）> 0

S = S f1.name

退出

最后如果

环

关闭文件。

readentirefile = S

端功能


-->







请输入您要在文本}中搜索{的关键字（<字体）

颜色= #大小= 3 > 000000忽视案例和案例

{墨水叔叔准备

在2003年1月5日}