fra iso-8859-1 til rigtig text ;)

Prøv med:

        Private Shared Function QPDecode(s As String) As Byte()
            Dim b As Byte() = New Byte(3 * s.Length){}
            Dim six As Integer = 0
            Dim bix As Integer = 0
            While six < s.Length
                If s(six) = "="C Then
                    b(bix) = CByte(Integer.Parse(s.Substring(six + 1, 2), NumberStyles.HexNumber))
                    six += 3
                    bix += 1
                Else
                    b(bix) = AscW(s(six))
                    six += 1
                    bix += 1
                End If
            End While
            Array.Resize(b, bix)
            Return b
        End Function
        Private Shared ReadOnly re As New Regex("(=?)([A-Za-z0-9-]+)(\?[Qq]\?)([A-Za-z0-9=_.]*)(\?=)", RegexOptions.Compiled)
        Public Shared Function MailHeaderDecode(s As String) As String
            Dim m As Match = re.Match(s)
            If m.Success Then
                Return Encoding.GetEncoding(m.Groups(2).Value).GetString(QPDecode(m.Groups(4).Value))
            Else
                Return s
            End If
        End Function

Det kan ihvertfald klare dit eksempel.

Muligvis skal regex justeres etc. for at kunne klare alle tilfælde.

mange tak

ligger du ikke et svar ;)

kommer her

så mangler du bare at acceptere svaret