易语言 增强分割文本2.0 用作分割的文本可为文本型数组 (可使用多种分隔符分割字符串)

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 置随机数种子 ()
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 返回值, 文本型, , "0"
    
15. 
    
16. 
    
17. 
    
18. 分割文本2 (“1,2|3!4@5@6@7”, { “,”, “#”, “|”, “!”, “@” }, , 返回值)
    
19. 调试输出 (返回值)
    
20. 
    
21. 
    
22. 
    
23. .子程序 分割文本2, , 公开
    
24. .参数 待分割文本, 文本型
    
25. .参数 用作分割的文本数组, 文本型, 数组
    
26. .参数 要返回的子文本数目, 整数型, 可空
    
27. .参数 返回值, 文本型, 数组
    
28. .局部变量 待分割文本副本, 文本型
    
29. .局部变量 随机文本, 文本型
    
30. .局部变量 随机数据, 字节集
    
31. .局部变量 计数, 整数型
    
32. 
    
33. 待分割文本副本 ＝ 待分割文本
    
34. 随机数据 ＝ 取空白字节集 (256)
    
35. .计次循环首 (256, 计数)
    
36.     随机数据 [计数] ＝ 取随机数 (65, 90)
    
37. .计次循环尾 ()
    
38. 随机文本 ＝ 到文本 (随机数据)
    
39. .计次循环首 (取数组成员数 (用作分割的文本数组), 计数)
    
40.     待分割文本副本 ＝ 子文本替换 (待分割文本副本, 用作分割的文本数组 [计数], 随机文本, , , 真)
    
41. .计次循环尾 ()
    
42. .如果 (是否为空 (要返回的子文本数目))
    
43.     返回值 ＝ 分割文本 (待分割文本副本, 随机文本, )
    
44. .否则
    
45.     返回值 ＝ 分割文本 (待分割文本副本, 随机文本, 要返回的子文本数目)
    
46. .如果结束
    
47. 
    
48. 
    

复制代码