OWSPostDataオブジェクトのURLEncodeメソッドで文字列をエンコードするスクリプトです。
※ Microsoft Office Web Discussions Client Type Library(owsclt.dll)が必要となります。
MsgBox CreateObject("OWS.PostData").URLEncode("こんにちは")
上記コードを実行するとescape関数と同様の結果が返ってきますので、下記のようにunescape関数で元の文字列にデコードすることもできます。
Option Explicit
Const s = "こんにちは"
MsgBox CreateObject("OWS.PostData").URLEncode(s) & vbCrLf & escape(s)
MsgBox unescape(CreateObject("OWS.PostData").URLEncode(s)) 'デコード
わざわざ上記のような処理を使う場面は中々無いだろうと思いますが、頭の片隅にでも入れておけばどこかで役に立つかもしれないですね。
この記事へのコメントはありません。