<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
하위 B1_ONCLICK
fn = t1. value ''
pn = mid (location.pathname, 2, len (location.pathname) -14)
Showfolderlist (PN)
종료 서브
함수 showfolderlist (경로)
``msgbox 경로
set fso = createobject (scripting.filesystemobject)
f = fso.getfolder (경로) 설정
fc = f.files를 설정합니다
''ufn = ucase (fn)
FC의 각 F1에 대해
filespec = path & f1.name
readEnireFile (filespec)
''uf1 = ucase (f1.name)
''악기 (uf1, ufn) <> 0이면
''s = s & <a href = & path & f1.name &> & f1.name & </a> <br>
``끝 If
다음
Document.write 다음 항목이 검색되었습니다. 클릭하십시오. [2003 년 1 월 Merber의 편집] <br>
document.write s
fc = 아무것도 설정하지 않습니다
f = 아무것도 설정하지 않습니다
FSO = 아무것도 설정하지 않습니다
엔드 기능
함수 readEntirefile (filespec)
const forreading = 1
희미한 fso, thefile, retstring
set fso = createobject (scripting.filesystemobject)
set thefile = fso.opentextfile (filespec, forreading, false)
ufn = ucase (fn)
thefile.atendofstream <> true 중
retstring = thefile.readline
uf1 = ucase (retstring)
악기 (uf1, ufn) <> 0 인 경우
s = s & <a href = & path & f1.name &> & f1.name & </a> <br>
출구
끝 If
고리
thefile.close
readEntireFile = s
엔드 기능
->
</스크립트>
</head>
<body>
<p align = center> <font color =#000000 size = 6> [텍스트 포함]을 검색하려면 키워드를 입력하십시오 (</font> <font
color =#000000 size = 3> 사례를 무시하십시오 </font> <font color =#000000 size = 6>) </font> </p>
<p align = center> <font size = 2> <font color =#000000> [Merber에서 제작
2003 년 1 월 5 일] </font> </font> </p>
<p align = center> <입력 이름 = t1> <입력 유형 = 버튼 값 = 검색! 이름 = b1> </p>
<p align = center> </p> </body> </html>