Changer une chaine de caractere dans un fichier txt

cs_cailloux Messages postés 9 Date d'inscription samedi 21 septembre 2002 Statut Membre Dernière intervention 27 septembre 2004 - 26 sept. 2004 à 01:56
cs_cailloux Messages postés 9 Date d'inscription samedi 21 septembre 2002 Statut Membre Dernière intervention 27 septembre 2004 - 26 sept. 2004 à 23:54
bonjour, voila je cherche quelqu'un qui pourrais me dire comment il est possible de rechercher dans un texte, par exemple une chaine de caractere " ABC" et de changer celle ci par une chaine de caractere qui se situe quelques ligne (peut varier) en dessous et se trouve entre par exemple "valeur =" et ">"

pour faciliter

nom=ABC
...
...
...
...
<valeur=CDE>

donc trouver ABC et le changer en CDE qui se trouve plus bas.

merci

3 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
26 sept. 2004 à 02:42
Bonjour
Dim i As Long, j As Long, Texte As String
'recherche en partant du début de la chaîne
i = Instr(chaine, valeur=") ' valeur= a 6 caractères
'recherche de > en partant du i ème caractère de la chaîne
j = Instr(i, chaine, ">")'le texte entre et > (+1 pour ne pas compter ni >)
Texte = Mid$(chaine, i + 6 + 1, j - i - (6 + 1))
chaine = Replace (chaine, "ABC", Texte)
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
26 sept. 2004 à 02:43
correction :
i = Instr(chaine, "valeur=")
0
cs_cailloux Messages postés 9 Date d'inscription samedi 21 septembre 2002 Statut Membre Dernière intervention 27 septembre 2004
26 sept. 2004 à 23:54
ok merci, j'ai trouve comment faire
0
Rejoignez-nous