如何将文本分割并分割成几部分？

旧之

yihrmc1 发表于 2018-5-16 19:57
你可以考虑用js执行一下，直接得到结果

可以发个例程吗 不会用e跑js

yihrmc1

旧之 发表于 2018-5-16 20:12
可以发个例程吗 不会用e跑js

那你还是继续用文本分割吧

yihrmc1

第一步：
寻找文本"L"，记录位置，起始位置是上一次寻找文本"="的位置+1或0
寻找文本"="，记录位置，起始位置是上一次寻找文本"="的位置+1或0

然后接可以截取 L到=的数字了；
接着继续寻找文本，依次类推，截取

旧之

yihrmc1 发表于 2018-5-16 20:28
第一步：
寻找文本"L"，记录位置，起始位置是上一次寻找文本"="的位置+1或0
寻找文本"="，记录位置，起始 ...

可是有很多重复的呀

yihrmc1

旧之 发表于 2018-5-16 22:48
可是有很多重复的呀

全部数据发一下

yihrmc1

老铁我又回来了，帮你解决了，我先吃饭，等会发源码给你

yihrmc1

OK了，下载测试吧

1. .版本 2
   
2. 
   
3. .子程序 Yihrmc高级截取文本, 逻辑型
   
4. .参数 被截取文本, 文本型
   
5. .参数 前文本组, 文本型, 数组
   
6. .参数 后文本组, 文本型, 数组
   
7. .参数 返回数据组, 文本型, 参考 数组, 二维数组
   
8. .参数 是否不区分大小写, 逻辑型
   
9. .局部变量 i, 整数型
   
10. .局部变量 n, 整数型
    
11. .局部变量 next, 逻辑型
    
12. .局部变量 l, 整数型
    
13. .局部变量 r, 整数型
    
14. .局部变量 结果组, 文本型, , "0"
    
15. .局部变量 全部结果组, 文本型, , "0"
    
16. 
    
17. .如果真 (取数组成员数 (前文本组) ≠ 取数组成员数 (后文本组))  ' 一定要数量对应
    
18.     返回 (假)
    
19. .如果真结束
    
20. l ＝ 0
    
21. r ＝ 0
    
22. n ＝ 0
    
23. .循环判断首 ()
    
24.     next ＝ 假
    
25.     清除数组 (结果组)
    
26.     .计次循环首 (取数组成员数 (前文本组), i)
    
27.         l ＝ 寻找文本 (被截取文本, 前文本组 [i], r, 是否不区分大小写)
    
28.         .如果真 (l ＝ -1)
    
29.             跳出循环 ()
    
30.         .如果真结束
    
31.         r ＝ 寻找文本 (被截取文本, 后文本组 [i], l, 是否不区分大小写)
    
32.         .如果真 (r ＝ -1)
    
33.             跳出循环 ()
    
34.         .如果真结束
    
35.         加入成员 (结果组, 取文本中间 (被截取文本, l ＋ 取文本长度 (前文本组 [i]), r － l － 取文本长度 (前文本组 [i])))
    
36.         next ＝ 真
    
37.     .计次循环尾 ()
    
38.     .如果真 (取数组成员数 (结果组) ＝ 取数组成员数 (前文本组))  ' 所有的截取文本都要有结果
    
39.         n ＝ n ＋ 1
    
40.         重定义数组 (全部结果组, 真, n, 取数组成员数 (结果组))
    
41.         .计次循环首 (取数组成员数 (结果组), i)
    
42.             全部结果组 [n] [i] ＝ 结果组 [i]
    
43.         .计次循环尾 ()
    
44.     .如果真结束
    
45. 
    
46. .循环判断尾 (next)
    
47. 返回数据组 ＝ 全部结果组
    
48. 返回 (真)
    

复制代码