XL 2013 petit problème de caractère a la création du xml

[patricktoulon]

bonjour à tous
j'ai un petit soucis que je n'arrive pas a résoudre
a la création du xml (encodé en utf-8/utf-16) le caractère "&" se transforme en "&"
donc la chaine 
 se transforme en 

quelqu'un aurait une idée ?(pour garder "
")

Sub test()
Dim DocXml, balise, enfant, oCreation
Set DocXml = CreateObject("Microsoft.XMLDOM")    'creation
    Set balise = DocXml.appendchild(DocXml.createelement("balise"))
     balise.setAttribute "groupage", "do not"
    balise.setAttribute ("id"), "provix1"
    Set oCreation = DocXml.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"" standalone=""yes""")    'creation de l'entete du process
    DocXml.InsertBefore oCreation, DocXml.ChildNodes.Item(0)    'insertion parametre process


    Set enfant = DocXml.createelement("enfant"): enfant.setAttribute "commentaire", "juste un test 
 de commentaire": enfant.setAttribute ("id"), "provix2"

    balise.appendchild (enfant)
SaveFormatDocToFileXL DocXml, ThisWorkbook.Path & "\exoamp.xml"
End Sub
'enregistrer le xml  au format utf-8 et indenté
Public Sub SaveFormatDocToFileXL(ByVal doc, ByVal FileName As String)
    Dim rdrdom As Object, StreamFormaté As Object, wtrFormatted As Object

    Set rdrdom = CreateObject("MSXML2.SAXXMLReader.6.0")
    Set StreamFormaté = CreateObject("ADODB.Stream")
    Set wtrFormatted = CreateObject("MSXML2.MXXMLWriter")

    With StreamFormaté
        .Open
        .Type = 1    'adTypeBinary
        With wtrFormatted
            .omitXMLDeclaration = False
            .standalone = True
            .byteOrderMark = True    'If not set (even to False) then
            '.encoding is ignored.
            .Encoding = "UTF-8"    'Even if .byteOrderMark = True
            'UTF-8 never gets a BOM.
            .indent = True
            .output = StreamFormaté
            With rdrdom
                Set .contentHandler = wtrFormatted
                Set .dtdHandler = wtrFormatted
                Set .errorHandler = wtrFormatted
                .putProperty "http://xml.org/sax/properties/lexical-handler", wtrFormatted
                .putProperty "http://xml.org/sax/properties/declaration-handler", wtrFormatted
                .Parse doc
            End With
        End With
        If Dir(FileName) <> "" Then Kill FileName
    
        .SaveToFile FileName
        .Close
    End With
    Set rdrdom = Nothing
    Set StreamFormaté = Nothing
    Set wtrFormatted = Nothing
End Sub

je me casse la tête depuis hier avec ça

 

[dysorthographie]

Bonjour,
je ne sais pas si ça peut être utile

 

[patricktoulon]

bonjour robert
j'ai déjà un module similaire
c'est pas le probléme de conversion
le problème c'est que l'application qui le lit ensuite n'interprète pas 
 mais bien 
c'est pour le customUI en fait pour les commentaire dans superTip
j'essaie en ce moment de changer l'utf-8 pour le iso-8x....
visiblement si l'entête de processing correspond le customui est fonctionnel

 

[RyuAutodidacte]

Hello @patricktoulon ,
(@dysorthographie )

Essaie de voir du coté des & sans échappement que tu devrais échapper … ?

 

[patricktoulon]

Hello @patricktoulon ,
(@dysorthographie )

Essaie de voir du coté des & sans échappement que tu devrais échapper … ?

???????????????????????????

 

[RyuAutodidacte]

C'est une supposition, mais lors de la conversion de ton xml en utf8, cela convertit tes
"&" en"& , donc si tu as moyen de les échapper le "&", la conversion te mettrai & et non &
Pour la quasi des language qd on échappe on met une barre oblique inversé, ce qui donnerai :
\& … et là le & serait protégé lors de la conversion en utf8

EDIT : autre ex. : sur le terminal pour les lignes de commandes (je suppose que c'est similaire sur windows),
lorsque l'on écrit un chemin contenant des espaces on met des quote en début et en fin :
'monChemin…' ce qui évite les pb et d'effectuer la ligne de commande correctement car les espaces sont compris réellement comme des espaces

 

[TooFatBoy]

Essaie de voir du coté des & sans échappement que tu devrais échapper … ?

Déjà dit.

Pour la quasi des language qd on échappe on met une barre oblique inversé, ce qui donnerai :
\& … et là le & serait protégé lors de la conversion en utf8

Déjà dit aussi.

 

[patricktoulon]

AHHHHH...
mais non cette méthode d'échappement ne peut fonctionner en XML

 

[TooFatBoy]

lorsque l'on écrit un chemin contenant des espaces

Ca n'existe pas ça, ou alors sur l'ordi d'un qui cherche les ennuis...

 

[RyuAutodidacte]

Déjà dit.



Déjà dit aussi.

Hi @TooFatBoy
où déjà dit ? car si c'est dans le module de Robert je ne l'ai pas ouvert

@patricktoulon
ça donne quoi si tu mets & à la place de &

 

[RyuAutodidacte]

Ca n'existe pas ça, ou alors sur l'ordi d'un qui cherche les ennuis...

Si ca existe sur Mac OS X (commande unix du terminal)

 

[patricktoulon]

re
si je code "&amp#13;" je me retrouve avec "
"
j'ai donner un exemple en post 1 tu n'a qu'a essayer

 

[patricktoulon]

ryu
si je pose la question c'est que déjà j'ai tourné ça dans beaucoup de sens
je pense que c'est dans la fonction qu'il faut modifier

 

[RyuAutodidacte]

j'ai donner un exemple en post 1 tu n'a qu'a essayer

il faut que je me trouve un PC et je teste

 

[TooFatBoy]

où déjà dit ? car si c'est dans le module de Robert je ne l'ai pas ouvert

C'était juste après #1, mais comme ça a été ignoré, probablement car non compris comme on peut le voir en #5, du coup j'ai supprimé.

mais non cette méthode d'échappement ne peut fonctionner en XML

T'es sûr que c'est en XML le pb ?

Autre question : t'es sûr que c'est &#13 qu'il te faut écrire ?