MIME till HTML?

Hur formaterar man ex. epostformatet MIME att bli "vanlig" html?

Så att:
Texten kommer=20h=E4r
Blir:
Texten kommer här.

???

Oj, detta verkar vara svårt. Är det ingen som kan det?
Kanske är felpostat?

HTML blir det nog inte, men väl en textsträng :)

Använd denna klass:

http://www.aspemporium.com/classes_src.aspx?cid=6

Kasta gärna bort all encode-kod, eftersom den är unsafe. Sedan är det bara att använda decode-metoden.

Tack, emission. Jo jag menar textsträng och inte HTML. :)

Får fel på fetmarkerad rad. Varför?
'Is' requires operands that have reference types, but this operand has the value
type 'Boolean'

 Public Function Decode(ByVal encoded As String) As String
        If encoded Is Nothing Then
            Throw New ArgumentNullException
        End If
        Dim line As String
        Dim sw As StringWriter = New StringWriter
        Dim sr As StringReader = New StringReader(encoded)
        Try
            While Not ([b](line = sr.ReadLine)[/b] Is Nothing)
                If line.EndsWith("=") Then
                    sw.Write(HexDecoder(line.Substring(0, line.Length - 1)))
                Else
                    sw.WriteLine(HexDecoder(line))
                End If
                sw.Flush()
            End While
            Return sw.ToString
        Finally
            sw.Close()
            sr.Close()
            sw = Nothing
            sr = Nothing
        End Try
    End Function

Ah, VB.NET! *ryser* ;)

Public Function Decode(ByVal encoded As String) As String
        If encoded Is Nothing Then
            Throw New ArgumentNullException
        End If
        Dim line As String
        Dim sw As StringWriter = New StringWriter
        Dim sr As StringReader = New StringReader(encoded)
        Try
            [b]line = sr.ReadLine[/b]
            While Not ([B]line Is Nothing[/B])
                If line.EndsWith("=") Then
                    sw.Write(HexDecoder(line.Substring(0, line.Length - 1)))
                Else
                    sw.WriteLine(HexDecoder(line))
                End If
                sw.Flush()
                [B]line = sr.ReadLine[/B]
            End While
            Return sw.ToString
        Finally
            sw.Close()
            sr.Close()
            sw = Nothing
            sr = Nothing
        End Try
    End Function

Kanske....