2018年03月02日

バイナリ文字列をUTF-8でデコードするVBA関数

'==================================================
'UrlDecodeUtf8: バイナリ文字列をUTF-8でデコード
'==================================================
'strSource: 元の文字列(\xE3\x81\xE3\x92・・・)
'返り値: エンコードされた文字列
'==================================================
Public Function URLDecodeUTF8(strSource As String) As String
Dim objSC As Object

'元の文字列を、いったん%エンコード形式に変換
Dim ParcentEnc As String
ParcentEnc = Replace(strSource, "\x", "%")

Set objSC = CreateObject("ScriptControl")
objSC.Language = "Jscript"
URLDecodeUTF8 = objSC.CodeObject.decodeURIComponent(ParcentEnc)
Set objSC = Nothing

End Function
posted by 貝貝 at 13:07| Comment(0) | Internet | このブログの読者になる | 更新情報をチェックする