|
发表于 2024-11-13 18:22:19
|
显示全部楼层
四川省宜宾市
调试输出 (编码_usc2到utf8 (“\u4f5c\u54c1\u76f8\u5173”))
放精易模块源码里编译出来用
|
编码_usc2到utf8 | 字节集 | | |
欲转换的文本 | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 脚本对象 | 对象 | | | 局_文本 | 文本型 | | | 局_返回值 | 文本型 | | |
局_文本 = 子文本替换 (欲转换的文本, #换行符, “{$}”, , , 真)局_文本 = 子文本替换 (局_文本, 字符 (10 ), “{//n//}”, , , 真) 如果真 (取字节集左边 (到字节集 (取文本左边 (局_文本, 10 )), 1 ) = { 13 })局_文本 = 到文本 (子字节集替换 (到字节集 (局_文本 ), { 13 }, { }, , 1 )) 判断 (寻找文本 (局_文本, “\u”, , 假) ≠ -1 )局_文本 = 子文本替换 (局_文本, “\u”, “%u”, , , 真)判断 (寻找文本 (局_文本, “\u25”, , 假) ≠ -1 )局_文本 = 子文本替换 (局_文本, “\u25”, “%u”, , , 真)局_文本 = 子文本替换 (局_文本, “'”, “\'”, , , 真)线程_初始化COM库 ()脚本对象. 创建 (“ScriptControl”, )脚本对象. 写属性 (“Language”, “JScript”)脚本对象. 数值方法 (“ExecuteStatement”, “function xx(){var x='” + 局_文本 + “';return unescape(x);}”)局_返回值 = 脚本对象. 文本方法 (“Run”, “xx”)返回 (W2A_CP (编码_Ansi到Unicode (局_返回值, ), #CP_UTF8 ))
|
|