牛哥你有空吗请来一下

不信大牛本事

求怎么提.zip (2.26 KB, 下载次数: 24)

2012-1-8 21:47 上传

点击文件名下载附件



多条件下，怎么写判断啊。得到我想要看的内容提出来，弄得我头晕眼花。，谢谢你
让我相信一下你是我眼中最棒的。

爱家的小懒虫

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 连续行数, 整数型
   
6. .局部变量 出现次数, 整数型
   
7. .局部变量 行索引数组, 整数型, , "1"
   
8. .局部变量 文本数组, 文本型, , "0"
   
9. .局部变量 i, 整数型
   
10. .局部变量 j, 整数型
    
11. .局部变量 关键字A, 文本型
    
12. .局部变量 关键字B, 文本型
    
13. .局部变量 结果, 文本型
    
14. 
    
15. 调试输出 (“开始查找”)
    
16. 关键字A ＝ 组合框1.内容
    
17. 关键字B ＝ 组合框2.内容
    
18. 连续行数 ＝ 到整数 (编辑框5.内容)
    
19. 出现次数 ＝ 到整数 (编辑框6.内容)
    
20. 文本数组 ＝ 分割文本 (编辑框2.内容, #换行符, )
    
21. 行索引数组 [1] ＝ 0
    
22. 调试输出 (关键字A, 关键字B, 连续行数, 出现次数, 取数组成员数 (文本数组))
    
23. .计次循环首 (取数组成员数 (文本数组), i)
    
24.     .如果 (寻找文本 (文本数组 [i], 关键字B, , 真) ≠ -1)
    
25.         行索引数组 [1] ＝ 行索引数组 [1] ＋ 1  ' 满足条件2 记录出现次数
    
26.     .否则
    
27.         .如果真 (寻找文本 (文本数组 [i], 关键字A, , 真) ＝ -1)
    
28.             ' 显示
    
29.             调试输出 (行索引数组)
    
30.             .如果真 (取数组成员数 (行索引数组) ＞ 连续行数 且 行索引数组 [1] ＞ 出现次数)  ' 当出现不连续行时,如果本次片段文本满足出现次数和行数,则提取出结果!
    
31.                 .计次循环首 (取数组成员数 (行索引数组), j)
    
32.                     结果 ＝ 结果 ＋ 文本数组 [行索引数组 [j]] ＋ #换行符
    
33.                 .计次循环尾 ()
    
34.             .如果真结束
    
35.             行索引数组 ＝ { 0 }  ' 重置数组,出现次数置0
    
36.             到循环尾 ()
    
37.         .如果真结束
    
38. 
    
39.     .如果结束
    
40.     加入成员 (行索引数组, i)  ' 满足条件1或者条件2,则记录该 文本行索引.
    
41. .计次循环尾 ()
    
42. 编辑框3.内容 ＝ 结果
    
43. 调试输出 (“查找结束”)
    

复制代码

双循环查询.文本处理.带说明!


abcd.rar (2.84 KB, 下载次数: 13)

2012-1-11 15:57 上传

点击文件名下载附件

C。

给你写这个代码？你出100或许会有人的

不信大牛本事

这是真的吗？那买个软件算了。

不信大牛本事

╰默，你怎么做广告，我的风水贴都被你搞坏了，管理踢他吧

金哥专用

看的云里雾里。

不信大牛本事

啊，是这样吗？

小灰灰发明家

是这样吗？{:3_234:}

易团呆

{:3_226:}貌似有点。。。。少

炫舞芭比

都看蒙了 是不是把文本里面的 AAAA和大牛 都去掉啊？{:3_234:}