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

jr21066

用了论坛的一个api,不带模块

  

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

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

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

源文本.置文本 (参数一)
偏移 ＝ 1
判断循环首 (偏移 ＜ 源文本.取长度 ())
如果 (源文本.取文本 (偏移, 1) ≠ “%”)
结果.添加 (源文本.取文本 (偏移, 1))
高位 ＝ 十六到十_ (源文本.取文本 (偏移 ＋ 1, 1))
低位 ＝ 十六到十_ (源文本.取文本 (偏移 ＋ 2, 1))
偏移 ＝ 偏移 ＋ 2
结果.添加 (字符 (左移 (高位, 4) ＋ 低位))
偏移 ＝ 偏移 ＋ 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 /> <br /> .版本 2<br /> .支持库 commobj<br /> <br /> .子程序 编码_URL解码7, 文本型<br /> .参数 参数一, 文本型<br /> .局部变量 源文本, 快速文本对象<br /> .局部变量 结果, 快速文本对象<br /> .局部变量 偏移, 整数型<br /> .局部变量 高位, 整数型<br /> .局部变量 低位, 整数型<br /> <br /> 源文本.置文本 (参数一)<br /> 偏移 ＝ 1<br /> .判断循环首 (偏移 ＜ 源文本.取长度 ())<br />     .如果 (源文本.取文本 (偏移, 1) ≠ “%”)<br />         结果.添加 (源文本.取文本 (偏移, 1))<br />     .否则<br />         高位 ＝ 十六到十_ (源文本.取文本 (偏移 ＋ 1, 1))<br />         低位 ＝ 十六到十_ (源文本.取文本 (偏移 ＋ 2, 1))<br />         偏移 ＝ 偏移 ＋ 2<br />         结果.添加 (字符 (左移 (高位, 4) ＋ 低位))<br />     .如果结束<br />     偏移 ＝ 偏移 ＋ 1<br /> .判断循环尾 ()<br /> 返回 (结果.取文本 (, ))<br /> <br /> .子程序 十六到十_, 整数型<br /> .参数 十六进制, 文本型<br /> .局部变量 TXT, 整数型<br /> <br /> .如果真 (StrToIntExA (“0x” ＋ 十六进制, 1, TXT))<br />     返回 (TXT)<br /> .如果真结束<br /> 返回 (0)

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)

714671513

6666666666666666666666666

29858110

支持开源~！感谢分享

qq2230552100

感谢发布原创作品，一定好好学习，天天向上

duxiu

感谢分享         

jr21066

cf2006a 发表于 2018-8-29 08:23
.版本 2

.子程序 文本_取代码, 整数型, 公开, 只能处理GBK的文本,返回文本中指定位置处字符的代码。如 ...

子程序名        返回值类型        公开        备 注
十六到十        整数型                
参数名        类 型        参考        可空        数组        备 注
_参数1        文本型                                  
置入代码 ({ 139, 85, 8, 139, 18, 49, 192, 138, 2, 60, 57, 118, 2, 44, 7, 138, 98, 1, 128, 252, 57, 118, 3, 128, 236, 7, 128, 236, 48, 192, 224, 4, 8, 224, 201, 194, 4, 0 })
返回 (0)

我改了个专用的.一次处理两个字符

jr21066

cf2006a 发表于 2018-8-29 08:23
.版本 2

.子程序 文本_取代码, 整数型, 公开, 只能处理GBK的文本,返回文本中指定位置处字符的代码。如 ...

昨晚写了一个.一次处理两个字符.
易处理这么慢就是中间环节太多了.就是用汇编.也最好是一次多处理数据.来减少调用

  

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

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

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

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

