Impossible de remplacer le caractère tiret par un autre caractère

Question

Pour expliquer un peu mon problème, je suis entrain de faire un tableau qui va prendre des informations dans un document ou j'ai copier l'HTML d'une page internet, sur ce document j'ai ceci: &lt;/span&gt; Contínua Armadilha &lt;/div&gt; on voit bien que la lettre í est inscrit correctement, puis quand je met "Contínua Armadilha" dans une variable en STRING, sa devient ceci "ContÃ-nua Armadilha". jusqu'à la pas de souci j'ai remplacer les saut de ligne, les espace début et fin de ligne pour avoir que le texte. puis je lancer un petit module ou je remplace les caractère et la j'ai donc contenu = Replace(contenu, "Ã-", "í") 'le contenu est le texte trouvé mais cela ne fonctionne pas, et je ne comprend pas pourquoi, est-ce que le caractère tiret HTML n'est pas le même que ASCII? car si j'écris moi même une phrase ou je place le caractère "Ã-" et la ca fonctionne très bien. donc je ne comprend vraiment pas haha est-ce que vous arriveriez à m'éclaircir sur le sujet? dors et déjà merci de votre temps passé sur mon problème Salutation L0ki...

LouReeD · Accepted Answer

Pouvez vous mettre en ligne un classeur avec votre valeur en cellule A1 issue de votre extraction de texte ? Merci. Voir votre fichier Excel ou une version simplifiée avec votre fichier texte où il va chercher les données, comme cela nous serions sur le même "format". @ bientôt LouReeD...

Arturo83 · Answer

Essayez ceci: contenu = Replace(contenu, Chr(195) & "-", Chr(205)) Cdlt...

Arturo83 · Answer

Parmi vos textes, où puis-je trouver un "Ã" suivi d'un tiret? Je n'en vois pas...

Arturo83 · Answer

Comme je n'ai pas le texte HTML, j'ai copié le texte en A1, pas sûr que cela reproduise le même phénomène, essayez quand même.

Function remplacer_caractere_speciaux(contenu As String) As String
    Dim Txt
    Dim Htm
    '------------------------------------------------------------------------------------------------
    '------------ remplacement des différents carractère mal écrit -----------------------------------
    '------------------------------------------------------------------------------------------------

    Txt = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$" & vbCrLf & "$&$oe$Y$Ñ$ñ"
    Txt = Txt & "$è$ê$é$É$E$•$" & Space(1) & "$ô$á$ü$„$“$ã$ç$ó$ä$ö$ß$ù$Ó$ñ$ò$ú$í$à"
    Htm = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì"
    Htm = Htm & "$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï"
    Htm = Htm & "$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$<br>;$&$œ$Ÿ$Ñ"
    Htm = Htm & "$ñ$Ã¨$Ãª$Ã©$Ã‰$Ãˆ$â—$<br>$Ã´$Ã¡$Ã¼$â€ž$â€œ$Ã£$Ã§$Ã³$Ã¤$Ã¶$ÃŸ$Ã¹$Ã“$Ã±$Ã²$Ãº$Ã-$Ã"
    Txt = Split(Txt, "$")
    Htm = Split(Htm, "$")

    For I = 0 To UBound(Txt)
        contenu = Replace(contenu, Htm(I), Txt(I), 1, Compare:=vbBinaryCompare)
    Next
    remplacer_caractere_speciaux = contenu
End Function

et en B1 la formule:

=remplacer_caractere_speciaux(A1)

17l0ki-impossible-de-remplacer-le-caractere-tiret-par-un-autre-caractere.xlsm (15.84 Ko)

Arturo83 · Answer

Il y a quelque chose qui ne va pas dans le nombre de caractères à comparer.

Il faut que nombre de Txt soit égal à celui des Htm sinon la boucle n'ira pas jusqu'au bout puisque dans le cas présent le nombre de caractères de Htm est bien supérieur à celui des Txt, donc cela génère une erreur et le programme s'arrêtera là. Il faut ajouter dans Txt autant de termes manquants.

Le code avec lequel j'ai fait les essais

Function remplacer_caractere_speciaux(contenu_attribut)
    Dim Txt
    Dim Htm
    Txt = "$Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$&$oe$Y$Ñ$ñ"
    Txt = Txt & "$è$ê$é$É$E$•$ô$á$ü$„$“$ã$ç$ó$ä$ö$ß$ù$Ó$ñ$ò$ú$à"
    NbCarTxt = Len(Txt)
    Htm = "$Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì"
    Htm = Htm & "$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï"
    Htm = Htm & "$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$<br>;$&$œ$Ÿ$Ñ"
    Htm = Htm & "$ñ$Ã¨$Ãª$Ã©$Ã‰$Ãˆ$â—$<br>$Ã´$Ã¡$Ã¼$â€ž$â€œ$Ã£$Ã§$Ã³$Ã¤$Ã¶$ÃŸ$Ã¹$Ã“$Ã±$Ã²$Ãº$Ã"
    NbCarHtm = Len(Htm)

    Txt = Split(Txt, "$")
    Htm = Split(Htm, "$")
    On Error GoTo Sortie
    For I = 0 To NbCarTxt
        contenu_attribut = Replace(contenu_attribut, Htm(I), Txt(I), 1, Compare:=vbBinaryCompare)
    Next

    Exit Function
Sortie:
    Stop
End Function

Arturo83 · Answer

J'ai très bien compris comment fonctionne la boucle, mais si le nombre de caractères à tester est différent entre Txt et Htm que ce passe -t-il? Prenons l'exemple avec NbCarTxt=157 et NbCarHtm=191, 2 case de figure suivant ce que l'on prend comme butée max. 1er cas: - on boucle avec I= de 0 à NbCarTxt soit de 0 à 157, donc quand I = 158 on sort de la boucle et les caractères HTM de 158 à 191 ne seront pas lus 2ème cas: - on boucle avec I= de 0 à NbCarHtm soit de 0 à 157, donc quand I = 158 , il n'y a plus de caractère Txt qui y corresponde, ce qui génère une erreur et fait sortir de la boucle, les caractères HTM de 158 à 191 ne seront pas lus. Dans le fichier ci-joint, j'ai mis mis tous les caractères bout à bout pour TXT et HTM (j'ai supprimé CRLF et Espace) et on voit bien que le nombre de caractères est différent. Dans tous les cas, tous les caractères ne seront pas lus. Cdlt...

LouReeD · Answer

Si la demande est que le " Ã­- " soit remplacé par " ì " alors il vous faut dans la variable htm remplacé le deuxième igrave par ce double caractère. Il faut faire surement la même chose pour le second caractère qui vous pose problème... Le fichier ainsi modifié : @ bientôt LouReeD...

LouReeD · Answer

Merci @ vous pour les remerciements ! @ bientôt LouReeD...