精易模块的编码_URL编码大文本编码速度慢

lwb1978 · 发表于 2018-3-16 23:09:21

先记号，以备不时之需，感谢

冷酷无心 · 发表于 2018-3-16 14:02:22

顶顶顶顶顶

一人℃ · 发表于 2018-3-14 23:52:55

要是有url解码就好了

wulala888 · 发表于 2018-3-13 13:29:13

谢谢先看看如何。

jingyi11023995 · 发表于 2018-3-11 23:00:48

chencunbo 发表于 2018-3-10 14:31
这个速度貌似还行，但是结果好像有问题。特殊符号没有编码，最后一位也不见了

修改的地方已注释

jingyi11023995 · 发表于 2018-3-11 22:59:58

chencunbo 发表于 2018-3-10 14:31
这个速度貌似还行，但是结果好像有问题。特殊符号没有编码，最后一位也不见了

网上找到的，使用时出错，所以改了一个地方。

chencunbo · 发表于 2018-3-10 14:31:08

jingyi11023995 发表于 2018-3-10 11:50
.版本 2

.子程序编码_URL解码速度快, 文本型, 公开, 这个是特殊解码速度加快

这个速度貌似还行，但是结果好像有问题。特殊符号没有编码，最后一位也不见了

jingyi11023995 · 发表于 2018-3-10 11:50:48

.版本 2

.子程序编码_URL解码速度快, 文本型, 公开, 这个是特殊解码速度加快
.参数 URL, 文本型
.参数是否UTF8, 逻辑型, 可空, 先将文本串解码为文本,再从UTF8转成GBK编码
.局部变量 i, 整数型
.局部变量 p, 整数型
.局部变量 len, 整数型
.局部变量 ret, 字节集

len ＝取文本长度 (URL)
.如果真 (len ＝ 0)
返回 (“”)
.如果真结束
ret ＝到字节集 (URL)
i ＝ 1
p ＝ 1
.判断循环首 (i ≤ len)
.判断开始 (ret ≠ 37)
      ret [p] ＝ ret
.默认
      ret [p] ＝位或 (左移 (StrToNum (ret [i ＋ 1]), 4), StrToNum (ret [i ＋ 2]))
      i ＝ i ＋ 2
.判断结束
p ＝ p ＋ 1
i ＝ i ＋ 1
.判断循环尾 ()

.如果真 (p ≠ len)
ret [len] ＝ 0  ' 原来是ret[p]
.如果真结束
.如果真 (是否UTF8)
ret ＝到字节集 (编码_utf8到gb2312 (到文本 (ret)))
.如果真结束
返回 (到文本 (ret))

.子程序 StrToNum, 字节型, , 无视大小写的
.参数 t, 字节型

.判断开始 (t ≤ 58)
返回 (t － 48)
.判断 (t ≤ 90)
返回 (t － 65 ＋ 10)
.默认
返回 (t － 97 ＋ 10)
.判断结束

jingyi11023995 · 发表于 2018-3-10 11:33:33

url解码我有，稍等

反客为主 · 发表于 2018-3-9 22:55:53

顶顶顶顶顶

		自动登录	找回密码
密码			注册

[易源码分享] 精易模块的 编码_URL编码 大文本编码速度慢

[易源码分享] 精易模块的编码_URL编码大文本编码速度慢