URLやHTMLをエンコード／デコードするサンプル(VB.NET)

URLエンコード、URLデコード、HTMLエンコード、HTMLデコードするサンプルです。
URLについている％の解読やHTMLの記号(＜＞や＆)をHTMLに影響しないように変換する時使います。
このページのサンプルソースもHTMLエンコードしています。
なぜならソースコードをそのまま載せると文字が表示されない現象が発生します。

WEBページを書いていると避けては通れないエンコード／デコードで、専用のツールが手放せません。
WEBエンコード/デコードツールはURLエンコード(GETパラメタのみ可)/URLデコード/HTMLエンコード/
HTMLデコード/文字コード表示するツールです。

このサンプルはSystem.Webを参照設定に追加してお試しください。
UrlEncode、UrlDecode、HtmlEncode、HtmlDecodeを使用しています。

Public Class Form1

    ' System.Webを参照設定に追加してお試しください
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' URLエンコードのサンプル(文字コードがUTF-8の例)
        Dim strUrl As String = "エンコード／デコード"
        strUrl = System.Web.HttpUtility.UrlEncode(strUrl, System.Text.Encoding.GetEncoding("UTF-8"))
        Debug.Print(strUrl)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' URLデコードのサンプル(文字コードがUTF-8の例)
        Dim strUrl As String = "%e3%82%a8%e3%83%b3%e3%82%b3%e3%83%bc%e3%83%89%ef%bc%8f%e3%83%87%e3%82%b3%e3%83%bc%e3%83%89"
        strUrl = System.Web.HttpUtility.UrlDecode(strUrl, System.Text.Encoding.GetEncoding("UTF-8"))
        Debug.Print(strUrl)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ' HTMLエンコードのサンプル
        Dim strHtml As String = "If str <> ""html"" Then Return"
        strHtml = System.Web.HttpUtility.HtmlEncode(strHtml)
        Debug.Print(strHtml)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ' HTMLデコードのサンプル
        Dim strHtml As String = "If str &lt;&gt; &quot;html&quot; Then Return"
        strHtml = System.Web.HttpUtility.HtmlDecode(strHtml)
        Debug.Print(strHtml)
    End Sub

End Class