VBやVBAなどで文字列をUTF-8でエンコードする

ググるの面倒なので、覚書。

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

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