易语言QQ空间编码转化

主要用于QQ空间,QQ网站一些编码的转化,其实也是一些很简单的代码,只是自己记录一下,顺便给大家分享.
以下代码需要用到 新编码转化大全 模块

.版本 2

.子程序 解密空间编码, 文本型, 公开
.参数 编码, 文本型
.局部变量 文本, 文本型

文本 ＝ 子文本替换 (编码, “%u”, , , , 真)
返回 (USC2转ANSI (文本))

.子程序 加密空间编码, 文本型, 公开
.参数 内容, 文本型
.局部变量 文本, 文本型
.局部变量 i, 整数型
.局部变量 a, 文本型
.局部变量 url, 文本型
.局部变量 字节集, 字节集

文本 ＝ 子文本替换 (内容, “%u”, , , , 真)
字节集 ＝ 到字节集 (文本)
文本 ＝ “”
i ＝ 1
.判断循环首 (i ≤ 取字节集长度 (字节集))
.如果 (字节集 [i] ＜ 128)
文本 ＝ 文本 ＋ 字符 (字节集 [i])
i ＝ i ＋ 1
.否则
url ＝ 取字节集数据 (取字节集中间 (字节集, i, 2), #文本型, )
i ＝ i ＋ 2
url ＝ “%u” ＋ ANSI转USC2 (url)
文本 ＝ 文本 ＋ url

.如果结束

.判断循环尾 ()
返回 (文本)