CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE

    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

15 mai 2007 10:29:40 :

Changement de titre