vba 将http.responseText返回的 unicode字符转换成中文

最新推荐文章于 2024-06-30 16:07:53 发布

lshdp

最新推荐文章于 2024-06-30 16:07:53 发布

阅读量6.3k

点赞数 2

分类专栏： vba

本文链接：https://blog.csdn.net/lshdp/article/details/104754527

版权

vba 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

最近接触到vba 中从网页返回的数据中有类似"\u97f3\u4e50\u8be6\u60c5\u9875\u5217\u8868\u5728\“这种编码，但是我想转换成中文，查了很久，才查到资料，现在分享给大家，也做个记录，再次感谢论坛中的大神，学习ing
我要处理的数据—responseText是这样得来的

    http.Open "POST", "url", False
    http.setRequestHeader "Content-Type", "text/html;charset=GB2312"
    http.Send data
    Dim responseText As String
    responseText = http.responseText & ";"   ‘对这个数据进行转换成中文，这个数据的格式类似于"\u4e50\u8be6\u60c5\”

我想要得到的数据是对上面的responseText 进行转码成中文显示，方法如下：

Function Convert(strText As String) As String
    With CreateObject("MSScriptControl.ScriptControl")
        .Language = "javascript"
        Convert = .Eval("('" & strText & "').replace(/&#\d+;/g,function(b){return String.fromCharCode(b.slice(2,b.length-1))});")
        Debug.Print Convert
    End With
End Function


'使用方法：
responseText = Convert(responseText)   ’得到的responseText 就是转码成功后的中文形式