整理优化编码_URL解码功能

jr21066

整理优化编码_URL解码功能

  

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

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

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

局_源文本.置文本 (局_参数一)
局_偏移 ＝ 1
判断循环首 (局_偏移 ＜ 局_源文本.取长度 ())
如果 (局_源文本.取文本 (局_偏移, 1) ≠ “%”)
局_结果.添加 (局_源文本.取文本 (局_偏移, 1))
局_高位 ＝ 十六到十_ (局_源文本.取文本 (局_偏移 ＋ 1, 1))
局_低位 ＝ 十六到十_ (局_源文本.取文本 (局_偏移 ＋ 2, 1))
局_偏移 ＝ 局_偏移 ＋ 2
局_结果.添加 (字符 (左移 (局_高位, 4) ＋ 局_低位))
局_偏移 ＝ 局_偏移 ＋ 1
判断循环尾 ()
如果真 (局_是否UTF8)
返回 (编码_utf8到gb2312 (局_结果.取文本 (, )))
返回 (局_结果.取文本 (, ))

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

变量名	类 型	静态	数组	备 注
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 /> .参数 局_是否UTF8, 逻辑型<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 /> .如果真 (局_是否UTF8)<br />     返回 (编码_utf8到gb2312 (局_结果.取文本 (, )))<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)

杨师傅团队

突突突突突突拖拖拖拖拖拖拖拖拖拖拖拖拖拖拖拖不

广告推广秦冷烨

大神啊，深度好文，不服不行

项目部002

感谢分享，但不符合精易模块一贯风格（核心库+微软官方DLL  API），抱歉，暂不采纳，如有更好的建议或代码随时可以发帖或找客服或找我收录至精易模块。

蜗牛人生

试试这个吧.我感觉速度还行吧

1. .版本 2
   
2. 
   
3. .子程序 编码_URL解码, 文本型, 公开
   
4. .参数 URL, 文本型
   
5. .局部变量 i, 整数型
   
6. .局部变量 长度, 整数型
   
7. .局部变量 缓冲区, 字节集
   
8. .局部变量 H, 整数型
   
9. .局部变量 L, 整数型
   
10. .局部变量 代码, 字节型
    
11. .局部变量 索引, 整数型
    
12. 
    
13. 长度 ＝ 取文本长度 (URL)
    
14. 缓冲区 ＝ 取空白字节集 (长度)
    
15. i ＝ 1
    
16. .判断循环首 (i ≤ 长度)
    
17.     索引 ＝ 索引 ＋ 1
    
18.     代码 ＝ 取代码 (URL, i)
    
19.     .如果真 (代码 ≠ 37)
    
20.         缓冲区 [索引] ＝ 代码
    
21.         i ＝ i ＋ 1
    
22.         到循环尾 ()
    
23.     .如果真结束
    
24.     i ＝ i ＋ 1
    
25.     代码 ＝ 取代码 (URL, i)
    
26.     .判断开始 (代码 ≥ 48 且 代码 ≤ 57)  ' 0~9
    
27.         H ＝ 代码 － 48  ' 0~9
    
28.     .判断 (代码 ≥ 65 且 代码 ≤ 70)  ' A-F
    
29.         H ＝ 代码 － 55  ' 10~15
    
30.     .判断 (代码 ≥ 97 且 代码 ≤ 102)  ' a-f
    
31.         H ＝ 代码 － 87  ' 10~15
    
32.     .默认
    
33. 
    
34.     .判断结束
    
35. 
    
36.     i ＝ i ＋ 1
    
37.     代码 ＝ 取代码 (URL, i)
    
38.     .判断开始 (代码 ≥ 48 且 代码 ≤ 57)  ' 0~9
    
39.         L ＝ 代码 － 48  ' 0~9
    
40.     .判断 (代码 ≥ 65 且 代码 ≤ 70)  ' A-F
    
41.         L ＝ 代码 － 55  ' 10~15
    
42.     .判断 (代码 ≥ 97 且 代码 ≤ 102)  ' a-f
    
43.         L ＝ 代码 － 87  ' 10~15
    
44.     .默认
    
45. 
    
46.     .判断结束
    
47.     缓冲区 [索引] ＝ H × 16 ＋ L
    
48.     i ＝ i ＋ 1
    
49. .判断循环尾 ()
    
50. 返回 (到文本 (缓冲区))
    

复制代码

cf2006a

其实取出文本中一个字符，可以直接写个汇编代码来实现不用快文浪费，汇编取单字符，就几句搞定

cf2006a

其实取出文本中一个字符，可以直接写个汇编代码来实现不用快文浪费，汇编取单字符，就几句搞定

cf2006a

其实取出文本中一个字符，可以直接写个汇编代码来实现不用快文浪费，汇编取单字符，就几句搞定

shituo

回家在好好写写代码吧

shituo

cf2006a 发表于 2018-8-28 17:26
[e=0].版本 2

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

.版本 2

置入代码 ({ 81, 82, 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, 139, 93, 12, 137, 3, 137, 83, 4, 95, 94, 91, 90, 89 })
返回 (长整数值)

.子程序 十六到十2, , ,  汇编版十六到十 支持有符号，返回整数型 如果返回 长整数则不支持 有符号
.参数 欲转换的文本, 文本型

' 置入代码 ({ 86, 51, 210, 51, 192, 139, 117, 8, 139, 54, 133, 246, 116, 39, 185, 4, 0, 0, 0, 51, 219, 138, 30, 132, 219, 116, 26, 128, 251, 57, 119, 5, 128, 235, 48, 235, 6, 128, 203, 32, 128, 235, 87, 15, 165, 194, 211, 224, 3, 195, 70, 235, 224, 94, 139, 229, 93, 194, 4, 0 })
' 返回 (0)