同文件夹内文本搜索器(vbs)

2024-07-21 02:15:41

字体：大中小

来源：转载

供稿：网友

<html><head><title>同文件夹内文本搜索器(vbs)</title>
<meta http-equiv=content-type content="text/html; charset=gb2312">
<script language=vbscript id=clienteventhandlersvbs>
<!--
dim fso, f, f1, fc,fn,s,uf1,ufn
sub b1_onclick
fn=t1.value ''
pn=mid(location.pathname,2,len(location.pathname)-14)
showfolderlist(pn)
end sub

function showfolderlist(path)
''msgbox path
set fso = createobject("scripting.filesystemobject")
set f = fso.getfolder(path)
set fc = f.files
'' ufn=ucase(fn)
for each f1 in fc
filespec= path & f1.name
readentirefile(filespec)
'' uf1=ucase(f1.name)
'' if instr(uf1,ufn) <> 0 then
'' s=s & "<a href=" & path & f1.name & ">" & f1.name & "</a> "
'' end if
next
document.write "已搜索到以下条目，请单击之。[墨伯编制于2003年元月] "
document.write s
set fc=nothing
set f=nothing
set fso=nothing
end function

function readentirefile(filespec)
const forreading = 1
dim fso, thefile, retstring
set fso = createobject("scripting.filesystemobject")
set thefile = fso.opentextfile(filespec, forreading, false)
ufn=ucase(fn)
do while thefile.atendofstream<> true
retstring = thefile.readline
uf1=ucase(retstring)
if instr(uf1,ufn) <> 0 then
s=s & "<a href=" & path & f1.name & ">" & f1.name & "</a> "
exit do
end if
loop
thefile.close
readentirefile = s
end function

-->
</script>
</head>
<body>
请输入要搜索[在正文中包含]的关键词(忽略大小写) 
[墨伯编制
于2003年1月5日]  
<input name=t1><input type=button value=搜索！ name=b1>
 </body></html>

上一篇：实现E-mail地址验证的vbs函数代码

下一篇：用VB6创建MTS组件