易语言查询一个文件夹下,多个TXT文本内容。

易语言查询一个文件夹下,多个TXT文本内容。,第1张

一个按钮就好了。

版本 2

程序集 窗口程序集1

程序集变量 文件组, 文本型, , "0"

程序集变量 当前文件进度, 整数型

程序集变量 是否包含, 逻辑型

子程序 __启动窗口_创建完毕

子程序 _按钮1_被单击

局部变量 A, 整数型

如果真 (取数组成员数 (文件组) = 0)

A = 1

当前文件进度 = 1

是否包含 = 假

加入成员 (文件组, 寻找文件 (取运行目录 () + “\txt”, ))

判断循环首 (文件组 [A] ≠ “”)

加入成员 (文件组, 寻找文件 (, ))

A = A + 1

判断循环尾 ()

如果真结束

如果真 (当前文件进度 > 取数组成员数 (文件组))

信息框 (“所有文件搜索完毕”, 0, )

清除数组 (文件组)

返回 ()

如果真结束

如果 (寻找文本 (到文本 (读入文件 (文件组 [当前文件进度])), 编辑框2内容, , 假) = -1)

是否包含 = 假

否则

是否包含 = 真

编辑框1内容 = 到文本 (读入文件 (文件组 [当前文件进度]))

标题 = 文件组 [当前文件进度]

当前文件进度 = 当前文件进度 + 1

返回 ()

如果结束

当前文件进度 = 当前文件进度 + 1

判断循环首 (是否包含 = 假)

如果真 (当前文件进度 > 取数组成员数 (文件组))

信息框 (“所有文件搜索完毕”, 0, )

清除数组 (文件组)

返回 ()

如果真结束

如果真 (寻找文本 (到文本 (读入文件 (文件组 [当前文件进度])), 编辑框2内容, , 假) ≠ -1)

是否包含 = 真

当前文件进度 = 当前文件进度 + 1

跳出循环 ()

如果真结束

当前文件进度 = 当前文件进度 + 1

判断循环尾 ()

标题 = 文件组 [当前文件进度]

编辑框1内容 = 到文本 (读入文件 (文件组 [当前文件进度]))

获取文件总的大小

定时获取已复制文件的大小

得到百分比,显示成进度

FileStream fs ;

//获取fs的长度

long maxLength = fsLength;

异步调用fs,

fsBeginWrite();

//声明一个全局累加的long

//在CallBack函数中每次累加,同时使用delegate响应主界面线程

拷贝你已经会了,只是不知道怎么显示对吧? 你在窗体界面上拖一个滚动条的控件,然后思路就是将这个文件的大小作为一个基数,进度条显示的比例就是你文件实时拷贝的大小,进度条的快慢就显示了你文件拷贝的磁盘读写速率。很简单。。。

以上就是关于易语言查询一个文件夹下,多个TXT文本内容。全部的内容,包括:易语言查询一个文件夹下,多个TXT文本内容。、如何用C#实现文件及文件夹复制,且显示复制的进度条、c#如何复制一个较大的文件并显示进度条等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/10169110.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-06
下一篇 2023-05-06

发表评论

登录后才能评论

评论列表(0条)

保存