求大家给个usc2转到utf8格式的源码学习下

QQ协议

如题

1185384801

https://bbs.125.la/forum.php?mod ... 7%BF%2B%B1%E0%C2%EB
可参考

Bszk

&#12354；  类似这种编码？

Bking

  

编码_usc2到ansi ()
编码_Ansi到Utf8 ()

.版本 2<br /> <br /> 编码_usc2到ansi ()<br /> 编码_Ansi到Utf8 ()

精易模块的，你看一看下，ec.125.la

补充内容 (2020-3-26 22:02):
https://lanzoux.com/i9jckxi

Bking

  

子程序名	返回值类型	公开	备 注
usc2到Utf8	文本型
参数名	类 型	参考	可空	数组	备 注
欲转换的文本	文本型

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

局_文本 ＝ 子文本替换 (欲转换的文本, #换行符, “{$}”, , , 真)
如果真 (取字节集左边 (到字节集 (取文本左边 (局_文本, 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库 ()
局_返回值 ＝ 子文本替换 (局_返回值, “’”, “'”, , , 真)
局_临时 ＝ 编码_Ansi到Unicode (子文本替换 (局_返回值, “{$}”, #换行符, , , 真), )
返回 (编码_Unicode到Utf8 (局_临时))

.版本 2<br /> <br /> .子程序 usc2到Utf8, 文本型, 公开<br /> .参数 欲转换的文本, 文本型<br /> .局部变量 脚本对象, 对象<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_返回值, 文本型<br /> .局部变量 局_临时, 字节集<br /> <br /> 局_文本 ＝ 子文本替换 (欲转换的文本, #换行符, “{$}”, , , 真)<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 /> 局_临时 ＝ 编码_Ansi到Unicode (子文本替换 (局_返回值, “{$}”, #换行符, , , 真), )<br /> 返回 (编码_Unicode到Utf8 (局_临时))

补充内容 (2020-3-26 22:09):
搞错了

补充内容 (2020-3-26 22:11):
没有，看错了，。。。

大司命

应该是先转Unicode后再转utf8~