编码_usc2到ansi的bug

tangjiashiertui

发现这个问题很多时间了，还是没有修复，所以我这里提一下。

  

子程序名	返回值类型	公开	备 注
编码_usc2到ansi	文本型		将usc2转变成ansi  如 %u0031%u0032%u0033 转换后为 123 失败返回空文本
参数名	类 型	参考	可空	数组	备 注
欲转换的文本	文本型				\u %u \u25 等3种格式,如果是其它格式,请先用子文本替换成这三种的任意一种才能正常转换

变量名	类 型	静态	数组	备 注
脚本对象	对象
局_文本	文本型
局_返回值	文本型

局_文本 ＝ 子文本替换 (欲转换的文本, #换行符, “{$}”, , , 真)
局_文本 ＝ 子文本替换 (局_文本, 字符 (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”)
局_文本 ＝ 内_编码_Unicode到Ansi_对象 (到字节集 (局_文本))
局_返回值 ＝ 选择 (取文本长度 (局_返回值) ＝ 0, 局_文本, 局_返回值)
脚本对象.清除 ()
线程_取消COM库 ()
局_返回值 ＝ 子文本替换 (局_返回值, “’”, “'”, , , 真)
局_返回值 ＝ 子文本替换 (局_返回值, “{$}”, #换行符, , , 真)
局_返回值 ＝ 子文本替换 (局_返回值, “{//n//}”, 字符 (10), , , 真)
返回 (局_返回值)

.版本 2<br /> <br /> .子程序 编码_usc2到ansi, 文本型, 公开, 将usc2转变成ansi  如 %u0031%u0032%u0033 转换后为 123 失败返回空文本<br /> .参数 欲转换的文本, 文本型, , \u %u \u25 等3种格式,如果是其它格式,请先用子文本替换成这三种的任意一种才能正常转换<br /> .局部变量 脚本对象, 对象<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_返回值, 文本型<br /> <br /> 局_文本 ＝ 子文本替换 (欲转换的文本, #换行符, “{$}”, , , 真)<br /> 局_文本 ＝ 子文本替换 (局_文本, 字符 (10), “{//n//}”, , , 真)  ' 临时<br /> .如果真 (取字节集左边 (到字节集 (取文本左边 (局_文本, 10)), 1) ＝ { 13 })<br />     局_文本 ＝ 到文本 (子字节集替换 (到字节集 (局_文本), { 13 }, {  }, , 1))<br /> .如果真结束<br /> .判断开始 (寻找文本 (局_文本, “\u”, , 假) ≠ -1)<br />     局_文本 ＝ 子文本替换 (局_文本, “\u”, “%u”, , , 真)<br /> .判断 (寻找文本 (局_文本, “\u25”, , 假) ≠ -1)<br />     局_文本 ＝ 子文本替换 (局_文本, “\u25”, “%u”, , , 真)<br /> .默认<br /> <br /> .判断结束<br /> 局_文本 ＝ 子文本替换 (局_文本, “'”, “’”, , , 真)<br /> 线程_初始化COM库 ()<br /> 脚本对象.创建 (“ScriptControl”, )<br /> 脚本对象.写属性 (“Language”, “JScript”)<br /> 脚本对象.数值方法 (“ExecuteStatement”, “function xx(){var x='” ＋ 局_文本 ＋ “';return unescape(x);}”)<br /> 局_返回值 ＝ 脚本对象.文本方法 (“Run”, “xx”)<br /> 局_文本 ＝ 内_编码_Unicode到Ansi_对象 (到字节集 (局_文本))<br /> 局_返回值 ＝ 选择 (取文本长度 (局_返回值) ＝ 0, 局_文本, 局_返回值)<br /> 脚本对象.清除 ()<br /> 线程_取消COM库 ()<br /> 局_返回值 ＝ 子文本替换 (局_返回值, “’”, “'”, , , 真)<br /> 局_返回值 ＝ 子文本替换 (局_返回值, “{$}”, #换行符, , , 真)<br /> 局_返回值 ＝ 子文本替换 (局_返回值, “{//n//}”, 字符 (10), , , 真)<br /> 返回 (局_返回值)

这个代码里会先
局_文本 ＝ 子文本替换 (局_文本, “'”, “’”, , , 真)
然后最后会
局_返回值 ＝ 子文本替换 (局_返回值, “’”, “'”, , , 真)
这里有一个问题是，如果我输入的内容里本身就有中文单引号，那么也会被替换成英文的单引号的。