utf7 konvertieren

[Benedikt]

Hallo,

ich habe einen utf7 codierten String
"Entw&APw-rfe"

wie kann ich diesen zu einem ascii oder unicode string konvertieren?

ich habe es mit folgender funktion versucht, hat aber keine wirkung auf den string:

-----------------code------------
<pre>Dim boxname As String = "Entw&APw-rfe"</pre>

<pre>Dim unicodeBytes As Byte() = Encoding.Convert(System.Text.Encoding.UTF7, System.Text.Encoding.Unicode, System.Text.Encoding.UTF7.GetBytes(boxname))</pre>
<pre>unicodeChars(System.Text.Encoding.Unicode.Get CharCount(unicodeBytes, 0, unicodeBytes.Length)) As Char
System.Text.Encoding.Unicode.GetChars(unicodeBytes , 0, unicodeBytes.Length, unicodeChars, 0)
Dim unicodeString As New String(unicodeChars)</pre>
---------------------ende code-----------------------

hat jemand ne idee wies noch funktionieren könnte ?

thx bene

[Andreas Kosch]

Hallo,

hier hilft <b>System.Text.Encoding.GetEncoding</b> weiter. Die Konstante 65000 steht dabei für UTF-7.
<pre>
Dim unicodeBytes As Byte()
unicodeBytes = System.Text.Encoding.GetEncoding(65000).GetBytes(b oxname)
</pre>
Das Byte-Array kann dann über <b>System.Text.UTF8Encoding</b> und eine <b>StreamWriter</b>-Instanz in eine Datei geschrieben werden