Small searching feature

Kaunal (1 Submission) Internet/HTML VB 6.0 Unknown Difficulty Tue 1^st November 2005 Mon 8^th February 2021

Rate Small searching feature

(1(1 Vote))


<head>
<script language="vbscript">
Function fun()
	Const ForReading = 1, ForWriting = 2, ForAppending = 3
	Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
	
	dim str
	dim filename
	Dim Line
	str = frm.elements.txt1.value

	Set FSO = CreateObject("Scripting.FileSystemObject")
	Set folder = FSO.GetFolder("C:\gandhi\work")
	Set files = folder.Files

	if str <> "" then
	For Each file in Files
	 'document.Write file.Name & "<BR>"
	 'Filename = Split(file.name, ".")
	 'document.Write Filename(0) & "<br>"
	 filename = file.name
	 'document.write filename & "<br>"
	
	 

	 'if right(file.Name,3)="txt" Then
		filepath = "c:\gandhi\work\" & filename
		Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault)
		document.Write "<pre>"
		Do While Not TextStream.AtEndOfStream
			
			Line = TextStream.ReadLine
			Line = Line & vbCrlf
			
			if instr(Line,str) > 0 then
				document.write filename & ":" & Line
			end if
		Loop	
		
		document.Write  "</pre><hr>"
		TextStream.Close
		Set TextStream = nothing
	 'end if
	Next
	else
		msgbox "Insert some STRING...!"
	end if

	Set files = folder.Files
	Set file = Nothing
	Set fso = Nothing
End Function
</script>
</head>
<body>
<form name="frm">
	<input type="text" name="txt1" value="">
	<input type="button" name="btn" value="List" onClick="fun()">
</form>
</body>
</html>

Download snippet Save to my list

Small searching feature Comments

No comments yet — be the first to post one!

Small searching feature

Small searching feature Comments

Post a Comment