s = defineEncoding(DecodeBase64("5CD2IPw="), encodings.ISOLatin1)
oder
s = defineEncoding(DecodeBase64("5CD2IPw="), encodings.WindowsANSI)
funktionieren auch. Muss man mal testen, ob damit alle Umlautet richtig
konvertiert werden.
Ich würde anschließend noch in UTF8 konvertieren weil RB intern auch mit
UTF8 arbeitet.
Komplettes Beispiel:
s = "5CD2IPw="
s = DecodeBase64(s)
s = s.DefineEncoding(encodings.ISOLatin1) 'oder WindowsANSI
s = s.ConvertEncoding(encodings.UTF8)
Gruß
Markus
Am 23.11.2005 9:16 Uhr schrieb "Rudi Maier" unter <rudi dot maier at t-online
dot de>:
> am 22.11.2005 18:31 Uhr schrieb Markus Schnell unter
> markus dot schnell at schnell-media dot de:
>
>> Hallo Rudi
>>
>>
>> =?ISO-8859-1?B?5CD2IPw=?=
>>
>> s = DecodingFromISO8859MBS(DecodeBase64("5CD2IPw="))
>>
>> Ergebnis: s = "ä ö ü"
>>
>> Allerdings brauchst Du dafür das MBS-Plugin von Christian oder Du hast eine
>> andere Möglichkeit von ISO8859 zu decodieren.
>>
>
> Hallo Markus,
>
> danke für deine Hilfe!
> Allein mit RB 5.5.3 ist das Problem nicht zu lösen?
>
> Gruß
> Rudi
>
|