【源码】易语言 使用文本字符串定位 取文本中间_批量取文本中间

叶子分享

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 文本取中间, 文本型
   
5. .参数 内容, 文本型
   
6. .参数 前文本, 文本型
   
7. .参数 后文本, 文本型
   
8. .局部变量 结果, 文本型
   
9. .局部变量 删除前面部分, 文本型
   
10. .局部变量 欲取文本长度, 整数型
    
11. 
    
12. 删除前面部分 ＝ 取文本右边 (内容, 取文本长度 (内容) － 寻找文本 (内容, 前文本, , 假) － 取文本长度 (前文本) ＋ 1)
    
13. 欲取文本长度 ＝ 取文本长度 (删除前面部分) － 1 － (取文本长度 (删除前面部分) － 寻找文本 (删除前面部分, 后文本, , 假))
    
14. 结果 ＝ 取文本中间 (删除前面部分, 1, 欲取文本长度)
    
15. 返回 (结果)
    
16. 
    
17. 
    
18. .子程序 文本取中间_批量
    
19. .参数 内容, 文本型
    
20. .参数 前文本, 文本型
    
21. .参数 后文本, 文本型
    
22. .参数 存放内容的数组, 文本型, 数组
    
23. .局部变量 a, 整数型
    
24. .局部变量 出现次数, 整数型
    
25. 
    
26. 出现次数 ＝ (取文本长度 (内容) － 取文本长度 (子文本替换 (内容, 前文本, , , , 真))) ÷ 取文本长度 (前文本)
    
27. 数组清零 (存放内容的数组)
    
28. .计次循环首 (出现次数, a)
    
29.     加入成员 (存放内容的数组, 文本取中间 (内容, 前文本, 后文本))
    
30.     内容 ＝ 子文本替换 (内容, 前文本, , , 1, 假)
    
31.     调试输出 (存放内容的数组 [a])
    
32. .计次循环尾 ()
    

复制代码