易语言怎么通过查找个别字来找到文件?
就是自动查找含有某个文字的文件是否存在,存在的话就显示在超级列表框中,这个源码要怎么写?最好大神能给个附件...
就是自动查找含有某个文字的文件是否存在,存在的话就显示在超级列表框中,这个源码要怎么写?最好大神能给个附件
展开
1个回答
展开全部
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 文件名, 文本型
.子程序 _按钮1_被单击
文件名 = 寻找文件 (取运行目录 () + “\” + “*”, )
.如果真 (文件名 = “”)
返回 ()
.如果真结束
.判断循环首 (文件名 ≠ “”)
.如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
.如果真 (寻找文本 (文件名, 编辑框1.内容, , 假) > -1)
超级列表框1.插入表项 (, 文件名, , , , )
.如果真结束
.如果真结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
.支持库 iext
.程序集 窗口程序集1
.程序集变量 文件名, 文本型
.子程序 _按钮1_被单击
文件名 = 寻找文件 (取运行目录 () + “\” + “*”, )
.如果真 (文件名 = “”)
返回 ()
.如果真结束
.判断循环首 (文件名 ≠ “”)
.如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
.如果真 (寻找文本 (文件名, 编辑框1.内容, , 假) > -1)
超级列表框1.插入表项 (, 文件名, , , , )
.如果真结束
.如果真结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
更多追问追答
追问
为什么查找到文件后显示在了超级列表框中,但是点击按钮删除超级列表框1.标题的标题时确无法删除找到的文件?
追答
你的代码是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询