VBA Print #1 , äöü UTF-8

Sub gen_030() Dim i As Integer, Datei Datei = FreeFile Open "C:\Temp\030.xml" For Output As #Datei Print #Datei, "?xml version=""1.0"" encoding=""utf-8""?>" Print #Datei, "Document>" Print #Datei, "Übertrag ""Öffentlich"" />" Print #Datei, "Component Übertrag=""003_Binärwerte"" />" Print #Datei, "Document/>" Close #Datei End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Archiv

19.07.2018 17:17:51

Fennek

AW: Archiv

19.07.2018 17:24:44

R.Wichert

AW: Archiv

19.07.2018 17:30:00

R.Wichert

AW: getestet

19.07.2018 17:51:46

Fennek

AW: getestet

20.07.2018 07:41:51

R.Wichert

AW: getestet

20.07.2018 07:54:39

R.Wichert

AW: getestet

20.07.2018 08:22:50

R.Wichert

Hallo,
im Code wird UTF-8 für die xml-Datei eingestellt, nicht für das Schreiben in die Datei.
Im Archiv habe ich diese 2 Varianten gefunden:


Set fsT = CreateObject("ADODB.Stream")
fsT.Type = 2                'Stream-Typ: Text/String
fsT.Charset = "utf-8"       'Zeichensatz
fsT.Open                    'Stream öffnen
fsT.WriteText tmpStr        'Daten schreiben
fsT.SaveToFile sFilename, 2 'Datei speichern
Set fsT = Nothing
Option Private Module
Option Explicit
Declare Function WideCharToMultiByte Lib "kernel32.dll" (ByVal CodePage As Long, _
ByVal dwFlags As Long, _
ByVal lpWideCharStr As Long, _
ByVal cchWideChar As Long, _
ByVal lpMultiByteStr As Long, _
ByVal cbMultiByte As Long, _
ByVal lpDefaultChar As Long, _
ByVal lpUsedDefaultChar As Long) As  _
Long
Sub UTF8Output(Datei As String, t As String, Optional BOM As Boolean = False)
Dim tmp() As Byte, l As Long, FF As Integer
If Len(Datei) = 0 Or Len(t) = 0 Then Exit Sub
l = WideCharToMultiByte(65001, 0, _
StrPtr(t), Len(t), 0, 0, 0, 0)
Redim tmp(0 To l - 1)
WideCharToMultiByte 65001, 0, StrPtr(t), Len(t), _
VarPtr(tmp(0)), l, 0, 0
FF = FreeFile
Open Datei For Output As #FF
Close #FF
FF = FreeFile
Open Datei For Binary As #FF
Put #FF, , tmp
Close #FF
End Sub

Berichte bitte über Erfolg bzw Probleme.
mfg

Set fsT = CreateObject("ADODB.Stream") fsT.Type = 2 'Stream-Typ: Text/String fsT.Charset = "utf-8" 'Zeichensatz fsT.Open 'Stream öffnen fsT.WriteText tmpStr 'Daten schreiben fsT.SaveToFile sFilename, 2 'Datei speichern Set fsT = Nothing

Sub T_1() tmpStr = "qweüöä" & vbCrLf & "ASDLÖÄ" sFilename = "c:\temp\ADO_Test.txt" Set fsT = CreateObject("ADODB.Stream") fsT.Type = 2 'Stream-Typ: Text/String fsT.Charset = "utf-8" 'Zeichensatz fsT.Open 'Stream öffnen fsT.WriteText tmpStr 'Daten schreiben fsT.SaveToFile sFilename, 2 'Datei speichern Set fsT = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

31 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Print #1 , äöü UTF-8

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

31 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread