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

alors en ecriture ca va impec par contre en relecture l'orsque je réouvrait le projet
le "" ressortait comme des saut de ligne donc à la re sauvegarde je perdait tout repère
car les saut de ligne dans le customui c'est chr(32)+ un caractère inconnu+chr(10) donc pour le reconvertir c’était compliqué
donc je met en creation un"|" a la place des sauts de ligne je sauve avec l'ancienne fonction le projet
et quand je crée le fichier excel avec le customUI.xml final je le crée avec la fonction précédemment citée
terminé plus de problème de conversion

dysorthographie · 20 Septembre 2023

Et si tu mets %26

fanch55 · 20 Septembre 2023

Salut le forum, @patricktoulon
Après m'être cassé les dents toute l'après-midi sur les escaped et autre xmlwriter sans succès (et en testant le supertip sur Office Ribbon Editor ),
je suis tombé sur ce site

Writing XML file with VBA

I need to write a quite large, readable xml file with vba for my work, for which I store the data from several other files in an array. I can't manage to get the individual elements in the right or...

stackoverflow.com

dont j'ai pompé dans la première réponse tous les codes de Classe ( ce qui marche n'est pas à refaire ... )
et j'en suis donc arrivé à ce classeur qui semble donner une solution :

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

patricktoulon · 20 Septembre 2023

RE
Bonjour @fanch55
perso j'ai une classe que j'ai fait pour ryuautodidacte qui ressemble à ça mais pour le customUI
qui est un peu plus compliqué
mais tu a raison ces classes fonctionnent en tout cas elle en ont l'air

patricktoulon · 20 Septembre 2023

et si j'applique cette nouvelle fonction dans creatorRibbonX Allimage
et je vais certainement appliquer les modifs sur la version imageMso

fanch55 · 20 Septembre 2023

Merci Patrick pour ces explications très claires .

Pour ceux qui pensent avoir trouvé un endroit où loger un mode d'emploi ,
le nombre de lignes du supertip est dépendant de l'écran (pas de la fenêtre)

et la longueur max limité à 1024 cars ( le "" compte déjà pour 5 cars ...)
[et de toute zone de texte par ailleurs en standard tel que décrit ci-dessous ]

fanch55 · 20 Septembre 2023

Perso, je construis plutôt le supertip dans le code via le call back,
cela me permet un supertip approprié à un contexte, le retour à la ligne se faisant par un vblf:

VB:

Sub Get_Supertip(control As IRibbonControl, ByRef returnedVal)
Dim Rval As String, Line As String, I As Integer
    For I = 1 To 10: Line = Line & "----+----|": Next
    For I = 1 To 10
        If Rval = "" Then Rval = Line Else Rval = Rval & vbLf & Line
    Next
    If Len(Rval) > 1024 Then returnedVal = "Overflow, length=" & Len(Rval) Else returnedVal = Rval
End Sub

patricktoulon · 20 Septembre 2023

re
et oui mais là on est sur du dynamique, comme tu dis c'est via le callback
comme il y en aura un a tous ca fait du callback a gogo là

patricktoulon · 21 Septembre 2023

alors en ecriture ca va impec par contre en relecture l'orsque je réouvrait le projet
le "" ressortait comme des saut de ligne donc à la re sauvegarde je perdait tout repère
car les saut de ligne dans le customui c'est chr(32)+ un caractère inconnu+chr(10) donc pour le reconvertir c’était compliqué
donc je met en creation un"|" a la place des sauts de ligne je sauve avec l'ancienne fonction le projet
et quand je crée le fichier excel avec le customUI.xml final je le crée avec la fonction précédemment citée
terminé plus de problème de conversion

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

patricktoulon

XLDnaute Barbatruc

patricktoulon

dysorthographie

XLDnaute Accro

fanch55

XLDnaute Barbatruc

Writing XML file with VBA

Pièces jointes

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires