易语言如何在所有分区中查找指定后缀文件,如“.e”并加入列表框?
3个回答
展开全部
=============一个按钮、一个列表框、一个透明标签====================
.版本 2
.支持库 iext
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 名称, 文本型
.程序集变量 后缀名, 文本型
.子程序 _按钮1_被单击
后缀名 = “e”
文件搜索 (“*.” + 后缀名)
.子程序 文件搜索
.参数 被搜索文件, 文本型
.局部变量 分割文本组, 文本型, , "0"
.局部变量 计次, 整数型
分割文本组 = 分割文本 (分析硬盘 (), “|”, )
.计次循环首 (取数组成员数 (分割文本组), 计次)
搜寻 (分割文本组 [计次], 被搜索文件)
.计次循环尾 ()
透明标签1.标题 = “搜索完毕!”
.子程序 搜寻
.参数 目录, 文本型
.参数 被搜索文件, 文本型
.局部变量 文件名, 文本型
.局部变量 结果, 文本型, , "0"
处理事件 ()
按钮1.禁止 = 真
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
透明标签1.标题 = “正在搜索” + 目录
.如果真结束
文件名 = 寻找文件 (目录 + 被搜索文件, )
.判断循环首 (文件名 ≠ “”)
.如果真 (后缀名 = “e”)
列表框1.加入项目 (目录 + 文件名, )
.如果真结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
文件名 = 寻找文件 (目录 + “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
搜寻 (目录 + 文件名, 被搜索文件)
.如果真结束
文件名 = 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 分析硬盘, 文本型, , 取硬盘
.局部变量 硬盘信息, 文本型, , "5"
.局部变量 局部计次, 整数型
.局部变量 硬盘, 文本型
硬盘信息 = 取驱动器列表 (0)
.计次循环首 (取数组成员数 (硬盘信息), 局部计次)
硬盘 = 硬盘 + 硬盘信息 [局部计次] + “|”
.计次循环尾 ()
返回 (硬盘)
==================================================
.版本 2
.支持库 iext
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 名称, 文本型
.程序集变量 后缀名, 文本型
.子程序 _按钮1_被单击
后缀名 = “e”
文件搜索 (“*.” + 后缀名)
.子程序 文件搜索
.参数 被搜索文件, 文本型
.局部变量 分割文本组, 文本型, , "0"
.局部变量 计次, 整数型
分割文本组 = 分割文本 (分析硬盘 (), “|”, )
.计次循环首 (取数组成员数 (分割文本组), 计次)
搜寻 (分割文本组 [计次], 被搜索文件)
.计次循环尾 ()
透明标签1.标题 = “搜索完毕!”
.子程序 搜寻
.参数 目录, 文本型
.参数 被搜索文件, 文本型
.局部变量 文件名, 文本型
.局部变量 结果, 文本型, , "0"
处理事件 ()
按钮1.禁止 = 真
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
透明标签1.标题 = “正在搜索” + 目录
.如果真结束
文件名 = 寻找文件 (目录 + 被搜索文件, )
.判断循环首 (文件名 ≠ “”)
.如果真 (后缀名 = “e”)
列表框1.加入项目 (目录 + 文件名, )
.如果真结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
文件名 = 寻找文件 (目录 + “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
搜寻 (目录 + 文件名, 被搜索文件)
.如果真结束
文件名 = 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 分析硬盘, 文本型, , 取硬盘
.局部变量 硬盘信息, 文本型, , "5"
.局部变量 局部计次, 整数型
.局部变量 硬盘, 文本型
硬盘信息 = 取驱动器列表 (0)
.计次循环首 (取数组成员数 (硬盘信息), 局部计次)
硬盘 = 硬盘 + 硬盘信息 [局部计次] + “|”
.计次循环尾 ()
返回 (硬盘)
==================================================
展开全部
我去 - - 一个循环命令 看支持库
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
引用POLICE2020的回答:
=============一个按钮、一个列表框、一个透明标签====================
.版本 2
.支持库 iext
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 名称, 文本型
.程序集变量 后缀名, 文本型
.子程序 _按钮1_被单击
后缀名 = “e”
文件搜索 (“*.” + 后缀名)
.子程序 文件搜索
.参数 被搜索文件, 文本型
.局部变量 分割文本组, 文本型, , "0"
.局部变量 计次, 整数型
分割文本组 = 分割文本 (分析硬盘 (), “|”, )
.计次循环首 (取数组成员数 (分割文本组), 计次)
搜寻 (分割文本组 [计次], 被搜索文件)
.计次循环尾 ()
透明标签1.标题 = “搜索完毕!”
.子程序 搜寻
.参数 目录, 文本型
.参数 被搜索文件, 文本型
.局部变量 文件名, 文本型
.局部变量 结果, 文本型, , "0"
处理事件 ()
按钮1.禁止 = 真
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
透明标签1.标题 = “正在搜索” + 目录
.如果真结束
文件名 = 寻找文件 (目录 + 被搜索文件, )
.判断循环首 (文件名 ≠ “”)
.如果真 (后缀名 = “e”)
列表框1.加入项目 (目录 + 文件名, )
.如果真结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
文件名 = 寻找文件 (目录 + “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
搜寻 (目录 + 文件名, 被搜索文件)
.如果真结束
文件名 = 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 分析硬盘, 文本型, , 取硬盘
.局部变量 硬盘信息, 文本型, , "5"
.局部变量 局部计次, 整数型
.局部变量 硬盘, 文本型
硬盘信息 = 取驱动器列表 (0)
.计次循环首 (取数组成员数 (硬盘信息), 局部计次)
硬盘 = 硬盘 + 硬盘信息 [局部计次] + “|”
.计次循环尾 ()
返回 (硬盘)
==================================================
=============一个按钮、一个列表框、一个透明标签====================
.版本 2
.支持库 iext
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 名称, 文本型
.程序集变量 后缀名, 文本型
.子程序 _按钮1_被单击
后缀名 = “e”
文件搜索 (“*.” + 后缀名)
.子程序 文件搜索
.参数 被搜索文件, 文本型
.局部变量 分割文本组, 文本型, , "0"
.局部变量 计次, 整数型
分割文本组 = 分割文本 (分析硬盘 (), “|”, )
.计次循环首 (取数组成员数 (分割文本组), 计次)
搜寻 (分割文本组 [计次], 被搜索文件)
.计次循环尾 ()
透明标签1.标题 = “搜索完毕!”
.子程序 搜寻
.参数 目录, 文本型
.参数 被搜索文件, 文本型
.局部变量 文件名, 文本型
.局部变量 结果, 文本型, , "0"
处理事件 ()
按钮1.禁止 = 真
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
透明标签1.标题 = “正在搜索” + 目录
.如果真结束
文件名 = 寻找文件 (目录 + 被搜索文件, )
.判断循环首 (文件名 ≠ “”)
.如果真 (后缀名 = “e”)
列表框1.加入项目 (目录 + 文件名, )
.如果真结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
文件名 = 寻找文件 (目录 + “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
搜寻 (目录 + 文件名, 被搜索文件)
.如果真结束
文件名 = 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 分析硬盘, 文本型, , 取硬盘
.局部变量 硬盘信息, 文本型, , "5"
.局部变量 局部计次, 整数型
.局部变量 硬盘, 文本型
硬盘信息 = 取驱动器列表 (0)
.计次循环首 (取数组成员数 (硬盘信息), 局部计次)
硬盘 = 硬盘 + 硬盘信息 [局部计次] + “|”
.计次循环尾 ()
返回 (硬盘)
==================================================
展开全部
谢谢大神的回答!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询