Chercher et remplacer un mot dans un fichier texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 945 fois - Téléchargée 21 fois

Commenter

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
roro59650 Messages postés 99 Date d'inscription vendredi 20 avril 2007 Statut Membre Dernière intervention 28 juillet 2011 1
16 mai 2007 à 17:36
Une interface?! ^o)
C'est à dire?
kantus05 Messages postés 3 Date d'inscription mardi 30 janvier 2007 Statut Membre Dernière intervention 29 mars 2010
16 mai 2007 à 17:08
les codes doivent êtres suivis des interfaces
S'inscrire maintenant

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.

Du même auteur (roro59650)