Unicode编码解码.e

Unicode编码解码.e

@woxl

.版本 2

.子程序 Unicode编码, 文本型
.参数 文本, 文本型
.参数 转换非中文, 逻辑型, 可空
.局部变量 JS, 对象, , , 0. JScript   1. VBScript

JS.创建 (“ScriptControl”, )
JS.写属性 (“Language”, “JScript”)
JS.文本方法 (“ExecuteStatement”, “function zu(v,onlyzw){var v=v.split('');var ascii='';for(var i=0;i<v.length;i++){var code=Number(v[i].charCodeAt(0));if(onlyzw||code>127){var Ascii=code.toString(16);Ascii=new String('0000').substring(Ascii.length,4)+Ascii;ascii+='\\u'+Ascii}else{ascii+=v[i]}}return ascii}”)
返回 (JS.文本方法 (“Run”, “zu”, 文本, 转换非中文))

.子程序 Unicode解码, 文本型
.参数 文本, 文本型
.局部变量 JS, 对象, , , 0. JScript   1. VBScript

JS.创建 (“ScriptControl”, )
JS.写属性 (“Language”, “JScript”)
JS.文本方法 (“ExecuteStatement”, “function uz(v){var r=v.match(/\\u[0-9a-fA-F]{4}/g);if(r==null){return''}for(var i=0;i<r.length;i++){v=v.replace(r[i],unescape(r[i].replace('\\u','%u')))}return v};”)
返回 (JS.文本方法 (“Run”, “uz”, 文本))