Vad menar du för sökning?
Frågan#1
Tänkte höra hur man utför en sökning bland filer med hjälp av FileSystemObject!
Kan inte så mycket om det så jag skulle bli mycket tacksam om nån hade en bra kod för det!
Sökning och FSO
8 svar · 269 visningar · startad av Asa
Man söker efter filer!
Är det bara i en mapp du ska söka eller är det i flera?
Flera mappar! Det ska ex vara att man söker i alla mappar man har på sin hemsida!
Kanske går detta script att modifiera om det inte funkar som du vill ha det.
Det gör det säkert! Tackar! :)
Hur gör jag om detta så endast filerna med visas och inte de filer med det sökordet i visas!
For Each objFile in objFolder.Files
If Response.IsClientConnected then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
strFileContents = objTextStream.ReadAll
If InStr(1,strFileContents,strSearchText,1) then
Response.Write "<b>»</b> <a href=" & objFile.Name & ">" & objFile.Name & "</a><br>"
bolFileFound = True
End If
objTextStream.Close
End If
Next
Fixat det själv:
<html>
<body>
<form method="post" action="sok.asp?do=sok">
Skriv sökord:
<input type="text" name="searchtext"> <input type="submit" value="starta sökning">
</form>
<%If Request.QueryString("do") = "sok" Then%>
<b>Sök resultat för: <%=Request("SearchText")%></b><br>
<%Const fsoForReading = 1
Mappen = Server.MapPath("/gws")
strSearchText = Request("SearchText")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Mappen)
bolFileFound = False
For Each objFile in objFolder.Files
If Response.IsClientConnected then
If InStr(1,objFile.Name,strSearchText,1) then
Response.Write "<b>»</b> <a href=" & objFile.Name & ">" & objFile.Name & "</a><br>"
bolFileFound = True
End If
End If
Next
if Not bolFileFound then Response.Write "Inga sökresultat..."
Set objFolder = Nothing
Set objFSO = Nothing%>
<%End If%>
</body>
</html>