文本_取中间_批量 仍然有问题

wangyayuan

文本_取中间_批量 仍然有问题 取出的数据仍然有问题

APPLEUFO

1. .版本 2
   
2. 
   
3. .子程序 文本模块_取文本中间_位置, 文本型, 公开, 根据 取文本中间（） 推导出的一个命令，这是根据前后两个字符所在位置，直接把他们取出来 注意：需注意位置是否需要加1或减1
   
4. .参数 参数文本, 文本型
   
5. .参数 参数开始位置, 整数型
   
6. .参数 参数结束位置, 整数型
   
7. .局部变量 局变结果文本, 文本型
   
8. 
   
9. .如果真 (参数开始位置 ＝ -1 或 参数结束位置 ＝ -1)
   
10.     ' 调试输出 (“模块_取文本中间_根据位置”, 参数文本, 参数开始位置, 参数结束位置)
    
11.     返回 (“”)
    
12. .如果真结束
    
13. 
    
14. 局变结果文本 ＝ 取文本中间 (参数文本, 参数开始位置, 参数结束位置 － (参数开始位置 － 1))  ' 开始位置也算一位
    
15. 返回 (局变结果文本)
    
16. 
    
17. ' 总觉得  取文本中间（）  第三个参数有些变扭 ，欲取出字符的数目
    
18. ' 若是不知道文本字符数目的话，还得倒过头来算一遍字符数目，绕弯～～、
    
19. ' 刚好写某软要取引号中的文本，想到了个办法
    
20. ' 和原来的取文本中间相比，整个的代码简练多了 ，下面是与取文本中间的对比
    
21. ' 例如  ’你好"旧时光"八月长安     ' 取出引号中的内容
    
22. ' 模块_取文本中间_根据位置（文本，引号开始位置+1，引号结束位置-1）
    
23. 
    
24. .子程序 文本模块_取文本中间_字符, 文本型, 公开, 参考了论坛  shituo  的取文本中间
    
25. .参数 参数文本, 文本型
    
26. .参数 参数开始文本, 文本型, , 从位置1 开始找
    
27. .参数 参数结束文本, 文本型, , 从“开始文本”那里往后找
    
28. .局部变量 局变第一个位置, 整数型
    
29. .局部变量 局变第二个位置, 整数型
    
30. .局部变量 局变结果文本, 文本型
    
31. 
    
32. 局变第一个位置 ＝ 寻找文本 (参数文本, 参数开始文本, , 假)
    
33. .如果真 (局变第一个位置 ＝ -1)
    
34.     ' 调试输出 (“文本模块_取文本中间_根据字符”, 参数开始文本, 参数结束文本)
    
35.     返回 (“”)
    
36. .如果真结束
    
37. 局变第二个位置 ＝ 寻找文本 (参数文本, 参数结束文本, 局变第一个位置 ＋ 1, 假)  ' 从上个文本位置往前推一格
    
38. .如果真 (局变第二个位置 ＝ -1)
    
39.     ' 调试输出 (“文本模块_取文本中间_根据字符”, 参数开始文本, 参数结束文本)
    
40.     返回 (“”)
    
41. .如果真结束
    
42. 
    
43. 局变结果文本 ＝ 文本模块_取文本中间_位置 (参数文本, 局变第一个位置 ＋ 取文本长度 (参数开始文本), 局变第二个位置 － 1)
    
44. 返回 (局变结果文本)
    
45. 
    
46. ' 例如： 你好"旧时光"八月长安   取 两个引号里面的文本
    
47. ' 局变第一个位置 ＋ 取文本长度 (参数开始文本)              是向前推一位的开始，不要包进了引号
    
48. ' 局变第二个引号位置 －1                             得到说要文本的长度。再减- 向后面退一位，不要包进来引号
    

复制代码

不然参考我写的
放精易模块里吧

小明无敌

最近的精易更新完 的确有的都不会用了
还是重新用3.12

小明无敌

小磊 发表于 2013-3-27 18:33
尝试用 文本_取中间_批量_正则

   诈尸了      

小磊

尝试用 文本_取中间_批量_正则

‘一叶知秋

那里有问题哦，上传截图或者源码说明下。

wangyayuan

<td class="td_bg"   align="center">XXXXXXX </td>