易语言用一串随机字符作为分隔符实现分割合并字节集/文本型数组的方法

a1a2dnp

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 置随机数种子 ()
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 文本, 文本型
    
15. .局部变量 文本数组, 文本型, , "0"
    
16. .局部变量 字节集数组, 字节集, , "3"
    
17. .局部变量 字节集, 字节集
    
18. .局部变量 字节集数组2, 字节集, , "0"
    
19. 
    
20. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
21. 文本 ＝ 合并文本数组 ({ “一二三”, “四五六”, “七八九” })
    
22. 调试输出 (文本)
    
23. 分割文本数组 (文本, 文本数组)
    
24. 调试输出 (文本数组)
    
25. 字节集数组 [1] ＝ { 1, 2, 3 }
    
26. 字节集数组 [2] ＝ { 4, 5, 6 }
    
27. 字节集数组 [3] ＝ { 7, 8, 9 }
    
28. 
    
29. 调试输出 (字节集数组)
    
30. 字节集 ＝ 合并字节集数组 (字节集数组)
    
31. 调试输出 (字节集)
    
32. 分割字节集数组 (字节集, 字节集数组2)
    
33. 调试输出 (字节集数组2)
    
34. 
    
35. .子程序 随机字符, 文本型
    
36. .局部变量 B, 文本型
    
37. .局部变量 A, 文本型
    
38. 
    
39. A ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz”
    
40. .计次循环首 (16, )
    
41.     B ＝ B ＋ 取文本中间 (A, 取随机数 (1, 取文本长度 (A)), 1)
    
42. .计次循环尾 ()
    
43. 返回 (B)
    
44. 
    
45. 
    
46. .子程序 随机字节集, 字节集
    
47. .局部变量 返回值, 字节集
    
48. .局部变量 计数, 整数型
    
49. 
    
50. 返回值 ＝ 取空白字节集 (16)
    
51. .计次循环首 (16, 计数)
    
52.     返回值 [计数] ＝ 取随机数 (0, 255)
    
53. .计次循环尾 ()
    
54. 返回 (返回值)
    
55. 
    
56. .子程序 合并文本数组, 文本型, 公开
    
57. .参数 数组, 文本型, 数组
    
58. .局部变量 随机字符, 文本型
    
59. .局部变量 计数, 整数型
    
60. .局部变量 文本, 文本型
    
61. .局部变量 成员数, 整数型
    
62. 
    
63. 随机字符 ＝ 随机字符 ()  ' 16字节随机大小写+数字字符
    
64. 文本 ＝ 随机字符  ' 前16字节为用作分割文本的字节
    
65. 成员数 ＝ 取数组成员数 (数组)
    
66. .计次循环首 (成员数, 计数)
    
67.     .如果 (成员数 ＝ 计数)
    
68.         文本 ＝ 文本 ＋ 数组 [计数]  ' 最后1成员数组不加随机分隔符
    
69.     .否则
    
70.         文本 ＝ 文本 ＋ 数组 [计数] ＋ 随机字符
    
71.     .如果结束
    
72. 
    
73. .计次循环尾 ()
    
74. 返回 (文本)
    
75. 
    
76. .子程序 分割文本数组, , 公开
    
77. .参数 文本, 文本型
    
78. .参数 数组, 文本型, 参考 数组
    
79. 
    
80. 数组 ＝ 分割文本 (取文本右边 (文本, 取文本长度 (文本) － 16), 取文本左边 (文本, 16), )
    
81. 
    
82. 
    
83. .子程序 合并字节集数组, 字节集, 公开
    
84. .参数 数组, 字节集, 数组
    
85. .局部变量 随机分隔符, 字节集
    
86. .局部变量 成员数, 整数型
    
87. .局部变量 字节集, 字节集
    
88. .局部变量 计数, 整数型
    
89. 
    
90. 随机分隔符 ＝ 随机字节集 ()
    
91. 成员数 ＝ 取数组成员数 (数组)
    
92. 字节集 ＝ 随机分隔符
    
93. .计次循环首 (成员数, 计数)
    
94.     .如果 (成员数 ＝ 计数)
    
95.         字节集 ＝ 字节集 ＋ 数组 [计数]
    
96.     .否则
    
97.         字节集 ＝ 字节集 ＋ 数组 [计数] ＋ 随机分隔符
    
98.     .如果结束
    
99. 
    
100. .计次循环尾 ()
     
101. 返回 (字节集)
     
102. 
     
103. 
     
104. .子程序 分割字节集数组, , 公开
     
105. .参数 字节集, 字节集
     
106. .参数 数组, 字节集, 数组
     
107. 
     
108. 数组 ＝ 分割字节集 (取字节集右边 (字节集, 取字节集长度 (字节集) － 16), 取字节集左边 (字节集, 16), )
     

复制代码

222

这个方法不错

520

同楼上