[VBScript] URIエンコード・デコードするツール

どーもボキです。

URLに全角文字が含まれるとURIエンコードされて扱いづらいことありませんか？

WikipediaのURLには全角文字が含まれますよね

全角文字が含まれるURLをコピーすると、取得される文字データは以下のように文字化けしたものになります。

https://ja.wikipedia.org/wiki/%E3%81%8A%E3%81%84%E3%81%97%E3%81%84%E7%B5%A6%E9%A3%9F

これは、全角文字や、URLに使えない文字がURIエンコードされるためです。

せっかく日本語文字が入ってわかりやすいのに、URIエンコードされた状態ではどこにリンクしているかわかりませんよね？

以下のような元の文字列が取得できたらいいのにな、と思いませんか？

https://ja.wikipedia.org/wiki/おいしい給食

カンタンです。コピーした文字列を簡単にURIデコードできるツールを用意しましたから。

サンプルプログラムのダウンロードと使い方

• ダウンロード
  
• 使い方は、実行する、だけ。

コピーした文字列をURIエンコード（or デコード）し、コピーしなおします。

今回開発したプログラムソース

<job>

'-------------------------------------------------------------------------------

' クリップボードから文字列を取得する

'-------------------------------------------------------------------------------

<script language="VBScript">

Dim s,t

s = GetClipboard

'-------------------------------------------------------------------------------

' クリップボードから文字列を取得する

'-------------------------------------------------------------------------------

Function GetClipboard

On Error Resume Next

Dim r: r = ""

Dim objWS: Set objWS = CreateObject("WScript.Shell")

Dim objFS: Set objFS = CreateObject("Scripting.FileSystemObject")

Dim fpth

fpth = objFS.GetSpecialFolder(2) & "" & objFS.GetTempName

' クリップボードの内容を一時ファイルへ

cmd = "cmd /c PowerShell Get-Clipboard -Format Text > " & fpth

objWS.Run cmd, 0, True

' 一時ファイルの処理

If objFS.FileExists(fpth) Then

r = objFS.OpenTextFile(fpth, 1).ReadAll

objFS.DeleteFile fpth, True

End If

If Right(r, 2) = vbCrLf Then r = Left(r, Len(r) - 2)

GetClipboard = r

On Error Goto 0

End Function

</script>

'-------------------------------------------------------------------------------

' JavaScriptを利用して、文字列をエンコード・デコードする

'-------------------------------------------------------------------------------

<script language="JavaScript">

// JavaScriptしか使えない関数をコールする

if (s.indexOf('%') != -1) {

t = decodeURI(s);

} else {

t = encodeURI(s);

}

</script>

'-------------------------------------------------------------------------------

' クリップボードへ文字列をコピーする

'-------------------------------------------------------------------------------

<script language="VBScript">

SetClipboard t

CreateObject("WScript.Shell").Popup Join(Array("from:" ,s ,"" ,"to:" ,t), vbLf), 5, WScript.ScriptName, vbInformation

'-------------------------------------------------------------------------------

' クリップボードへ文字列を反映する

'-------------------------------------------------------------------------------

Sub SetClipboard(iStr)

On Error Resume Next

::::Do

' 一時ファイルへコピー文字を記載

Dim objFS

Set objFS = CreateObject("Scripting.FileSystemObject")

Dim fpth

fpth = DPath_temp & objFS.GetTempName

Dim tmp

Set tmp = objFS.CreateTextFile(fpth, True)

tmp.Write iStr

tmp.Close

If Err Then MsgBox "環境依存文字が含まれるためコピーできません。", vbCritical, "SetClipboard": Exit Do

' 一時ファイルをクリップボードへ

cmd = "cmd /c clip < " & fpth

CreateObject("WScript.Shell").Run cmd, 0, True

::::Loop Until 1

' 一時ファイルを削除

objFS.DeleteFile fpth, True

On Error Goto 0

End Sub

</script>

</job>

この記事での気付き

このスクリプトはwsfファイル（コレ）を使いました。URIエンコード・デコードにはJavaScrptを使い、クリップボードとのやり取り部にはVBScriptを使っています。wsfファイルが親となり、子であるそれぞれのスクリプト言語での処理をまとめる、という構造です（コレ）。

にほんブログ村