UTF-8-Code in Asci umwandeln

Hallo Forum,
ich versuche, in Excel eine externe File mit Hilfe von VBA zu verarbeiten. Teilweise enthält diese File jedoch UTF-8-Daten; z. B.:

=48=61=6E=73=61=73=74=72=2E=20=31=39=0A=38=30=36=38=36=20=4D=C3=BC=6E=63=68=65=6E

Übersetzt sollte dabei folgendes herauskommen:
Hansastr. 19 80686 München
Wobei zwischen der Hausnummer und der PLZ ein CRLF (X'0A') vorhanden ist.
Es ist kein Problem für mich, die UTF8-Zeichenkette zu erkennen. Mein Problem ist nur, wie mache ich daraus einen ASCII-Text. Ich habe auch erkannt, dass das "="-Zeichen zur Trennung der einzelnen UTF-8-Werte benutzt wird. Die würde ich vorher mit der Replace-Funktion löschen.
Weder im Forum noch im Internet habe ich ein brauchbares und verständliches Beispiel gefunden.
Für ein Beispiel wäre ich sehr dankbar.
Grüße aus dem Schwabenland
Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
UTF-8 ist multibyte, dat heist ein Zeichen kann 1 - 4 byte beanspruchen, in deinem Fall ist das ü durch die Bytes "=C3=BC" beschrieben.
Die Wandlung kann durch die Api "MultiByteToWideChar" oder durch ein ADODB.Stream erfolgen.
Hier mal api

Declare Function MultiByteToWideChar Lib "KERNEL32.DLL" _
( _
ByVal CodePage As Long, _
ByVal dwFlags As Long, _
ByVal lpMultiByteStr As Long, _
ByVal cchMultiByte As Long, _
ByVal lpWideCharStr As Long, _
ByVal cchWideChar As Long _
) As Long
Enum CPs
CP_ACP = 0              ' default to ANSI code page
CP_OEMCP = 1            ' default to OEM  code page
CP_MACCP = 2            ' default to MAC  code page
CP_THREAD_ACP = 3       ' current thread's ANSI code page
CP_SYMBOL = 42          ' SYMBOL translations
CP_UTF7 = 65000         ' UTF-7 translation
CP_UTF8 = 65001         ' UTF-8 translation
End Enum
Function MultiByteToWide(ByRef s As String, Optional ByVal cp As Long = 65001) As String
Dim l As Long
Dim b() As Byte
If Right(s, 1)  Chr(0) Then s = s + Chr(0)
b() = s
l = MultiByteToWideChar(cp, 0, VarPtr(b(0)), UBound(b()) + 1, 0, 0)
If l Then
ReDim aWide(1 To l * 2) As Byte
l = MultiByteToWideChar(cp, 0, VarPtr(b(0)), UBound(b()), VarPtr(aWide(1)), l * 2)
MultiByteToWide = aWide()
End If
End Function
Sub ZerlegMalDeinBsp
Dim sf() As String
Dim b() As Byte
Dim i As Long
sf() = Split(Mid("=48=61=6E=73=61=73=74=72=2E=20=31=39=0A=38=30=36=38=36=20=4D=C3=BC=6E=63= _
68=65=6E", 2), "=")
ReDim b(UBound(sf))
For i = 0 To UBound(sf())
b(i) = CByte("&H" & sf(i))
Next
Debug.Print MultiByteToWide((b()))
End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

89 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UTF-8-Code in Asci umwandeln

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

89 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread