|
发表于 2013-11-5 22:35:08
|
显示全部楼层
四川省广安市
.版本 2
.支持库 iconv
.子程序 编码_URL编码, 文本型, 公开
.参数 欲编码的文本, 文本型
.参数 不编码字母数字, 逻辑型, 可空, 不需要编码【字母数字.-】可以把此参数设置为真
.参数 是否UTF8, 逻辑型, 可空, 先把文本转换成UTF8编码,再编码成URL
.局部变量 结果文本, 文本型
.局部变量 字节集, 字节集
.局部变量 计次, 整数型
.局部变量 temp, 文本型
.判断开始 (是否UTF8)
字节集 = 编码转换 (到字节集 (欲编码的文本), #编码_GB2312, #编码_UTF_8, )
.默认
字节集 = 到字节集 (欲编码的文本)
.判断结束
.计次循环首 (取字节集长度 (字节集), 计次)
temp = 取十六进制文本 (字节集 [计次])
.如果真 (取文本长度 (temp) < 2)
temp = “0” + temp
.如果真结束
.如果 (不编码字母数字)
.判断开始 (字节集 [计次] > 44 且 字节集 [计次] < 58 且 字节集 [计次] ≠ 47)
' -.0-9
结果文本 = 结果文本 + 字符 (字节集 [计次])
.判断 (字节集 [计次] > 64 且 字节集 [计次] < 91) ' A-Z
结果文本 = 结果文本 + 字符 (字节集 [计次])
.判断 (字节集 [计次] > 96 且 字节集 [计次] < 123) ' a-z
结果文本 = 结果文本 + 字符 (字节集 [计次])
.默认
结果文本 = 结果文本 + “%” + temp
.判断结束
.否则
结果文本 = 结果文本 + “%” + temp
.如果结束
.计次循环尾 ()
返回 (结果文本)
|
|