精易模块5.11 文本_取中间_批量 BUG

小落落

BUG.zip (876.4 KB, 下载次数: 32)

2015-1-3 23:36 上传

点击文件名下载附件
下载积分: 精币 -2 枚

使用命令后无法取出中间文本。

魔狱

使用命令后无法取出中间文本。

表哥怡风

使用命令后无法取出中间文本。

外地患者

使用命令后无法取出中间文本。

铅笔刀

使用3,12的就没有这个bug

小落落

御风软件 发表于 2015-1-4 00:22
没有看出bug在那里，但是这写法明显的有问题，漏了第一个

用的竟然是前面一个的结尾，和后面的一个的结 ...

用文本_取中间_正则方式可以取出来

萧阳天

这个修改后试试，貌似不吃CPU了。

1. .版本 2
   
2. 
   
3. .子程序 文本_取中间_批量2, 整数型, 公开, 比如：欲取全文本为<12345>,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”
   
4. .参数 源文本, 文本型, , 比如：欲取全文本为 12345
   
5. .参数 前面标识文本, 文本型, , 3的前面为“2”
   
6. .参数 后面标识文本, 文本型, , 3的后面为“4”
   
7. .参数 存放取出文本的数组, 文本型, 可空 数组, 存放取出文本的数组
   
8. .参数 是否区分大小写, 逻辑型, 可空, 是否区分大小写
   
9. .参数 文本长度大于此数的不要, 整数型, 可空, 文本长度大于此数的不要;如取出的文本大于50的不要;留空为不限制
   
10. .参数 为取出的文本加上前缀, 文本型, 可空, 在取出的文本前面加上一段字符或汉字！可空！
    
11. .参数 为取出的文本加上后缀, 文本型, 可空, 在取出的文本后面加上一段字符或汉字！可空！
    
12. .参数 连前面标识文本一起取出, 逻辑型, 可空, 是否连<前面标识文本>一起取出? 默认为假，不取出！
    
13. .参数 连后面标识文本一起取出, 逻辑型, 可空, 是否连<后面标识文本>一起取出? 默认为假，不取出！
    
14. .参数 起始搜寻位置, 整数型, 可空, 注明：位置值从 1 开始。如果本参数被省略，默认为 1 。
    
15. .局部变量 Search, 文本型
    
16. .局部变量 StartPos, 整数型
    
17. .局部变量 EndPos, 整数型
    
18. 
    
19. 清除数组 (存放取出文本的数组)
    
20. StartPos ＝ 起始搜寻位置
    
21. .循环判断首 ()
    
22.     StartPos ＝ 寻找文本 (源文本, 前面标识文本, StartPos, 是否区分大小写)
    
23.     .如果 (StartPos ≠ -1)
    
24.         EndPos ＝ 寻找文本 (源文本, 后面标识文本, StartPos ＋ 取文本长度 (前面标识文本), 是否区分大小写)
    
25.         .如果 (EndPos ≠ -1)
    
26.             StartPos ＝ StartPos ＋ 取文本长度 (前面标识文本)
    
27.             Search ＝ 删首尾空 (取文本中间 (源文本, StartPos, EndPos － StartPos))
    
28.             .如果真 (取文本长度 (Search) ＞ 0)
    
29.                 .如果真 (连前面标识文本一起取出)
    
30.                     Search ＝ 前面标识文本 ＋ Search
    
31.                 .如果真结束
    
32.                 .如果真 (连后面标识文本一起取出)
    
33.                     Search ＝ Search ＋ 后面标识文本
    
34.                 .如果真结束
    
35.                 .如果 (文本长度大于此数的不要 ≠ 0)
    
36.                     .如果真 (取文本长度 (Search) ＜ 文本长度大于此数的不要)
    
37.                         加入成员 (存放取出文本的数组, Search)
    
38.                     .如果真结束
    
39. 
    
40.                 .否则
    
41.                     加入成员 (存放取出文本的数组, Search)
    
42.                 .如果结束
    
43.                 StartPos ＝ EndPos
    
44.             .如果真结束
    
45. 
    
46.         .否则
    
47.             跳出循环 ()
    
48.         .如果结束
    
49. 
    
50.     .否则
    
51.         跳出循环 ()
    
52.     .如果结束
    
53.     处理事件 ()
    
54. .循环判断尾 (StartPos ≠ -1)
    
55. 返回 (取数组成员数 (存放取出文本的数组))
    

复制代码

Hoibben

个人不建议使用这个命令 纯粹是鸡肋 该命令批量取数据的时候耗时10秒的数据 可能用正则就1秒的事情~

御风软件

没有看出bug在那里，但是这写法明显的有问题，漏了第一个

用的竟然是前面一个的结尾，和后面的一个的结尾来取的数据
文本_取中间_批量 (返回文本, “</td></tr><tr><td>”, “</td></tr><tr><td>”, 文本, )  ' bug部分

这样子，取到的第一个数据，其实是第二条数据，因为开始文本是第一条的结尾，结束文本是第二条的结尾，后面的以此类推