精易模块的3个函数修改代码

无风不起浪

精易模块修改代码.zip (3.19 KB, 下载次数: 12)

2016-1-16 23:49 上传

点击文件名下载附件
函数 编码_BASE64解码_极速  修改自 编码_BASE64解码  原函数用时672秒 极速版用时2秒
函数 去除右边空字节集  这个小小的修改了下 上面这个函数附带的
函数 去文本文件重复行  这个是去除文件重复行的 这个上万行的也快 网上找到的代码改的

fire228

无风不起浪

萧阳天 发表于 2016-1-17 00:02
去文本文件重复行 引用 快速字节集对象  库，不利于封闭进模块

这个倒是 不过看在速度快 精易模块目前的那个有问题 我还有一个 不过速度不是很快 所以没发

oldlee

萧阳天 发表于 2016-1-17 00:01
网上找到一段API版源码

其实都好，API高效，源码里的有助于理解base64编码过程。

oldlee

谢谢~

萧阳天

去文本文件重复行 引用 快速字节集对象  库，不利于封闭进模块

萧阳天

网上找到一段API版源码

1. .版本 2
   
2. 
   
3. .子程序 Base64编码, 字节集, 公开
   
4. .参数 待编码数据, 字节集
   
5. .局部变量 整数_数据长度, 整数型
   
6. .局部变量 整数_编码长度, 整数型
   
7. .局部变量 字节_数据缓存, 字节集
   
8. 
   
9. 整数_数据长度 ＝ 取字节集长度 (待编码数据)
   
10. .如果真 (CryptBinaryToStringA (待编码数据, 整数_数据长度, 1, 字节_数据缓存, 整数_编码长度) ＝ 假)
    
11.     返回 ({  })
    
12. .如果真结束
    
13. 字节_数据缓存 ＝ 取空白字节集 (整数_编码长度)
    
14. CryptBinaryToStringA (待编码数据, 整数_数据长度, 1, 字节_数据缓存, 整数_编码长度)
    
15. 返回 (字节_数据缓存)
    
16. 
    
17. .子程序 Base64解码, 字节集, 公开
    
18. .参数 待解码数据, 字节集
    
19. .局部变量 整数_数据长度, 整数型
    
20. .局部变量 整数_解码长度, 整数型
    
21. .局部变量 字节_数据缓存, 字节集
    
22. 
    
23. 整数_数据长度 ＝ 取字节集长度 (待解码数据)
    
24. .如果真 (CryptStringToBinaryA (待解码数据, 整数_数据长度, 1, 字节_数据缓存, 整数_解码长度, 0, 0) ＝ 假)
    
25.     返回 ({  })
    
26. .如果真结束
    
27. 字节_数据缓存 ＝ 取空白字节集 (整数_解码长度)
    
28. CryptStringToBinaryA (待解码数据, 整数_数据长度, 1, 字节_数据缓存, 整数_解码长度, 0, 0)
    
29. 返回 (字节_数据缓存)
    

复制代码