取出文本中所有特定的数字-求源码

nezhazhixin

假如文本这样：
法规的分公司共《54654    A=5》封我发给我给我个《54654    A=66》刚给我给我岗位《54654    A=77》gre给我个问过我《54654    A=8》很投入和他如何《54654    A=0》热儿童热天《54654    A=2》而were我惹我《54654    A=9》热温热我让方法萨芬《54654    A=7》二二亲热亲热去无法《54654    A=8》

我要从这段文本里取出，A=后面的数字小于5的书名号里的A前面的数字，例如《54654    A=0》中的54654就是符合我要求的，我要从文本中把这样的数字全部取出，换行后输出到编辑求就源码。

自己写了个，源码很长，读起来很慢，求高手赐教！

exit11

nezhazhixin 发表于 2011-6-26 21:49
高手练练手啊

[e].版本 2
.支持库 RegEx

.子程序 _按钮1_被单击
.局部变量 正则, 正则表达式
.局部变量 结果, 搜索结果, , "0"
.局部变量 x, 整数型

正则.创建 (“《(\d{1,})    A=(\d{1,})》”, )
结果 ＝ 正则.搜索全部 (编辑框1.内容)
.计次循环首 (取数组成员数 (结果), x)
    .如果真 (到整数 (结果 [x].取子匹配文本 (编辑框1.内容, 2, )) ≤ 5)
        编辑框2.加入文本 (结果 [x].取子匹配文本 (编辑框1.内容, 1, ) ＋ #换行符)
    .如果真结束

.计次循环尾 ()
[/e]

airpppp

坐个沙发慢慢看

nezhazhixin

高手练练手啊

nezhazhixin

exit11 发表于 2011-6-26 22:06

非常感谢回答 不过我是个新手 正则还没接触  还要麻烦你给改下  我实际的内容是这样的  <tr  tid="1118584364" replay="770" >        取出所有 replay数字小于5的  中的  tid后面的数字  

呜呜  以后得学正则  你写的我都看不懂  麻烦再给写下

啊颠

取网页代码的话，正则是比较好用的。

果子

改的 地板楼 exit11 的，最佳答案请选择他的

.版本 2
.支持库 RegEx

.子程序 _按钮1_被单击
.局部变量 正则, 正则表达式
.局部变量 结果, 搜索结果, , "0"
.局部变量 x, 整数型

正则.创建 (“<tr  tid=” ＋ #引号 ＋ “(\d{5,15})” ＋ #引号 ＋ “ replay=” ＋ #引号 ＋ “(\d{1,5})” ＋ #引号 ＋ “ >”, )
结果 ＝ 正则.搜索全部 (编辑框1.内容)
.计次循环首 (取数组成员数 (结果), x)
    .如果真 (到整数 (结果 [x].取子匹配文本 (编辑框1.内容, 2, )) ≤ 5)
        编辑框2.加入文本 (结果 [x].取子匹配文本 (编辑框1.内容, 1, ) ＋ #换行符)
    .如果真结束

.计次循环尾 ()

tanchanghu

学习中     好东西

nezhazhixin

感谢果子   感谢exi