URLデコード VB2005

VB Tips And Sample(HOME)(VB.NET Sample インデックス)

URLデコード VB2005
urlデコードを行う
テキストボックスに、URLエンコードされた文字列を貼り付けて、URLデコードボタンを押して、URLデコードするプログラム。
今更ながら・・・非常に単純です。
でも、アクセス解析などに無いと不便で、あるととても便利。
と言うわけで、作成しました。
WEBサイトのURLでコードを利用していましたが、いちいちブラウザで開いてデコードするよりも、こちらの方が早いし便利。
改行もばっちり。
ついでに、EXEも配布しますので、適当にお使いください。
ダウンロードファイルは[urldeco.zip]です。 VB2005で作成しています。
ソースは以下の通り。
 


'参照設定で.NET の System.Webを参照。
Imports System.Web
Imports System.Text
Imports System

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strEncode As Text.Encoding
        Dim str As String = ""

        'Shift_JIS
        'utf-8

        If Me.ComboBox1.Text <> "" Then
            strEncode = Encoding.GetEncoding(Me.ComboBox1.Text)
            str = HttpUtility.UrlDecode(Me.TextBox1.Text, strEncode)
        Else
            str = HttpUtility.UrlDecode(Me.TextBox1.Text)
        End If

        Me.TextBox1.Text = str
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Text = ""
    End Sub
End Class



VB Tips And Sample(HOME)(VB.NET Sample インデックス)