|
发表于 2012-4-2 20:19:22
|
显示全部楼层
江西省赣州市
[e].版本 2
.子程序 URL解码, 文本型, 公开, 将URL文本进行解码(返回解码后的文本)
.参数 URL, 文本型, , 欲解码的文本
.局部变量 循环容器, 整数型
.局部变量 Len, 整数型
.局部变量 HEX, 文本型
.局部变量 目标, 文本型
.局部变量 H, 整数型
.局部变量 L, 整数型
Len = 取文本长度 (URL)
循环容器 = 1
HEX = “0123456789ABCDEF”
.判断循环首 (循环容器 ≤ Len)
.判断开始 (取文本中间 (URL, 循环容器, 1) ≠ “%”)
目标 = 目标 + 取文本中间 (URL, 循环容器, 1)
.默认
循环容器 = 循环容器 + 1
H = 寻找文本 (HEX, 到大写 (取文本中间 (URL, 循环容器, 1)), , 假) - 1
循环容器 = 循环容器 + 1
L = 寻找文本 (HEX, 到大写 (取文本中间 (URL, 循环容器, 1)), , 假) - 1
目标 = 目标 + 字符 (H × 16 + L)
.判断结束
循环容器 = 循环容器 + 1
.判断循环尾 ()
返回 (目标)
[/e] |
|