[数值计算] 批处理实现日文与标点符号和十六进制码互转换？

@if (0)==(0) echo off
set /p str=输入你要转换的字符串:
set /a nIndex=0
:_GetHexCode
call set tmpChr=%%str:~%nIndex%, 1%%
if "%tmpChr%" == "" echo,&goto :_end
for /f "tokens=*" %%i in ('cscript -nologo -e:jscript %~0 %tmpChr%') do set/p=0x%%i <nul
set /a nIndex+=1
goto :_GetHexCode
:_end
pause&goto :EOF
@end
WScript.echo(WScript.arguments(0).charCodeAt(0).toString(16));
复制代码

@if (0)==(0) echo off
cscript -nologo -e:jscript %0
echo,&pause&goto :EOF
@end
WScript.echo("请输入:")
var str = WScript.StdIn.ReadLine();
WScript.echo()
var stringToHex = {
    on : function (str) {
        var a = [], i = 0;
        for (; i < str.length ;) a[i] = "0x"+ str.charCodeAt(i ++).toString(16);
        return a.join(" ");
    }
};
if (str != "") {
   WScript.echo("Hex: " + stringToHex.on(str))
}
复制代码

@if (0)==(0) echo off
cscript -nologo -e:jscript %0
pause&goto :EOF
@end
WScript.echo('请输入:')
var str = WScript.StdIn.ReadLine()
var stringToHex = {
    on : function (str) {
        var a = [], i = 0;
        for (; i < str.length ;) a[i] = '0x'+("00" + str.charCodeAt(i ++).toString(16)).slice(-4);
        return "" + a.join(" ");
    },

    un : function (str) {
        return unescape(str.replace(/\s?0x/g, "%u"));
    }

};

   var s = stringToHex.on(str)
   WScript.echo('Hex: ' + s + '\r\n'+ '还原: ' + stringToHex.un(s))
   WScript.echo()
复制代码

var arr=bin2asc(iconv_toBin('ふぅ……','shift-jis')).toArray()
arr.EACH(Number.to16).EACH(String.toUpperCase).join(' ')
//得到的结果是： 82 D3 82 A3 81 63 81 63
复制代码