易语言QQ空间编码转化

发布于: 2010年01月15日骨头

2个评论

主要用于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

   .如果结束

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