---
title: "MIME till HTML?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/138029-mime-till-html"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Travoni"
published: "2005-11-21T15:52:08.000Z"
updated: "2005-11-24T16:32:30.000Z"
replies: 4
views: 493
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/138029-mime-till-html"
---

# MIME till HTML?

## #1 — Travoni, 2005-11-21T15:52Z

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

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

???

Permalänk: https://www.webforum.nu/p/138029

## #2 — Travoni, 2005-11-23T12:34Z

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

Permalänk: https://www.webforum.nu/p/1714207

## #3 — emission, 2005-11-23T20:00Z

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.

Permalänk: https://www.webforum.nu/p/1714432

## #4 — Travoni, 2005-11-24T08:17Z

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
```

Permalänk: https://www.webforum.nu/p/1714571

## #5 — emission, 2005-11-24T16:32Z

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....

Permalänk: https://www.webforum.nu/p/1714713

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/138029-mime-till-html