精易论坛

标题: 自用子程序——取子字符串，节省时间 [打印本页]

---

作者: 29499531    时间: 2012-3-12 11:57
标题: 自用子程序——取子字符串，节省时间

1. .版本 2
   
2. 
   
3. .子程序 取子字符串, 文本型
   
4. .参数 参数_操作字符串, 文本型, , 被操作的父字符串
   
5. .参数 参数_左边字符串, 文本型, 可空, 目标字符串的左边子字符串，唯一，不能有重复。默认为字符串开始
   
6. .参数 参数_右边字符串, 文本型, 可空, 目标字符串的右边子字符串，唯一，不能有重复。默认为字符串结束
   
7. .局部变量 开始位置, 整数型
   
8. .局部变量 结束位置, 整数型
   
9. 
   
10. .如果 (是否为空 (参数_左边字符串))
    
11.     开始位置 ＝ 1
    
12. .否则
    
13.     开始位置 ＝ 寻找文本 (参数_操作字符串, 参数_左边字符串, , 假)
    
14.     .如果 (开始位置 ＝ -1)
    
15.         开始位置 ＝ 1
    
16.     .否则
    
17.         开始位置 ＝ 开始位置 ＋ 取文本长度 (参数_左边字符串)
    
18.     .如果结束
    
19. 
    
20. 
    
21. .如果结束
    
22. .如果 (是否为空 (参数_右边字符串))
    
23.     结束位置 ＝ 取文本长度 (参数_操作字符串) ＋ 1
    
24. .否则
    
25.     结束位置 ＝ 寻找文本 (参数_操作字符串, 参数_右边字符串, , 假)
    
26.     .如果真 (结束位置 ＝ -1)
    
27.         结束位置 ＝ 取文本长度 (参数_操作字符串)
    
28.     .如果真结束
    
29. 
    
30. .如果结束
    
31. 
    
32. .判断开始 (开始位置 ＜ 结束位置)
    
33.     返回 (取文本中间 (参数_操作字符串, 开始位置, 结束位置 － 开始位置))
    
34. .判断 (开始位置 ＞ 结束位置 ＋ 1)
    
35.     返回 (取文本中间 (参数_操作字符串, 结束位置 ＋ 1, 开始位置 － 结束位置 － 2))
    
36. .默认
    
37.     返回 (“”)
    

复制代码

---

作者: 深藏功舆名ゐ    时间: 2012-3-12 12:49
这个好像文本取中间= =

---

作者: suiqing    时间: 2012-3-12 13:36
没看懂  我看看源码先

---

作者: 杜杜哎哟    时间: 2012-3-12 21:35
好像就是取中间文本···

---

作者: 宇智波·佐助    时间: 2012-3-13 12:01
看卡你这个效果

---

作者: zengxming    时间: 2013-1-29 17:21
和取中间文本有区别嘛

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4