易语言,查找文件夹下面的txt,并显示文件名 10
目的:在编辑框1输入关键字,点击按钮,******************************************************************...
目的:在编辑框1 输入关键字, 点击按钮,
****************************************************************************
搜索该关键字 是否存在于 xx文件夹下的所有txt内
****************************************************************************
如果
存在,编辑框2 显示该txt 的名字
不存在,弹出消息框,"对不起,没有该关键词"
****************************************************************************
非常感谢, 展开
****************************************************************************
搜索该关键字 是否存在于 xx文件夹下的所有txt内
****************************************************************************
如果
存在,编辑框2 显示该txt 的名字
不存在,弹出消息框,"对不起,没有该关键词"
****************************************************************************
非常感谢, 展开
展开全部
.版本 2
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
.局部变量 i, 整数型
.局部变量 临时文本, 文本型
文件名 = 寻找文件 (“F:\查找目录\*.txt”, )
.判断循环首 (文件名 ≠ “”)
临时文本 = 读入文本 (打开文件 (“F:\查找目录\” + 文件名, , ), )
.如果 (寻找文本 (临时文本, 编辑框1.内容, , 假) ≠ -1)
编辑框2.加入文本 (文件名)
.否则
信息框 (“对不起,没有该关键词”, 0, )
.如果结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
刚刚写好,还错过了15分钟加成,可以的话给分吧亲
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
.局部变量 i, 整数型
.局部变量 临时文本, 文本型
文件名 = 寻找文件 (“F:\查找目录\*.txt”, )
.判断循环首 (文件名 ≠ “”)
临时文本 = 读入文本 (打开文件 (“F:\查找目录\” + 文件名, , ), )
.如果 (寻找文本 (临时文本, 编辑框1.内容, , 假) ≠ -1)
编辑框2.加入文本 (文件名)
.否则
信息框 (“对不起,没有该关键词”, 0, )
.如果结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
刚刚写好,还错过了15分钟加成,可以的话给分吧亲
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询