Question

vb ascii 转换 字符串

{"cateSZ":20,"cate":",1-\u5973\u88c5,2-\u7537\u88c5,3-\u5c45\u5bb6,5-\u5947\u88c5,7-\u7f8e\u98df,9-\u7f8e\u5986,11-\u9884\u544a,15-9.9\u5305\u90ae,16-20\u5143\u5c01\u9876,23-\u978b\u889c,24-\u7bb1\u5305,25-\u5bb6\u7535,26-\u503c\u5f97\u4e70,28-\u503c\u5f97\u901b,29-\u54c1\u724c\u56e2,53-\u73a9\u5177,109-\u624b\u673a,110-\u7535\u8111,111-\u667a\u80fd,120-\u5065\u8eab"}

求VB把ASCII “\u5973”这转换成字符串（汉子）的代码！

Answer 1

这种是unicode 的16进制编码，既然你会在vb里面处理json，那JS应该也是会用的，下面是从某网站找来的代码，编码和解码都有,改改就能用。

var decToHex = function(str) {
    var res=[];
    for(var i=0;i < str.length;i++)
        res[i]=("00"+str.charCodeAt(i).toString(16)).slice(-4);
    return "\\u"+res.join("\\u");
}
var hexToDec = function(str) {
    str=str.replace(/\\/g,"%");
    return unescape(str);
}
var bianma=function()
{
document.getElementById('code12').value=decToHex(document.getElementById('code11').value);
}
var jiema=function()
{
document.getElementById('code22').value=hexToDec(document.getElementById('code21').value);
}

Answer 2

s = "\u5973"
Set sc = CreateObject("ScriptControl")
sc.language = "javascript"
MsgBox sc.eval("'" & s & "'")