不规则的多组合，怎样分割提取？

yuyun1888

只会写提取一行的，.版本 2
.子程序 _按钮1_被单击
.局部变量 分割, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 分割1, 文本型, , "0"
.局部变量 m, 整数型
.局部变量 分, 文本型, , "0"
.局部变量 文本, 文本型, , "0"

编辑框2.内容 ＝ “”
编辑框2.内容 ＝ “各组第一行统计” ＋ #换行符 ＋ #换行符
分 ＝ 分割文本 (编辑框1.内容, #换行符, )
分割 ＝ 分割文本 (编辑框1.内容, #换行符 ＋ #换行符, )
.计次循环首 (取数组成员数 (分), )
    m ＝ m ＋ 1
    .如果 (m ＝ 1)
        .计次循环首 (取数组成员数 (分割), n)
            分割1 ＝ 分割文本 (分割 [n], #换行符, )
            .如果 (m ＋ 1 ＞ 取数组成员数 (分割1))
            .否则
                编辑框2.内容 ＝ 编辑框2.内容 ＋ 分割1 [m ＋ 1] ＋ #换行符
            .如果结束
        .计次循环尾 ()
    .否则
        跳出循环 ()
    .如果结束
    编辑框2.内容 ＝ 编辑框2.内容 ＋ #换行符
.计次循环尾 ()
.子程序 _按钮2_被单击
'--不规则的不会写了，
.子程序 _按钮3_被单击
'--不规则的不会了


求助大侠赐教！先谢了！

dutianqi

1. .版本 2
   
2. 
   
3. 
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. .局部变量 str, 文本型, , "0"
   
7. .局部变量 i, 整数型
   
8. .局部变量 str_1, 文本型, , "0"
   
9. .局部变量 ii, 整数型
   
10. 
    
11. 编辑框2.内容 ＝ “”
    
12. str ＝ 分割文本 (编辑框1.内容, #换行符, )
    
13. .如果真 (取数组成员数 (str) ＞ 0)
    
14. .变量循环首 (1, 取数组成员数 (str), 1, i)
    
15. str_1 ＝ 分割文本 (str [i], “,”, )
    
16. .如果真 (取数组成员数 (str_1) ＞ 0)
    
17. .变量循环首 (1, 取数组成员数 (str_1), 1, ii)
    
18. 编辑框2.内容 ＝ 编辑框2.内容 ＋ str_1 [1] ＋ #换行符
    
19. .变量循环尾 ()
    
20. .如果真结束
    
21. 
    
22. .变量循环尾 ()
    
23. 
    
24. .如果真结束
    
25. 
    
26. 
    
27. .子程序 _按钮2_被单击
    
28. .局部变量 str, 文本型, , "0"
    
29. .局部变量 i, 整数型
    
30. .局部变量 str_1, 文本型, , "0"
    
31. .局部变量 ii, 整数型
    
32. .局部变量 str_2, 文本型
    
33. 
    
34. 编辑框3.内容 ＝ “”
    
35. str ＝ 分割文本 (编辑框1.内容, #换行符, )
    
36. .如果真 (取数组成员数 (str) ＞ 0)
    
37. .变量循环首 (1, 取数组成员数 (str), 1, i)
    
38. str_1 ＝ 分割文本 (str [i], “,”, )
    
39. .如果真 (取数组成员数 (str_1) ＞ 0)
    
40. .变量循环首 (1, 取数组成员数 (str_1), 1, ii)
    
41. .如果真 (ii ≠ 1 且 ii ＜ 取数组成员数 (str_1))
    
42. 编辑框3.内容 ＝ 编辑框3.内容 ＋ str_1 [ii] ＋ “,”
    
43. 
    
44. .如果真结束
    
45. 
    
46. .变量循环尾 ()
    
47. 编辑框3.内容 ＝ 编辑框3.内容 ＋ #换行符
    
48. .如果真结束
    
49. 
    
50. .变量循环尾 ()
    
51. .如果真结束
    
52. 
    
53. 
    
54. .子程序 _按钮3_被单击
    
55. .局部变量 str, 文本型, , "0"
    
56. .局部变量 i, 整数型
    
57. .局部变量 str_1, 文本型, , "0"
    
58. .局部变量 ii, 整数型
    
59. 
    
60. 编辑框4.内容 ＝ “”
    
61. 
    
62. str ＝ 分割文本 (编辑框1.内容, #换行符, )
    
63. .如果真 (取数组成员数 (str) ＞ 0)
    
64. .变量循环首 (1, 取数组成员数 (str), 1, i)
    
65. str_1 ＝ 分割文本 (str [i], “,”, )
    
66. .如果真 (取数组成员数 (str_1) ＞ 0)
    
67. .变量循环首 (1, 取数组成员数 (str_1), 1, ii)
    
68. 编辑框4.内容 ＝ 编辑框4.内容 ＋ str_1 [取数组成员数 (str_1)] ＋ #换行符
    
69. .变量循环尾 ()
    
70. .如果真结束
    
71. 
    
72. .变量循环尾 ()
    
73. .如果真结束
    
74. 
    

复制代码

一飞冲天

不规则的部分 先给他加上某些东西 或者减去某些东西 凑成规则的。。。。

dutianqi

给分吧，少于10个字不能回复！

yuyun1888

谢谢dutianqi ，我的要求是按行提取，而不是按列提取