Trucsweb.com

Trucsweb 1997-2017 - 20 ans de partage.

ASP

Introduction à Scripting.FileSystemObject

RDFFav

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.fso rechercher chaîne caractères répertoire fichier Scripting.FileSystemObject IsClientConnected OpenTextFile lecture readall InStr string files
  • · Niveau : INTERMÉDIAIRE
  • · Compatibilité : IIS 4

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>

Django (Oznog) Blais
Dernière mise à jour :

Commentaires

       Visites : 3644 - Pages vues : 18708
X

Trucsweb.com Connexion

Connexion

X

Trucsweb.com Mot de passe perdu

Connexion

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte

Créer un compte

.
@