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!!
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.