Discussion :

[Antoun]

Bonjour,

J'ai un projet Excel VBA dans lequel j'utilise le CustomUI, et j'ai besoin de produire dynamiquement des libellés encodés en XML, donc avec les guillemets remplacés par ", et tous les autres codes nécessaires. J'ai googlé et trouvé le moyen de faire des trucs bcp plus compliqués comme parser un fichier XML, mais je ne trouve rien pour simplement échapper les caractères spéciaux d'un texte. Il doit bien y avoir un truc prévu pour ça ?

Merci pour toute piste !

[Marc-L]

Bonjour,

voir du côté de la simple fonction VBA Replace …

Et si j'ai mal compris, présenter alors explicitement une source et un résultat attendu !


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Antoun]

Le Replace me permettrait de gérer un seul cas, ou bien de prévoir chacun des cas, mais je cherche quelque chose de plus standard...

En gros, disons que je cherche à faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Txt = "Il a dit : ""ça boume ?"""
Txt2 = une_fonction_ou_autre_systeme(Txt)
' Txt2 doit être encodé ainsi : 
"Il a dit : &quot ;ça boume ?&quot ;"

[Marc-L]

Là en VBA je ne vois pas mieux que cette fonction.

Avec une variable tableau contenant source et conversion (ou encore via une feuille de paramétrages),
il suffit de boucler sur chaque indice et d'effectuer le remplacement …

Maintenant il existe peut-être dans un autre langage une fonction effectuant cette conversion
(exemple du JScript pour le JSON) et si c'est interfaçable avec le VBA, …

[Invité]

Bonjour,
Regardes du côté des expressions rationnelles, je ne suis pas féru en la matière, mais tu replace tout en un seule passe!

[Marc-L]

Autre voie : ne pas échapper mais tout encoder en UTF-8 via ADODB.Stream …

[Antoun]

Bonjour,
Regardes du côté des expressions rationnelles, je ne suis pas féru en la matière, mais tu replace tout en un seule passe!

Moi je connais bien, mais c'est le même inconvénient, je dois gérer moi-même la liste des remplacements à effectuer.

Autre voie : ne pas échapper mais tout encoder en UTF-8 via ADODB.Stream …

En fait il y a même MSXML2, mais je ne comprends absolument pas comment ça marche...

[patricktoulon]

bonjour
test avec replace de VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test_avec_replace_VBA()
    Dim i As Long, txt As String
    a_remplacer = Array("ç", "é")
    remplacement = Array("ccedil;", "e")
    txt = "Il a dit : ""ça boume ?""" & vbCrLf
    txt = txt & "mais je  soupçonné qu'il me mént" & vbCrLf
    txt = txt & "ça ne mé fait pas rire "
    For i = LBound(a_remplacer) To UBound(a_remplacer)
        txt = Replace(txt, a_remplacer(i), remplacement(i))
    Next
    MsgBox txt
End Sub

test avec regular_replace (expression régulieres)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub TEST_avec_regular()
    Dim txt As String, a_remplacer(), remplacement(), valeur1 As String, valeur2 As String
    txt = "Il a dit : ""ça boume ?""" & vbCrLf
    txt = txt & "mais je  soupçonné qu'il me mént" & vbCrLf
    txt = txt & "ça ne mé fait pas rire "
    a_remplacer = Array("ç", "é")
    remplacement = Array("ccedil;", "e")
    For i = LBound(a_remplacer) To UBound(a_remplacer)
      valeur1 = a_remplacer(i): valeur2 = remplacement(i)
        txt = regular_replace(txt, valeur1, valeur2)
    Next
    MsgBox txt
End Sub
Function regular_replace(txt As String, Aremplacer As String, remplace As String)
    With CreateObject("VBScript.RegExp")
        .Global = True
        '.IgnoreCase = True
        .Pattern = Aremplacer
        regular_replace = .Replace(txt, remplace)
    End With
 
End Function

malheureusement dans ton cas on ne peut pas mettre tout les caracteres a remplacer dans le patern xcar la fonction replace de regexp remplace avec le meme caracteres on est donc obligé de bouclé sur un array

j'avais une autre solution avec régular mais je ne la trouve plus je vais chercher

[Antoun]

Merci pour vos contributions. Néanmoins, je crois que j'ai mal exprimé mon problème : si je lis bien la page Wikipédia sur les entités XML, il y a 257 remplacements à effectuer. Je ne sais même pas si cette liste est suffisante.

Je cherche à savoir s'il existe une solution standard, pas une où je dois spécifier moi-même les remplacements à effectuer.

[SfJ5Rpw8]

bonjour,

tu parle XML ... si tu regarde mieux ton lien en XML tu n'as que 5 caractères .... t'en faut-il plus ?

[Antoun]

En fait je ne sais pas trop ce qui est susceptible de bugger ou non, d'où ma recherche d'un truc standard. Mais tu as raison, je vais faire du crash-test sur des trucs utiles mais tordus comme Ç, ÿ, œ, et voir si par chance les cinq caractères "prédéfinis" suffiraient...

[patricktoulon]

si je me réfère a l'exemple que tu a donné au depart la réponse est non!

dans le cadre du remplacement d'un ou d'une serie de caracteres de a à z tu est obligé de travailler sur un array que tu aurais préalablement établi

maintenant si tu parle des caractères formant les balises c'est comme pour le html ( innerhtml/innertext) il y a des solutions
voici le fichier xml dans un msgbox sans les balises avec les expressions régulières

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test2()
Dim i As Long, Txt As String, Txt2 As String
myFile = "C:\Users\polux\Desktop\test.xml"
Open myFile For Input As #1
Do Until EOF(1)
    Line Input #1, textline
     Txt = Txt & textline
Loop
Close #1
     With CreateObject("VBScript.RegExp")
      .Global = True
      '.IgnoreCase = True
      .Pattern = "[^\w]"
      Txt2 = .Replace(Txt, vbCrLf)
    Txt2 = Replace(Txt2, vbCrLf & vbCrLf & vbCrLf, "")
    End With
   MsgBox Txt2
 
End Sub

apres il y a efectivement l'object("microsoft.xmlhttp) ou tu peut detailler dans les noeuds mais pour un replace particulier je pense qu'un array doit etre etabli quand meme


EDIT:
je viens d'esayer avec des caractères particuliers (ç,ÿ,ô)etc.... ils sont supprimés aussi

[Antoun]

@patrick : en fait j'essaie de préserver mes caractères spéciaux, pas de les supprimer.

@bbil : je viens de tester #@ÇçÿŒœ…éûÜÛ sans y croire, ils sont tous restitués correctement

Je cherchais un truc inutile, je comprends mieux pourquoi ça n'existe pas.

Je vais me faire une fonction qui empaquette les cinq Replace, et ce sera .

Merci à tous !