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

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

Forumthread: UTF-8-Code in Asci umwandeln

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

UTF-8 in ASCII umwandeln in Excel mit VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)