Created
July 29, 2011 09:32
-
-
Save honda0510/1113516 to your computer and use it in GitHub Desktop.
VBAでURLエンコード
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Function UrlEncodeUtf8(str As String) As String | |
Dim script As Object | |
Set script = CreateObject("ScriptControl") | |
script.Language = "Jscript" | |
UrlEncodeUtf8 = script.CodeObject.encodeURIComponent(str) | |
End Function |
あ~もうぜんぜんついていけません。
YU-TANGさんすごいっすね。
お蔭様で、ここでやり取っているうちに、64bit 環境でURLエンコードする別の方法を思いついたので、暇になったら書きます。
(しかし検証ができんな…)
マジッすか。ぜひぜひ。
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
はい。記事末尾に書いてある通り、自分でタイプライブラリ作らないといけないです。
タイプライブラリはふつう MKTYPLIB.EXE で .odl から作りますが、Visual Studio (というか、Visual C++) 持ってないと、このユーティリティは無かったような(元記事執筆者さんの環境は VS 6.0 と思われる。最近の VS には MKTYPLIB.EXE 付いてない模様)。
なので、持ってない人は、誰かが作った tlb を DL して使うことになります。
ま、でも ScriptControl を使えば済む 32bit 版ユーザーにとっては、今のところ関係ない話ですけどね。