vbscript UTF8エンコード，デコード

Posted 2021-05-21

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

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