schrijven speciale tekens gaat niet

[AnnevdD]

Ik wil in een Excel macro een XML-file schrijven waarin ook speciale tekens (é, ü, ñ etc) voorkomen.
Dat zou moeten kunnen met UTF-8 maar bij mij gaat dat niet op. Zie bijgaande macro in UTF8test.xlsm en het resultaat bestand test.xml.
Beide in bijlage. Het bestand test.xml wordt hier niet geaccepteerd daarom heb ik het voor het uploaden testxml.txt genoemd.
Wat doe ik niet goed?

 

[edmoor]

Het xml bestandje dat je plaatste ziet er hier prima uit:

 

[AnnevdD]

ja, in de txt versie lijkt het goed.
Maar als je er weer een xml bestand van maakt door de extensie te veranderen, dan krijg je (bijvoorbeeld in Notepad ++) te zien dat de é niet goed wordt omgezet. (zie )
Je krijgt dat ook te zien als je de macro uitvoert.
De XML parser gaat er ook op fout.

 

[Leonard55]

dag,
lukt het je met ASCII codes te werken?
bijvoorbeeld ë is: alt 137

 

[edmoor]

Voor gebruik in XML moet je die speciale tekens vervangen door de Unicode tegenhanger:

Sub schrijftest()
    Dim naam As String
    Q = """"
    naam = Vervangen("Daniëlle en Renée")
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set XML_File = FSO.CreateTextFile(ThisWorkbook.Path & "\test.xml", True) [COLOR="#008000"]'True om Unicode (UTF-8) te genereren[/COLOR]
    XML_File.WriteLine "<?xml version=" & Q & "1.0" & Q & " encoding=" & Q & "UTF-8" & Q & " standalone=" & Q & "yes" & Q & "?>"
    XML_File.WriteLine "<testinfo>"
    XML_File.WriteLine vbTab & "<Naamcode>" & naam & "</Naamcode>"
    XML_File.WriteLine "</testinfo>"
    XML_File.Close

End Sub

De functie met de naam Vervangen:


Als plaatje omdat anders de boel hier direct wordt vertaald.

De complete lijst kan je hier vinden:
https://en.wikipedia.org/wiki/List_of_XML_and_HTML_character_entity_references

 

[AnnevdD]

Hartelijk dank. Ik ga het zo doen.
Jammer dat het zo moet, maar fijn dat er een oplossing is.

 

[AnnevdD]

Het leek mooi, maar ik krijg als resultaat:
Dat was toch niet de bedoeling. Mis ik misschien nog iets?

 

[edmoor]

Dat is goed.
Open dat xml bestand maar eens in een browser.

 

[snb]

Als ik jouw txt bestand open in kladblok en oplsa als .xml besrand met codering UTF-8 ben ik klaar.

 

[AnnevdD]

De oplossing van edmoor werkt ook bij het inlezen van een XML bestand. Dit ga ik gebruiken.

Heel hartelijk dank!!!