|
编码_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 ))