FC2ブログ
  1. Top » 
  2. プログラミング » 
  3. VB6・VBAで簡単にURLエンコード・デコードする方法

VB6・VBAで簡単にURLエンコード・デコードする方法

残念ながらVB6にはURLエンコード・デコードをする関数が標準では用意されてない。(.NETにはあるらしいんだけどね。。。)
1バイト文字だけだったら自分で関数を書いてもいいのだが、2バイト文字も扱わないとならないとなると、途端に書く気力が失せる。(自分だけかな?)
そんな人のために、VB6から簡単にURLエンコード・デコードする方法。


'==================================================
'UrlEncodeUtf8: 文字列をUTF-8でエンコードするFunction
'==================================================
'strSource: 元の文字列
'返り値: エンコードされた文字列
'==================================================
Public Function UrlEncodeUtf8(ByRef strSource As String) As String
Dim objSC As Object
Set objSC = CreateObject("ScriptControl")
objSC.Language = "Jscript"
UrlEncodeUtf8 = objSC.CodeObject.encodeURIComponent(strSource)
Set objSC = Nothing
End Function

'==================================================
'UrlDecodeUtf8: 文字列をUTF-8でデコードするFunction
'==================================================
'strSource: 元の文字列
'返り値: エンコードされた文字列
'==================================================
Public Function URLDecodeUTF8(strSource As String) As String
Dim objSC As Object
Set objSC = CreateObject("ScriptControl")
objSC.Language = "Jscript"
URLDecodeUTF8 = objSC.CodeObject.decodeURIComponent(strSource)
Set objSC = Nothing
End Function


これだけ。
簡単に言うと、VBからJavaScriptのencodeURIComponent/decodeURIComponent関数を呼んでやってるだけ。
たったこれだけの事なのに、ググってもなかなか出てこなかったから、同じ事でお困りの人はご参考に。
スポンサーサイト



Comment

No Title

やった!これはありがたい。パチらせていただきます。!

  • とおりすがり [#-] |
  • URL |
  • 2010 12/23 (Thu) 17:07
承認待ちコメント

このコメントは管理者の承認待ちです

  • - [#] |
  • |
  • 2011 01/07 (Fri) 14:27
承認待ちコメント

このコメントは管理者の承認待ちです

  • - [#] |
  • |
  • 2015 12/07 (Mon) 22:43
コメントフォーム
このエントリへコメントを書く
(任意)
(任意)
(任意)
(必須) HTMLタグは使用できません
(任意) ID生成と編集に使用します
(任意) 非公開コメントにする

Page Top

Trackback

Trackback URI
http://komet163.blog36.fc2.com/tb.php/18-4145b1b7 この記事にトラックバックする(FC2ブログユーザーのみ)

Page Top

プロフィール

Komet

Author:Komet
ネット界隈の色々な事に頭を突っ込んでる人。ネトゲ/プログラミング/航空機/軍事 に興味があります。
ハンドルの由来は
メッサーシュミット Me163 コメート(Messerschmitt Me163 Komet)
より。
その他にも Ratte/Anonym/Peshka/楳塞希/Verniy 等のハンドルを使用。



ネトゲ(サーバー/陣営):
 
ClickClickClick.com
(ClickJapan)
 Heroes in the Sky (ダンケルク/連合)
 Ace Online (ルナ/BCU)
 蒼天 (朱雀/魏)
 Valkyrie Sky
 鉄鬼

をプレイ中。

プログラミング:
C++
 Visual Basic 6.0
 Java
 Perl
 SPALM

航空機:
 特に第二次大戦機

軍事:
 用兵学、戦史研究その他

に興味を持っています。

リンク
フリーエリア
and We are ClickJapan!
Firefox ブラウザ無料ダウンロード
メールフォーム

名前:
メール:
件名:
本文: