Office: (Office 2016) XML

Don_Quichote · 15. Dezember 2019

Hallo,

eigentlich habe ich einen passenden Code für meine Bedürfnisse zusammengestellt.
Ziel: Erstellen einer xml-Datei und einer PDF-Rechnung in einem ZIP-Archiv
Problem: Der Code ist für Text ausgelegt und ich brauche am Ende xml (version="1.0" encoding="UTF-8"). Nur die Umlaute und ß werden nicht richtig dargestellt, sonst passt alles.
Hier mein Code:
Code:

Dim strMaOrder As String
Dim ZipFile As String
Dim InputFile As String
Dim strOrderNumber As String
Dim strAdressline1 As String

strOrderNumber = rsC!bes_id

'xml schreiben
Dim fso, f, text
Const ForInput = 1, ForOutput = 2

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fspenTextFile("C:/BeispielOrdner/BeispielMaster-DSO.xml", ForInput) 'Musterdatei Öffnen

text = f.ReadAll
' Platzhaltertext ersetzen
text = Replace(text, "T01", Format(Date, "yyyymmdd")) 'SentDate
text = Replace(text, "T02", Format(Time, "hh:mm")) 'SentTime
text = Replace(text, "T04", strOrderNumber) 'OrderNumber
text = Replace(text, "T06", lngRNr) 'InvoiceNumber
text = Replace(text, "T07", "BeispielDokument.pdf") 'InvoiceFile
text = Replace(text, "T09", rsA!perabo_anzahl) 'Copies
If rs3!per_postanschrift = -1 Then
text = Replace(text, "T10", rs3!per_firma) 'AddressLine1
...
' Datei speichern
Set f = fspenTextFile("C:/BeispielOrdner/beispielDatei.xml", ForOutput, True)
f.Write (text)
f.Close

'zusammen mit dem PDF-Dokument verpacken
ZipFile = "C:/BeispielOrdner/BeispielArchiv.zip"
InputFile = "C:/BeispielOrdner/BeispielDatei.xml"
Call Zip(ZipFile, InputFile)

ZipFile = "C:/BeispielOrdner/BeispielDatei.xml"
InputFile = "C:/BeispielOrdner/BeispielDokument.pdf"
Call Zip(ZipFile, InputFile)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Den Code habe ich gekürzt. In einigen Zeilen wie der Adressline1 kommen gelegentlich Umlaute oder ß vor. Wie kann ich die in der XML-Datei richtig darstellen?

:)

markusxy · 17. Dezember 2019

Beispiele für die Verwendung von UTF-8 gibts im Forum einige.

Grundsätzlich würde ich dir raten mal die OpenTextFile Methode in der Online Dokumentation mal genauer anzusehen. Da kann man so viel ich weiß auch UTF einstellen.

Joss · 18. Dezember 2019

Hallo Don_Quichote,

vielleicht hilft dir dieser Artikel weiter.
VBA Tipp: ISO-Textdatei ins UTF8-Format konvertieren

Gruß
Josef

knobbi38 · 18. Dezember 2019

Hallo Don_Quichote,

@markusxy
mit FSO kann keine UTF8 Datei verarbeitet werden, es wird nur ASCII oder UNICODE unterstützt.

Analog wie in dem Link von Josef beschrieben, könntest du die XML-Datei mit dem ADOStream-Objekt in einen String einlesen, bearbeiten und wieder speichern.

Ulrich

markusxy · 7. Januar 2021

von knobbi38

Hallo Don_Quichote,

@markusxy
mit FSO kann keine UTF8 Datei verarbeitet werden, es wird nur ASCII oder UNICODE unterstützt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habs nicht geprüft.
Die Aussage UNICODE ist für mich aber nicht eindeutig, schließlich ist UTF-8 ja auch UNICODE oder wird in der Praxis Unicode nur auf utf-16 bezogen?

Es gibt ja in anderen Sprachräumen ja auch noch UTF-24 und UTF-32.
Besser wären in einer Hilfe also eindeutige Aussagen.

Edit: Hab nachgesehen UTF-16

Don_Quichote · 14. Januar 2020

Oha! Da hat mir mein Spam-Ordner einen Streich gespielt und die Benachrichtigung wegen Eurer Antworten abgefangen. Vielen Dank!
Gemäß markusxys Antwort bin ich hier im Forum auf die Lösung gestoßen, die ich brauchte:
https://www.ms-office-forum.net/foru...d.php?t=336827
Danke nochmal!

Gruß von
Don_Quichote

Office: (Office 2016) XML

XML

XML

XML

XML - Similar Threads - XML

MS Office 2021

Fehlermeldung XML Erweiterungspacket

nach speichern als XML-Kalkulationstabelle zu viele Nachkommastellen

Primärschlüssel/Fremdschlüssel aus 2.Tabelle automatisch einfügen

Import von XML-Dateien in Access

Meldung "öffnen sie nur anlagen von absendern denen sie vertrauen "

Eigenes Ribbon anpassen -> XML