搜索文本程序

595262556

请大神 帮忙看下 应该怎么写。

君不见

595262556 发表于 2013-11-24 19:39
谢了包涵子文件夹啊 帮忙在搞下

需要精益模块


.版本 2
.支持库 xplib
.支持库 shell
.支持库 iext
.程序集 窗口程序集1
.程序集变量 文件名, 文本型
.程序集变量 文本, 文本型, , "0"
.程序集变量 n, 整数型
.程序集变量 文本2, 文本型, , "0"
.程序集变量 文本3, 文本型, , "0"
.程序集变量 m, 整数型
.程序集变量 目录s, 整数型
.程序集变量 目录a, 文本型, , "0"
.子程序 __启动窗口_创建完毕
XP风格 (3)
.子程序 _按钮1_被单击
.局部变量 目录, 文本型
清除数组 (文本)
清除数组 (文本2)
清除数组 (文本3)
编辑框1.内容 ＝ 浏览文件夹 (“要查找的文件夹”, )
.判断开始 (单选框1.选中 ＝ 真)
    文件名 ＝ “*.txt”
.判断 (单选框2.选中 ＝ 真)
    文件名 ＝ “*.ini”
.默认
.判断结束

文件_枚举 (编辑框1.内容, 文件名, 文本, 真)
.计次循环首 (取数组成员数 (文本), n)
    文本2 ＝ 分割文本 (文本 [n], “\”, )
    列表框1.加入项目 (文本2 [取数组成员数 (文本2)], )
.计次循环尾 ()
目录s ＝ 目录_枚举子目录 (编辑框1.内容, 文本3, 真)
.计次循环首 (目录s, n)
    文件_枚举 (文本3 [n], 文件名, 目录a, 真)
    .计次循环首 (取数组成员数 (目录a), m)
        文本2 ＝ 分割文本 (目录a [m], “\”, )
        列表框1.加入项目 (文本2 [取数组成员数 (文本2)], )
    .计次循环尾 ()

.计次循环尾 ()

.子程序 _列表框1_双击选择
.局部变量 文件号, 整数型

.计次循环首 (取数组成员数 (文本), n)
    .如果真 (寻找文本 (文本 [n], 列表框1.取项目文本 (列表框1.现行选中项), , 假) ≠ -1)
        文件号 ＝ 打开文件 (文本 [n], , )
        编辑框2.内容 ＝ 读入文本 (文件号, )
        状态条1.置文本 (1, 文本 [n])
    .如果真结束
.计次循环尾 ()
.计次循环首 (目录s, )

    .计次循环首 (取数组成员数 (目录a), m)
        .如果真 (寻找文本 (目录a [m], 列表框1.取项目文本 (列表框1.现行选中项), , 假) ≠ -1)
            文件号 ＝ 打开文件 (目录a [m], , )
            编辑框2.内容 ＝ 读入文本 (文件号, )
            状态条1.置文本 (1, 目录a [m])
        .如果真结束

    .计次循环尾 ()

.计次循环尾 ()

红颜似水

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

.子程序 _按钮1_被单击
.局部变量 目录, 文本型

目录 ＝ 浏览文件夹 (“要查找的文件夹”, )
.如果真 (目录 ≠ “”)
    编辑框1.内容 ＝ 目录
    .如果真 (单选框1.选中 ＝ 真)
        文件_搜索 (编辑框1.内容, “*.txt”, , , 列表框1, 真)
    .如果真结束
    .如果真 (单选框2.选中 ＝ 真)
        文件_搜索 (编辑框1.内容, “*.ini”, , , 列表框1, 真)
    .如果真结束

.如果真结束


.子程序 _列表框1_双击选择

.如果真 (列表框1.现行选中项 ≠ -1)
    编辑框2.内容 ＝ 到文本 (读入文件 (列表框1.取项目文本 (列表框1.现行选中项)))
.如果真结束
[/e]
这个是列表框的.不过个人觉得列表框非常不好用! 还是枚举之后在批量加入超级列表框比较好!!
如果楼主需要可以继续追问哦!!

ljmst

学习一下，貌似很好很强大

君不见

.版本 2
.支持库 xplib
.支持库 shell
.支持库 iext
.程序集 窗口程序集1
.程序集变量 文件名, 文本型
.程序集变量 文本, 文本型, , "0"
.程序集变量 n, 整数型
.程序集变量 文本2, 文本型, , "0"
.子程序 __启动窗口_创建完毕
XP风格 (3)
.子程序 _按钮1_被单击
.局部变量 目录, 文本型

编辑框1.内容 ＝ 浏览文件夹 (“要查找的文件夹”, )
.判断开始 (单选框1.选中 ＝ 真)
    文件名 ＝ “*.txt”
.判断 (单选框2.选中 ＝ 真)
    文件名 ＝ “*.ini”
.默认
.判断结束
文件_枚举 (编辑框1.内容, 文件名, 文本, 真)
.计次循环首 (取数组成员数 (文本), n)
    文本2 ＝ 分割文本 (文本 [n], “\”, )
    列表框1.加入项目 (文本2 [取数组成员数 (文本2)], )
.计次循环尾 ()

.子程序 _列表框1_双击选择
.局部变量 文件号, 整数型

.计次循环首 (取数组成员数 (文本), n)
    .如果真 (寻找文本 (文本 [n], 列表框1.取项目文本 (列表框1.现行选中项), , 假) ≠ -1)
        文件号 ＝ 打开文件 (文本 [n], , )
        编辑框2.内容 ＝ 读入文本 (文件号, )
        状态条1.置文本 (1, 文本 [n])
    .如果真结束
.计次循环尾 ()

ini加了判定了 懒得再写几个ini  你自己测试吧

595262556

君不见 发表于 2013-11-24 18:41
.版本 2
.支持库 xplib
.支持库 shell

不搜索子文件夹吗

君不见

595262556 发表于 2013-11-24 19:06
不搜索子文件夹吗

你的要求自己看一下

595262556

君不见 发表于 2013-11-24 19:17
你的要求自己看一下

谢了包涵子文件夹啊 帮忙在搞下

粉蝴蝶软件

君不见 发表于 2013-11-24 17:16
需要精益模块

使用模块~！你真是误认子弟啊~！
新手都给模块害死了~！
有些所谓的老手，没了模块
连新手都不如