用文本操作命令和文本开关的模块筛选AAA和ABCD号码

377906028

随机生成的号码 ,,然后怎么使用文本操作的命令筛选出AAA和ABCD和号码段,, 例如111 222 333 1234 5678这样的

御风软件

哎呦，我去，写了好久，终于写好了。。。。 源码.zip (31.05 KB, 下载次数: 17)

2014-4-8 00:18 上传

点击文件名下载附件

377906028

御风软件 发表于 2014-4-8 00:18
哎呦，我去，写了好久，终于写好了。。。。

我也写出来了...不知道和你写的一样不,,用的是嵌套循环

377906028

.版本 2
.支持库 spec

.子程序 _按钮_筛选AAA号码_被单击
.局部变量 局_文本, 文本型, , "0"
.局部变量 局_行数, 整数型
.局部变量 局_计次, 整数型
.局部变量 局_欲查找的文本, 文本型

编辑框_筛选号码.内容 ＝ “”
局_文本 ＝ 分割文本 (编辑框_生成号码.内容, #换行符, )
局_行数 ＝ 取数组成员数 (局_文本)
.计次循环首 (10, 局_计次)
    局_欲查找的文本 ＝ 到文本 (局_计次 － 1) ＋ 到文本 (局_计次 － 1) ＋ 到文本 (局_计次 － 1)
    调试输出 (局_欲查找的文本)
    .计次循环首 (局_行数, 局_计次)
        .如果 (文本_取文本所在行 (局_文本 [局_计次], 局_欲查找的文本, ) ＝ 1)
            编辑框_筛选号码.加入文本 (局_文本 [局_计次] ＋ #换行符)
        .否则

        .如果结束

    .计次循环尾 ()
.计次循环尾 ()


.子程序 _按钮_筛选ABCD号码_被单击
.局部变量 局_文本, 文本型, , "0"
.局部变量 局_行数, 整数型
.局部变量 局_计次, 整数型
.局部变量 局_欲查找的文本, 文本型

编辑框_筛选号码.内容 ＝ “”
局_文本 ＝ 分割文本 (编辑框_生成号码.内容, #换行符, )
局_行数 ＝ 取数组成员数 (局_文本)
.计次循环首 (7, 局_计次)
    局_欲查找的文本 ＝ 到文本 (局_计次 － 1) ＋ 到文本 (局_计次) ＋ 到文本 (局_计次 ＋ 1) ＋ 到文本 (局_计次 ＋ 2)
    调试输出 (局_欲查找的文本)
    .计次循环首 (局_行数, 局_计次)
        .如果 (文本_取文本所在行 (局_文本 [局_计次], 局_欲查找的文本, ) ＝ 1)
            编辑框_筛选号码.加入文本 (局_文本 [局_计次] ＋ #换行符)
        .否则

        .如果结束

    .计次循环尾 ()
.计次循环尾 ()