URL解码,利用快速文本.能快一点

jr21066

这是优化的一版.速度应该会快吧

  

DLL命令名	返回值类型	公开	备 注
StrToIntExA	逻辑型
DLL库文件名:
shlwapi.dll
在DLL库中对应命令名:
StrToIntExA
参数名	类 型	传址	数组	备 注
pszString	文本型
dwFlags	整数型
piRet	整数型

子程序名	返回值类型	公开	备 注
编码_URL解码_API	文本型
参数名	类 型	参考	可空	数组	备 注
局_参数一	文本型

变量名	类 型	静态	数组	备 注
局_源文本	快速文本对象
局_结果	快速文本对象
局_偏移	整数型

局_源文本.置文本 (局_参数一)
局_偏移 ＝ 1
判断循环首 (局_偏移 ＜ 局_源文本.取长度 ())
如果真 (局_源文本.取文本 (局_偏移, 1) ＝ “%”)
局_结果.添加 (字符 (十六到十_ (局_源文本.取文本 (局_偏移 ＋ 1, 2))))
局_偏移 ＝ 局_偏移 ＋ 2
局_偏移 ＝ 局_偏移 ＋ 1
判断循环尾 ()
返回 (局_结果.取文本 (, ))

子程序名	返回值类型	公开	备 注
十六到十_	整数型
参数名	类 型	参考	可空	数组	备 注
十六进制	文本型

变量名	类 型	静态	数组	备 注
TXT	整数型

如果真 (StrToIntExA (“0x” ＋ 十六进制, 1, TXT))
返回 (TXT)
返回 (0)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> <br /> .DLL命令 StrToIntExA, 逻辑型, "shlwapi.dll", "StrToIntExA"<br />     .参数 pszString, 文本型<br />     .参数 dwFlags, 整数型<br />     .参数 piRet, 整数型, 传址<br /> .版本 2<br /> .支持库 commobj<br /> <br /> .子程序 编码_URL解码_API, 文本型<br /> .参数 局_参数一, 文本型<br /> .局部变量 局_源文本, 快速文本对象<br /> .局部变量 局_结果, 快速文本对象<br /> .局部变量 局_偏移, 整数型<br /> <br /> 局_源文本.置文本 (局_参数一)<br /> 局_偏移 ＝ 1<br /> .判断循环首 (局_偏移 ＜ 局_源文本.取长度 ())<br />     .如果真 (局_源文本.取文本 (局_偏移, 1) ＝ “%”)<br />         局_结果.添加 (字符 (十六到十_ (局_源文本.取文本 (局_偏移 ＋ 1, 2))))<br />         局_偏移 ＝ 局_偏移 ＋ 2<br />     .如果真结束<br />     局_偏移 ＝ 局_偏移 ＋ 1<br /> .判断循环尾 ()<br /> 返回 (局_结果.取文本 (, ))<br /> <br /> .子程序 十六到十_, 整数型<br /> .参数 十六进制, 文本型<br /> .局部变量 TXT, 整数型<br /> <br /> .如果真 (StrToIntExA (“0x” ＋ 十六进制, 1, TXT))<br />     返回 (TXT)<br /> .如果真结束<br /> 返回 (0)

jr21066

cf2006a 发表于 2018-8-28 17:09
不错收下啦用这个汇编会不会更快点[e=0].版本 2

.子程序 十六到十, 长整数型

汇编代码我反汇编看了.是对连续的代码处理的.所以效率上没有到最高.
改了一会.一直没有改成功.才发现原来已经忘光了还不知道..

经测试目前还是使用API会快一些.

cf2006a

不错收下啦用这个汇编会不会更快点

  

子程序名	返回值类型	公开	备 注
十六到十	长整数型
参数名	类 型	参考	可空	数组	备 注
_参数1	文本型

置入代码 ({ 81, 83, 86, 87, 51, 192, 51, 210, 51, 201, 51, 219, 139, 117, 8, 139, 54, 133, 246, 116, 76, 144, 131, 249, 16, 116, 70, 138, 30, 128, 251, 48, 114, 63, 128, 251, 57, 119, 5, 128, 235, 48, 235, 28, 128, 251, 65, 114, 48, 128, 251, 70, 119, 5, 128, 235, 55, 235, 13, 128, 251, 97, 114, 33, 128, 251, 102, 119, 28, 128, 235, 87, 131, 249, 8, 114, 10, 139, 248, 193, 239, 28, 193, 226, 4, 9, 250, 193, 224, 4, 9, 216, 65, 70, 235, 182, 144, 95, 94, 91, 89, 139, 229, 93, 194, 4, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 十六到十, 长整数型<br /> .参数 _参数1, 文本型<br /> <br /> 置入代码 ({ 81, 83, 86, 87, 51, 192, 51, 210, 51, 201, 51, 219, 139, 117, 8, 139, 54, 133, 246, 116, 76, 144, 131, 249, 16, 116, 70, 138, 30, 128, 251, 48, 114, 63, 128, 251, 57, 119, 5, 128, 235, 48, 235, 28, 128, 251, 65, 114, 48, 128, 251, 70, 119, 5, 128, 235, 55, 235, 13, 128, 251, 97, 114, 33, 128, 251, 102, 119, 28, 128, 235, 87, 131, 249, 8, 114, 10, 139, 248, 193, 239, 28, 193, 226, 4, 9, 250, 193, 224, 4, 9, 216, 65, 70, 235, 182, 144, 95, 94, 91, 89, 139, 229, 93, 194, 4, 0 })<br /> 返回 (0)

ado11457

只有解 没有编吗？

ado11457

学习了！！！！！！！！！！！

jr21066

う网淅乄 发表于 2018-8-28 14:22
URL-8呢  这个用的多

加上了.也希望模块能收下.发这里了
https://bbs.125.la/thread-14224167-1-1.html

jr21066

う网淅乄 发表于 2018-8-28 14:22
URL-8呢  这个用的多

这个我看功能是单独的.可以自己判断加.或自己加也行的.
等没有改进 了再一齐上传个

  

如果真 (是否UTF8)
目标 ＝ 编码_utf8到gb2312 (目标)

.版本 2<br /> <br /> .如果真 (是否UTF8)<br />     目标 ＝ 编码_utf8到gb2312 (目标)

jr21066

う网淅乄 发表于 2018-8-28 14:22
URL-8呢  这个用的多

这个我看模-块里是单独的.可以自己判断加.或自己加也行的.

  

如果真 (是否UTF8)
目标 ＝ 编码_utf8到gb2312 (目标)

.版本 2<br /> <br /> .如果真 (是否UTF8)<br />     目标 ＝ 编码_utf8到gb2312 (目标)

jr21066

う网淅乄 发表于 2018-8-28 14:22
URL-8呢  这个用的多

这个我看模块里是单独的.可以自己判断加.或自己加也行的.

  

如果真 (是否UTF8)
目标 ＝ 编码_utf8到gb2312 (目标)

.版本 2<br /> <br /> .如果真 (是否UTF8)<br />     目标 ＝ 编码_utf8到gb2312 (目标)

う网淅乄

URL-8呢  这个用的多