中文字符unicode查询vba将sponseText返回的unicode字符转换成中⽂
最近接触到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 = sponseText & ";"  ‘对这个数据进⾏转换成中⽂，这个数据的格式类似于"\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 就是转码成功后的中⽂形式

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。