置入代码 ({ 139, 85, 8, 139, 18, 49, 192, 138, 2, 60, 57, 118, 2, 44, 7, 138, 98, 1, 128, 252, 57, 118, 3, 128, 236, 7, 128, 236, 48, 192, 224, 4, 8, 224, 201, 194, 4, 0 })
返回 (0)

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

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 编码_URL解码_API, 文本型<br /> .参数 局_参数一, 文本型<br /> .局部变量 局_源文本, 快速文本对象<br /> .局部变量 局_结果, 快速文本对象<br /> .局部变量 局_偏移, 整数型<br /> .局部变量 局_长度, 整数型<br /> .局部变量 局_当前文本, 文本型<br /> <br /> 局_源文本.置文本 (局_参数一)<br /> 局_偏移 ＝ 1<br /> 局_长度 ＝ 局_源文本.取长度 ()<br /> .判断循环首 (局_偏移 ＜ 局_长度)<br />     局_当前文本 ＝ 局_源文本.取文本 (局_偏移, 1)<br />     .如果 (局_当前文本 ＝ “%”)<br />         局_结果.添加 (字符 (十六到十 (局_源文本.取文本 (局_偏移 ＋ 1, 2))))<br />         局_偏移 ＝ 局_偏移 ＋ 2<br />     .否则<br />         局_结果.添加 (局_当前文本)<br />     .如果结束<br />     局_偏移 ＝ 局_偏移 ＋ 1<br /> .判断循环尾 ()<br /> 返回 (局_结果.取文本 (, ))<br /> .版本 2<br /> <br /> .子程序 十六到十, 整数型<br /> .参数 _参数1, 文本型<br /> <br /> 置入代码 ({ 139, 85, 8, 139, 18, 49, 192, 138, 2, 60, 57, 118, 2, 44, 7, 138, 98, 1, 128, 252, 57, 118, 3, 128, 236, 7, 128, 236, 48, 192, 224, 4, 8, 224, 201, 194, 4, 0 })<br /> 返回 (0)

jr21066

cf2006a 发表于 2018-8-29 08:23
.版本 2

.子程序 文本_取代码, 整数型, 公开, 只能处理GBK的文本,返回文本中指定位置处字符的代码。如 ...

昨晚写了一个.一次处理两个字符.
易处理这么慢就是中间环节太多了.就是用汇编.也最好是一次多处理数据.来减少调用

  

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

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

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

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

置入代码 ({ 139, 85, 8, 139, 18, 49, 192, 138, 2, 60, 57, 118, 2, 44, 7, 138, 98, 1, 128, 252, 57, 118, 3, 128, 236, 7, 128, 236, 48, 192, 224, 4, 8, 224, 201, 194, 4, 0 })
返回 (0)

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

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 编码_URL解码_API, 文本型<br /> .参数 局_参数一, 文本型<br /> .局部变量 局_源文本, 快速文本对象<br /> .局部变量 局_结果, 快速文本对象<br /> .局部变量 局_偏移, 整数型<br /> .局部变量 局_长度, 整数型<br /> .局部变量 局_当前文本, 文本型<br /> <br /> 局_源文本.置文本 (局_参数一)<br /> 局_偏移 ＝ 1<br /> 局_长度 ＝ 局_源文本.取长度 ()<br /> .判断循环首 (局_偏移 ＜ 局_长度)<br />     局_当前文本 ＝ 局_源文本.取文本 (局_偏移, 1)<br />     .如果 (局_当前文本 ＝ “%”)<br />         局_结果.添加 (字符 (十六到十 (局_源文本.取文本 (局_偏移 ＋ 1, 2))))<br />         局_偏移 ＝ 局_偏移 ＋ 2<br />     .否则<br />         局_结果.添加 (局_当前文本)<br />     .如果结束<br />     局_偏移 ＝ 局_偏移 ＋ 1<br /> .判断循环尾 ()<br /> 返回 (局_结果.取文本 (, ))<br /> .版本 2<br /> <br /> .子程序 十六到十, 整数型<br /> .参数 _参数1, 文本型<br /> <br /> 置入代码 ({ 139, 85, 8, 139, 18, 49, 192, 138, 2, 60, 57, 118, 2, 44, 7, 138, 98, 1, 128, 252, 57, 118, 3, 128, 236, 7, 128, 236, 48, 192, 224, 4, 8, 224, 201, 194, 4, 0 })<br /> 返回 (0)

cf2006a

jr21066 发表于 2018-8-28 19:54
这是优化的一版.速度应该会快吧

[e=4].版本 2

.版本 2

.子程序 文本_取代码, 整数型, 公开, 只能处理GBK的文本,返回文本中指定位置处字符的代码。如果指定位置超出文本长度，返回0。
.参数 欲取字符代码的文本, 文本型
.参数 欲取其代码的字符位置, 整数型, , 不可以被省略。1为首位置，2为第2个位置，如此类推。

置入代码 ({ 139, 77, 12, 131, 249, 0, 126, 16, 59, 193, 124, 12, 139, 69, 8, 139, 0, 73, 15, 190, 4, 8, 235, 2, 51, 192, 201, 194, 8, 0 })
返回 (0)


如果每次取文本中一个字符可以用这个汇编试一试！！

1279868433

这个不错！