仍然是文本分隔问题，连续数值分割，分组，取长度

DDSGXQ

连续数值分割，分组，取长度。上图。
数据分割.e (3.52 KB, 下载次数: 12)

2018-5-17 09:16 上传

点击文件名下载附件


补充内容 (2018-5-17 09:18):
看看怎么分割成图里那样，谢谢

shandmail

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 索引
   
6. .局部变量 计次
   
7. .局部变量 开始索引, 文本型
   
8. .局部变量 上次索引, 文本型
   
9. .局部变量 本次索引, 文本型
   
10. .局部变量 本次文本, 文本型
    
11. .局部变量 临时文本, 文本型
    
12. .局部变量 文本数组, 文本型, , "0"
    
13. 
    
14. 超级列表框2.全部删除 ()
    
15. 开始索引 ＝ 超级列表框1.取标题 (0, 0)
    
16. .计次循环首 (超级列表框1.取表项数 (), 计次)
    
17.     本次索引 ＝ 超级列表框1.取标题 (计次 － 1, 0)
    
18.     .如果 (到整数 (本次索引) － 到整数 (上次索引) ＝ 1)
    
19.         .如果 (临时文本 ＝ “”)
    
20.             临时文本 ＝ 超级列表框1.取标题 (计次 － 1, 1)
    
21.         .否则
    
22.             临时文本 ＝ 临时文本 ＋ “,” ＋ 超级列表框1.取标题 (计次 － 1, 1)
    
23.         .如果结束
    
24. 
    
25.     .否则
    
26.         文本数组 ＝ 分割文本 (临时文本, “,”, )
    
27.         索引 ＝ 超级列表框2.插入表项 (, , , , , )
    
28.         超级列表框2.置标题 (索引, 0, 开始索引)
    
29.         超级列表框2.置标题 (索引, 1, 临时文本)
    
30.         超级列表框2.置标题 (索引, 2, 到文本 (取数组成员数 (文本数组)))
    
31.         开始索引 ＝ 本次索引
    
32.         临时文本 ＝ 超级列表框1.取标题 (计次 － 1, 1)
    
33.     .如果结束
    
34.     上次索引 ＝ 本次索引
    
35. .计次循环尾 ()
    
36. 文本数组 ＝ 分割文本 (临时文本, “,”, )
    
37. 索引 ＝ 超级列表框2.插入表项 (, , , , , )
    
38. 超级列表框2.置标题 (索引, 0, 开始索引)
    
39. 超级列表框2.置标题 (索引, 1, 临时文本)
    
40. 超级列表框2.置标题 (索引, 2, 到文本 (取数组成员数 (文本数组)))
    
41. 
    

复制代码

大兔崽子

没看懂  是什么条件把他们归纳为一组的

DDSGXQ

大兔崽子 发表于 2018-5-17 09:29
没看懂  是什么条件把他们归纳为一组的

只要是前面数字连续的，就分组。后面的数据也要一起。取出长度。图就是那样。