增加JS版编码转换Ansi到Unicode互换

zl2017

目前精易模块的命令编码_Unicode到Ansi和编码_ansi到usc2不太理想
比如 平凡  转码结果是上面两条
* “s^酫”
* “%u5E73%u51E1”
改用js后是下面的结果
* “\u5e73\u51e1”
* “平凡”
被调试易程序运行完毕
附上js版代码


.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

调试输出 (到文本 (编码_Ansi到Unicode (“平凡”, )))
调试输出 (编码_ansi到usc2 (“平凡”, , , ))
调试输出 (编码_Ansi到Unicode_JS (“平凡”))
调试输出 (编码_Unicode到Ansi_JS (“\u5e73\u51e1”))


.子程序 编码_Ansi到Unicode_JS, 文本型
.参数 待转文本, 文本型
.局部变量 script, 对象
.局部变量 ret, 文本型
.局部变量 str, 文本型

CoInitialize (0)
script.创建 (“scriptcontrol”, )
script.写属性 (“Language”, “JScript”)
str ＝ “var Unicode = function(str){return escape(str).replace(/%/g,” ＋ #引号 ＋ “\\” ＋ #引号 ＋ “).toLowerCase();}”
script.文本方法 (“Eval”, str)
ret ＝ script.文本方法 (“Run”, “Unicode”, 待转文本)
CoUninitialize ()
返回 (ret)


.子程序 编码_Unicode到Ansi_JS, 文本型
.参数 待转文本, 文本型
.局部变量 script, 对象
.局部变量 ret, 文本型
.局部变量 str, 文本型

CoInitialize (0)
script.创建 (“scriptcontrol”, )
script.写属性 (“Language”, “JScript”)
str ＝ “var unUnicode = function(str){return unescape(str.replace(/\\/g,” ＋ #引号 ＋ “%” ＋ #引号 ＋ “));}”
script.文本方法 (“Eval”, str)
ret ＝ script.文本方法 (“Run”, “unUnicode”, 待转文本)
CoUninitialize ()
返回 (ret)

项目部004

收到