ASP

Introduction à Scripting.FileSystemObject

Rechercher une chaîne de caractère dans un fichier - Et tous les fichiers du répertoire

Que dire de plus! Simplement ouvrir chaque fichier du répertoire. Vérifier si la chaîne existe dans le fichier. Si la chaîne est présente, afficher un lien vers le fichier.

Code complet : FSORech.asp

<b>Chaîne de recherche : </b>’<em><%=Request("ChaineRech")%></em>’<br>
<%
Const fsoLecture = 1

Dim strChaine, strResult, strMess
strChaineRech = Request("ChaineRech")
strResult = "<li>Veuillez entrer une chaîne de caractères d’au moins 3 caractères...</li>"

if len(strChaineRech) > 2 then
  strResult = "Résultat:<br>"
  ’ Récupérer chaque fichier
  Dim objFSO
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  Dim objRep, nPath
  Set objRep = objFSO.GetFolder(Server.MapPath("."))

  Dim objFichier, objTexteStream, strFichier

  For Each objFichier in objRep.Files
    If Response.IsClientConnected then
      Set objTexteStream = objFSO.OpenTextFile(objFichier.Path,fsoLecture)

      strFichier = objTexteStream.ReadAll

      If InStr(1,strFichier, strChaineRech,1) then
        strResult = strResult+ "<li><a href=""" & objFichier.Name & """>" & objFichier.Name & "</a></li>"

      End If

      objTexteStream.Close
    End If
  Next

  Set objTexteStream = Nothing
  Set objRep = Nothing
  Set objFSO = Nothing
End if
%>

<ul>
<%=strResult%>
</ul>

<form method="post" action="FSORech.asp">
<input type="text" name="ChaineRech">
<input type="submit" name="Submit" value="Recherche">
</form>