jensgebken
Goto Top

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

Content-Key: 7981743770

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

Printed on: April 27, 2024 at 08:04 o'clock

Mitglied: 7907292512
Solution 7907292512 Jul 28, 2023 updated at 15:15:31 (UTC)
Goto Top
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 ...
Member: jensgebken
jensgebken Jul 28, 2023 updated at 15:11:37 (UTC)
Goto Top
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
Mitglied: 7907292512
7907292512 Jul 28, 2023 updated at 15:12:05 (UTC)
Goto Top
Logisch. Zum Einlesen siehe die andere Funktion im Link
Member: jensgebken
jensgebken Jul 28, 2023 at 15:12:12 (UTC)
Goto Top
sorry mein Fehler - ist ne xml Datei - also im Prinzip doch genau so
Mitglied: 7907292512
7907292512 Jul 28, 2023 updated at 15:13:28 (UTC)
Goto Top
Einfach machen steht alles oben was du brauchst 🐟. Hast nen ganzes Wochenende dafür.