易语言 按长度分割字节集的实现方法 相当于php的 str_split() 函数。

QAQ

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. .局部变量 结果, 字节集, , "0"
   
8. 
   
9. 按长度分割字节集 ({ 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13 }, 2, 结果)
   
10. 调试输出 (结果)
    
11. 结束 ()
    
12. 
    
13. .子程序 按长度分割字节集, , 公开
    
14. .参数 字节集数据, 字节集
    
15. .参数 分割长度, 整数型
    
16. .参数 字节集数组, 字节集, 参考 数组
    
17. .局部变量 分割数量, 整数型
    
18. .局部变量 分割计数, 整数型
    
19. .局部变量 长度计数, 整数型
    
20. .局部变量 分割数据, 字节集
    
21. .局部变量 总计数, 整数型
    
22. 
    
23. 分割数量 ＝ 取字节集长度 (字节集数据) ÷ 分割长度
    
24. .如果真 (取字节集长度 (字节集数据) ÷ 分割长度 ≠ 到整数 (取字节集长度 (字节集数据) ÷ 分割长度))
    
25.     分割数量 ＝ 分割数量 ＋ 1
    
26. .如果真结束
    
27. 重定义数组 (字节集数组, 假, 分割数量)
    
28. 
    
29. .计次循环首 (分割数量, 分割计数)
    
30.     分割数据 ＝ {  }
    
31.     .计次循环首 (分割长度, 长度计数)
    
32.         总计数 ＝ 总计数 ＋ 1
    
33.         .如果真 (总计数 ＞ 取字节集长度 (字节集数据))
    
34.             跳出循环 ()
    
35.         .如果真结束
    
36.         分割数据 ＝ 分割数据 ＋ 到字节集 (字节集数据 [总计数])
    
37.     .计次循环尾 ()
    
38.     字节集数组 [分割计数] ＝ 分割数据
    
39. .计次循环尾 ()
    

复制代码

520

呵呵 不错

66大顺

核心库里该有的没有，以后都要有。

Kuni7wa

吃瓜群众 发表于 2017-9-7 23:00
核心库里该有的没有，以后都要有。

楼上发明个支持库封装这玩意。