Chercher et remplacer un mot dans un fichier texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 489 fois - Téléchargée 19 fois

Contenu du snippet

Bonjour,
je pense qu'il y a deja quelques sources existante, mais je met la mienne, qui cherche un mot dans un texte, qui affiche sa position, et qui le remplace ensuite par un autre mot.

Source / Exemple :


Set objFso = CreateObject("Scripting.FileSystemObject")
' On ouvre en le fichier en lecture
    Set expr = objFso.OpenTextFile (Server.MapPath("Chemin\Texte.txt"),1)
' Longueur est la longueur du mot qui remplace
    Longeur = 9
' Une boucle pour parcourir tout les paragraphes
    Do While Not expr.AtEndOfStream
' Une variable pour compter le nombre de mots remplacés
        i = 0
        Test = expr.ReadLine
' Si le mot n'est pas dans le texte, alors on s'arrete là et on passe au paragraphe suivant
        If InStr(Test,"MotAChercher")<>0 Then
        Response.Write Test & "<br />"
' On initialise Place1 (Debut de la recherche)
        Place1 = 1
' On cherche la place du dernier mot dans le texte
        Fin = InStrRev(Test,"MotAChercher")
        Response.Write "Fin : " & Fin & "<br />"
        Do
            i = i + 1
' Place de la 1ere lettre du mot cherché
            Place1 = Instr(Place1,Test,"MotAChercher")
            Response.Write "Numero debut : " & Place1 & "<br />"
' On extrait le mot cherché
            Extract = Mid(Test,Place1,Longeur)
            Response.Write "Chaine extraite : " & Extract & "<br />i : " & i & "<br />"
            Place1 = Place1 + 1
' On boucle jusqu'à ce que le dernier mot est atteint
        Loop While Place1 < Fin
' On remplace tout les mots cherchés
        Test = Replace (Test,"MotAChercher","MotQuiRemplace")
        Response.Write Test & "<br /><br />"
        End If
    Loop
    expr.Close
    Set expr = Nothing

Conclusion :


Bon ok, c'est surtout une source pour trouver l'emplacement des mots, mais bon.
On peut aussi faire que la longueur soit automatique, une piste à explorer!
Si vous avez la moindre remarque, n'hesitez pas!!

A voir également

Ajouter un commentaire

Commentaires

Messages postés
99
Date d'inscription
vendredi 20 avril 2007
Statut
Membre
Dernière intervention
28 juillet 2011

Une interface?! ^o)
C'est à dire?
Messages postés
3
Date d'inscription
mardi 30 janvier 2007
Statut
Membre
Dernière intervention
29 mars 2010

les codes doivent êtres suivis des interfaces

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.