Une fonction pour échapper les caractères spéciaux en XML ?

Version imprimable

09/10/2015, 14h59
Antoun

Une fonction pour échapper les caractères spéciaux en XML ?

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 !
09/10/2015, 15h23
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
09/10/2015, 15h30
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:

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 ;"
09/10/2015, 15h38
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, …
09/10/2015, 16h34
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!
09/10/2015, 17h29
Marc-L

Autre voie : ne pas échapper mais tout encoder en UTF-8 via ADODB.Stream …
09/10/2015, 17h37
Antoun

Citation:

Envoyé par rdurupt

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.

Citation:

Envoyé par Marc-L

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...

heu

bonjour
test avec replace de VBA

Code:

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:

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

09/10/2015, 18h15
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.
09/10/2015, 18h23
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 ?
09/10/2015, 18h39
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...

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:

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

09/10/2015, 19h04
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 8O

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 :resolu:.

Merci à tous !