64ビット版OfficeでURLエンコード処理ができない？に対する返信3

一応、最終回です。
前々回では既存手法のまとめを、前回はその改変を試みました。
今回はさらに一歩進んで、ワンライナーに挑戦してみます。

ここまで、64bit 版 Office ユーザーは URL エンコードのために JScript スクリプトエンジンをいかに叩けばよいか、という方向で何となくお送りしてきました。しかし、おそらくこの方向性の延長線上には、必ず浮かぶであろう疑問が待ち構えています。

URL エンコードを提供しているライブラリって、JScript だけじゃないし、Windows のスクリプトって、WSH だけじゃないよね？

ですよねー。
というわけで、そろそろ .NET Framework と Windows PowerShell に行きましょうか。

今回のお題は、64bit 版 Office (今のところ Office 2010 のみ) が前提です。ということは、かなりの確率で .NET Framework と Windows PowerShell を使える環境であることが期待できます。
Microsoft Office 2010 のシステム要件を見ると Windows XP SP3 以降となっていますが、Win XP には 32bit のみとの但し書きが付いていますから、64bit に関しては実質 Vista 以降ということになります。Vista だと PowerShell が入っていない環境もあるかもしれませんが、Windows 7 になるともう OS 標準搭載ですから、使用に当たっての問題は無くなります。
とりあえず、今回は PowerShell が使える環境を前提として、話を進めます。

というわけで、コードです。

Option Explicit

Public Sub Sample()
  MsgBox EncodeURLx64("東京都千代田区")
End Sub

Public Function EncodeURLx64(ByRef str As String) As String
    Dim cmd As String

    cmd = "powershell.exe -Command ""[Uri]::EscapeUriString('" & str & "')"""
    EncodeURLx64 = CreateObject("WScript.Shell").Exec(cmd).StdOut.ReadLine
End Function

PowerShell 経由で .NET Framework Uri クラスの Uri.EscapeUriString メソッドを呼んでいます。[System.Web.HttpUtility]::UrlEncode とかでもいいかもしれません。私は PowerShell も .NET もよく知らないので、この辺 適当です。

見てお分かりのように、可読性のためコマンド文字列を変数に外出ししているので数行ありますが、実行は Exec 一発なのでワンライナー可です。

64bit Office を所有していないため、検証は VBS でやります。
以下、VBS 用の検証コードとその結果です。

MsgBox EncodeURLx64("東京都千代田区")

Function EncodeURLx64(str)
    Dim cmd

    cmd = "powershell.exe -Command ""[Uri]::EscapeUriString('" & str & "')"""
    EncodeURLx64 = CreateObject("WScript.Shell").Exec(cmd).StdOut.ReadLine
End Function

残念ながら、PowerShell のコンソール画面が一瞬表示されます。PowerShell 2.0 には WindowStyle 引数が追加されたのですが、Hidden を指定しても一瞬は見えてしまうようです (ので、指定を外しました)。あと大雑把な体感ですが、PowerShell～.NET Framework の呼び出しは WSH～JScript よりも明らかに遅く感じました。
もちろん利点もあります。VBA から .NET Framework の豊富な機能に簡易的にアクセスできること、そして PowerShell がコマンド文字列を受け取れるので スクリプトファイルを出力しなくても済む点などは、嬉しい特徴だと思います。

お約束ですが、コードはあくまで実験用です。エラーハンドリングや、引用符のエスケープなど、プロダクトなら当然必要な処理を割愛しておりますので、ご注意ください。

というわけで、自分が持ってもいない 64bit 版 Office のためのネタを、三回に渡ってお送りしてしまいましたが、いかがでしたでしょうか。
他にもいろいろなアプローチがあると思います。自分の用途に合わせた工夫をしたら、ぜひあなたも URL エンコード部門にエントリしてみてください！