易语言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
.如果结束
.判断循环尾 ()
返回 (文本)
.子程序 解密空间编码, 文本型, 公开
.参数 编码, 文本型
.局部变量 文本, 文本型
文本 ＝ 子文本替换 (编码, “%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
.如果结束
.判断循环尾 ()
返回 (文本)
上一篇: 骨头博客营销助手启用临时服务器
下一篇: 承接各种软件开发项目
2010/01/29 于 19:20:06
其实用对象就可以了，呵呵
2010/01/30 于 13:52:35
易语言很多相关的东西不会用,还达不到你的技术,嘿嘿