nabezo wiki

vb6でURIエンコード

http://logic.moo.jp/data/archives/438.html

http://komet163.blog36.fc2.com/blog-entry-18.html

'==================================================
'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