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 …

[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