Txt Datei als utf-8 speichern

Hallo Gemeinschaft,

ich habe in meinem vba script eine passage, in der ich eine xml datei öffne - beschreibe und dann schliesse

'xml Ausgabe starten  
ts = Format(Now, "ddmmyyyyhhnnss")  
 Open CurrentProject.Path & "\" & ts & "test.xml" _  
         For Output As #1
            Print #1, "<?xml version=""1.0"" encoding=""UTF-8""?> "  
            Print #1, "<meldescheine>"  
...
Print #1, "</meldescheine>"  
Close #1

leider muss dieses eine uft-8 charset haben

könnt ihr mir erklären, wie ich diese datei als solche speichern kann

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 7981743770

Url: https://administrator.de/contentid/7981743770

Ausgedruckt am: 25.11.2024 um 07:11 Uhr

5 Kommentare

Neuester Kommentar

Sub WriteUTF8(file, text)
  With CreateObject("ADODB.Stream")    
  	.Type = 2
  	.Charset = "UTF-8"    
  	.Open
  	.WriteText text
  	.SaveToFile file, 2
  	.Close
  End With
End Sub

WriteUTF8 "d:\datei.xml", " ......... Inhalt ......."

VBS Suchen und Ersetzen bei UTF8 XML Dateien funktioniert nicht

https://stackoverflow.com/questions/64860/best-way-to-convert-text-files ...

sorry - mein fehler - ist eine xml datei

dann muss ich den gesamten text der txt Datei einlesen?

was im mom klappt ist, ich öffne die datei mit dem Editor und speichern sie mit gleichem Namen unter utf-8 ab

nur halt manuel