Remplacement d'une chaîne de caractèresRésolu

Question

bonjour - je cherche dans un fichier texte, &#224; remplacer une cha&#238;ne de caract&#232;res qui commence et qui fini toujours par trois caract&#232;res identiques. j'ai test&#233; un morceau de code
d&#233;couvert sur le site, mais j'ai une erreur, du au fait que cette fameuse cha&#238;ne, m&#232;me si le milieu est diff&#233;rent, pr&#233;sente des similitudes quant au d&#233;but et &#224; la fin de la cha&#238;ne, et qu'elle
se r&#233;p&#232;te &#224; plusieurs reprises. quelqu'un peut t'il me donner un petit coup de pouce. merci

Function RemplA()
    res = vbNullString
    txt = RichTextBox2.Text
    remp1 = "dbl"
    remp2 = "fdl"
    remp3 = "ma chaine de remplacement" 
    'Function Remplacer(Dans, De, JusquAu, Par)
    RichTextBox5.Text = res
    res = Remplacer(txt, remp1, remp2, remp3)
    Open nomfich For Output As #1
    Print #1, res
    Close #1
End Function

pr&#233;cision, cette cha&#238;ne &#224; une longueur fixe de 60 caract&#232;res.

phenrent76 · Accepted Answer

Vu, ok, merci pour tout tes conseils, j'ai r&#233;ussi en mettant stringtoreplace = Mid(Dans, pos1, pos2 - pos1 + 3), le 3 correspondant &#224; la longueur de ma balise. par contre contrairement &#224; tes pr&#233;visions, je t'assure que la cha&#238;ne recherch&#233;e se r&#233;p&#232;te environ 90 fois, et sans boucle, la mise &#224; jour se fait sans probl&#232;mes par ma balise de remplacement, et ce dans le texte entier. ne me demande pourquoi, mais ca fonctionne.
encore un grand merci &#224; toi - cordialement

nhervagault · Answer

salut , voila un bout de code fonctionnel qaue j'ai fait en 2 minutes qui permettra de te guider, j'ai alleger la structure au maximum et gerer le cas ou selument 1 texte est à remplacer a toi de mettre une boucle attention les 1 dans la fonction de replace est importante sinon le debut de la chaine est avalé Private Sub Command1_Click() res = vbNullString txt = " My texte " remp1 = "" remp2 = "" remp3 = "ma chaine de remplacement" 'Function Remplacer(Dans, De, JusquAu, Par) res = Remplacer(txt, remp1, remp2, remp3) MsgBox res End Sub Function Remplacer(Dans, Deb, JusquAu, Par) As String pos1 = InStr(1, Dans, Deb) pos2 = InStr(pos1, Dans, JusquAu) MsgBox pos1 MsgBox pos2 If pos1 = 0 Then MsgBox "erreur debut de chaine" End If If pos2 = 0 Then MsgBox "erreur fin de chaine" End If stringtoreplace = Mid(Dans, pos1 + Len(Deb), pos2 - Len(JusquAu) - pos1+1) Dans = Replace(Dans, stringtoreplace, Par, 1) Remplacer = Dans End Function resultat "ma chaine de remplacement" voila bonne prog

phenrent76 · Answer

Désolé, mais je suis totalement novice alors .... beaucoup de compréhension .. je met le code original Private Sub Command1_Click() res = vbNullString txt RichTextBox2.Text ( qui contient le texte à modifier ) Dans remp1 Text4.Text ( normalement DBL- ) De remp2 Text5.Text ( ... -FDL ) JusquAu remp3 Text6.Text ( ... ;@EN) Par RichTextBox5.Text = res ( qui me réaffiche le texte modifié ) 'res = Remplacer(txt, "DBL-", "-FDL", ";@EN") res = Remplacer(txt, remp1, remp2, remp3) Open nomfich For Output As #1 Print #1, res Close #1 MsgBox " Remplacement(s) éffectué(s) ! " End Sub el la fonction ... Function Remplacer(Dans, De, JusquAu, Par) Do While InStr(Dans, De) <> 0 And InStr(Dans, JusquAu) <> 0 Gauche = Left(Dans, InStr(Dans, De) - 1) Droite = Right(Dans, Len(Dans) - InStr(Dans, JusquAu) - Len(JusquAu) + 1) Dans = Gauche & Par & Droite Loop Remplacer = Dans 'Mavar = Remplacer(Page, "<", ">", "") End Function voilà, si tu peux modifier ces quelques lignes en gardant mes critères, çà m'aiderait beaucoup , pour une boucle, je pense pouvoir y arriver, mais pour le reste .... je galère ... merci

phenrent76 · Answer

Ok - je vais me coucher un peu plus tard mais j'ai trouv&#233;  &#231;&#224; fonctionne, mais j'ai une petite erreur :

Private Sub Command5_Click()
    res = vbNullString
    txt = RichTextBox2.Text    remp1 Text4.Text '  "DBF" '""    remp2 Text5.Text '  "FDL" '""    remp3 Text6.Text ' "xxxxx" ' "ma chaine de remplacement"
    RichTextBox5.Text = res
    res = Remplacer(txt, remp1, remp2, remp3)
    Open nomfich For Output As #1
    Print #1, res
    Close #1
End Sub

mais &#231;&#224; me donne cette r&#233;ponse :  DBFxxxxxDL alors qu'il ne 
devrait rester que xxxxx   

merci &#224; toi nhervagault
Si quelqu'un &#224; une solution. cordialement

nhervagault · Answer

Les html x'etait pour m'amuser desol&#233; que ca t'a perturb&#233;



Len(Deb) et len('jusqua) sont a enlever si tu veux que xxxxxxx



voila

phenrent76 · Answer

Voil&#224; j'ai modifi&#233; comme &#231;&#224; : 

          stringtoreplace = Mid(Dans, pos1 + Len(Deb), pos2 - Len(JusquAu) - pos1+1)
par     stringtoreplace = Mid(Dans, pos1, pos2 - pos1 + 1)

comme crit&#232;re ceux l&#224; : DBF (De)  - FDL (Jusquau) - xxxxx (Par) et comme nouvelle r&#233;ponse au lieu de DBFxxxxxDL , j'ai  maintenant   
xxxxxDL,
 je sens que &#231;a devient bon, il manque pas grand chose - merci  nhervagault
je pr&#233;cise que m&#234;me sans boucle, &#224; part l'erreur ci-dessus, la modif s'applique jusqu'&#224; la fin du fichier ! 

@plus

nhervagault · Answer

Je ne pense pas que la solution fonctionne si tu as plusieurs fois ton schema(pattern) 

dans ton texte.

Oui tout le fichier est trait&#233; si et seuelemnt si tu as une seule occurence.

Pour la resolution de ton probleme il faut de tete remettre la len de la balise de fin.



Mid (chaine, debut, longeur) 



voila

Remplacement d'une chaîne de caractères

7 réponses

Discussions similaires