NonSoft

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


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

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

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

C#.NET版はこちらです。
URLやHTMLをエンコード/デコードするサンプル(C#.NET)

★フォームモジュール(Form1.vb)
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