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

patricktoulon · 20 Septembre 2023

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 &#13;

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

VB:

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 &#13; 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

patricktoulon · 20 Septembre 2023

re
et ne vous cassez pas la tête va
j'ai trouvé
en fait c'est tout con de chez con
mon xml est construit avec lle post processing encoding utf-8

ensuite
dans l'object xmlwriter et le xmlreader je mettait déjà le charset en utf-8
donc "" se transforme déjà en "&#13;"

sauf que par la suite l'object adobstream je lui met aussi le charset en utf-8 du coup il me reconverti le & encore une fois
conclusion
dans l'object xml writer qui me sert à parser le code je ne le formate pas en utf-f mais "iso-8859-1"
il me met les amp quand même muis que mon xml est en utf-8

mais je fait un replace des "amp" du output et je l'injecte dans l'object adobstream
et voila le tour est joué
voila maintenant mon customui j'ai la possibilité de mettre des sautS de ligne dans le supertip

VB:

Sub test2()
Dim DocXml, balise, enfant, oCreation
Set DocXml = CreateObject("Microsoft.XMLDOM")    'creation
    Set balise = DocXml.appendchild(DocXml.createelement("balise"))
   ' balise.setAttribute "azerty", "http://schemas.microsoft.com/office/2009/07/customui"
    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 &#13; de commentaire": enfant.setAttribute ("id"), "provix2"

    balise.appendchild (enfant)
fichier = ThisWorkbook.Path & "\exo.xml"
IndenterXMLCode2 DocXml, ThisWorkbook.Path & "\exoamp2.xml"
End Sub
'version 2 en memoire
'attention enleve l'instruction de pressing
Public Function IndenterXMLCode2(ByVal vDomOrString As Variant, fichier$) As String
    Dim XMLWriter As Object    ' MSXML2.MXXMLWriter

    'On Error GoTo QH
    Set XMLWriter = CreateObject("MSXML2.MXXMLWriter")
     XMLWriter.omitXMLDeclaration = True    'supprime la declaration processing
   XMLWriter.indent = True    'ajoute l'attribut indent
    'XMLWriter.byteOrderMark = False
    XMLWriter.Encoding = "ISO-8859-1"    'encoding process ne fonctionne pas
    'alors on la supprime
    With CreateObject("MSXML2.SAXXMLReader")
        Set .contentHandler = XMLWriter
        '--- keep CDATA elements
        '.putProperty "http://xml.org/sax/properties/lexical-handler", XMLWriter
        '.putProperty "http://xml.org/sax/properties/declaration-handler", XMLWriter    'ne fonctionne pas non plus
        .Parse vDomOrString
    End With
    '--- success
     tt = Replace(XMLWriter.output, "&amp;#13;", "&#13;")
    Set Adobstream = CreateObject("ADODB.Stream")
    
     'Adobstream.Charset = "utf-8"
    Adobstream.Mode = adModeReadWrite
    Adobstream.Type = 2
    Adobstream.Charset = "UTF-8"
    Adobstream.Open
    Adobstream.WriteText tt
    Adobstream.SaveToFile fichier, 2

    'essaie de faire un replace mais fonctionne pas ca supprime carrément l'instruction encoding dans l'entete
    'IndenterXMLCode = Replace(XMLWriter.output, "UTF-16", "UTF-8")
    Exit Function
QH:
End Function

dysorthographie · 20 Septembre 2023

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

patricktoulon · 20 Septembre 2023

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 &#13;
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 · 20 Septembre 2023

Hello @patricktoulon ,
(@dysorthographie

)

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

patricktoulon · 20 Septembre 2023

RyuAutodidacte à dit:
Hello @patricktoulon ,
(@dysorthographie )

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

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

RyuAutodidacte · 20 Septembre 2023

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 · 20 Septembre 2023

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

Déjà dit.

RyuAutodidacte à 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 · 20 Septembre 2023

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

TooFatBoy · 20 Septembre 2023

RyuAutodidacte à dit:
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 · 20 Septembre 2023

TooFatBoy à dit:
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 · 20 Septembre 2023

TooFatBoy à dit:
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 · 20 Septembre 2023

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

patricktoulon · 20 Septembre 2023

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 · 20 Septembre 2023

patricktoulon à dit:
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

Effectuez une recherche sur Excel Downloads...

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

patricktoulon

XLDnaute Barbatruc

patricktoulon

patricktoulon

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Pièces jointes

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums