<Html> <head> <title> text Searcher (VBS) ในโฟลเดอร์เดียวกัน </title>
<meta http-equiv = เนื้อหาประเภทเนื้อหา = text/html; charset = gb2312>
<ภาษาสคริปต์ = 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)
สิ้นสุดย่อย
ฟังก์ชั่น showfolderList (เส้นทาง)
'' เส้นทาง msgbox
ตั้งค่า fso = createObject (scripting.filesystemobject)
ตั้งค่า f = fso.getFolder (เส้นทาง)
ตั้งค่า fc = f.files
'' ufn = ucase (fn)
สำหรับ F1 แต่ละตัวใน FC
filespec = path & f1.name
ReadentireFile (FileSpec)
'' uf1 = ucase (f1.name)
'' ถ้า instr (uf1, ufn) <> 0 แล้ว
'' s = s & <a href = & path & f1.name &> & f1.name & </a> <br>
'' สิ้นสุดถ้า
ต่อไป
document.write รายการต่อไปนี้ได้รับการค้นหาโปรดคลิก [รวบรวมโดย Merber ในเดือนมกราคม 2546] <br>
document.write s
ตั้งค่า fc = ไม่มีอะไร
ตั้งค่า f = ไม่มีอะไร
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
function readentirefile (FileSpec)
const forreading = 1
สลัว fso, thefile, retstring
ตั้งค่า fso = createObject (scripting.filesystemobject)
ตั้งค่า file = fso.opentextfile (filespec, forreceding, false)
ufn = ucase (fn)
ทำในขณะที่ file.atendofstream <> true
retstring = thefile.readline
uf1 = ucase (retstring)
ถ้า instr (uf1, ufn) <> 0 แล้ว
s = s & <a href = & path & f1.name &> & f1.name & </a> <br>
ออก
สิ้นสุดถ้า
วง
Thefile.close
readentireFile = s
ฟังก์ชันสิ้นสุด
-
</script>
</head>
<body>
<p allign = center> <font color =#000000 size = 6> โปรดป้อนคำหลักเพื่อค้นหา [รวมอยู่ในข้อความ] (</font> <font
color =#000000 size = 3> ละเว้นเคส </font> <font color =#000000 size = 6>) </font> </p>
<p allign = center> <font size = 2> <font color =#000000> [ผลิตโดย Merber
ในวันที่ 5 มกราคม 2003] </font> </font> </p>
<p Align = center> <ชื่ออินพุต = t1> <อินพุตประเภท = ค่าปุ่ม = ค้นหา! name = b1> </p>
<p allign = center> </p> </body> </html>