易语言 精易模块的拖放文件

易语言 精易模块的拖放文件

易语言 精易模块的拖放文件的写法

添加程序集变量,在_启动窗口创建完毕写下代码如:拖放文件.注册拖放 (列表框1.取句柄 (), &拖放事件)

写子程序如图

.版本 2

.子程序 拖放事件

.参数 共几口, 整数型, , 第一个是总文件数量

.参数 老几, 整数型, , 第2个是当前是第几个文件

.参数 名字, 文本型, , 第3个是当前的文件名

.参数 尾巴, 文本型, , 第4个是当前的文件类型（文件后缀名）

.局部变量 文件号, 整数型

.局部变量 文本, 文本型

.局部变量 文本数目, 整数型

.局部变量 文本数组, 文本型, , "0"

.局部变量 n, 整数型

临时变量 ＝ 名字

.如果真 (尾巴 ＝ “txt”)

文件号 ＝ 打开文件 (临时变量, , )

文本 ＝ 读入文本 (文件号, )

文本 ＝ 删全部空 (文本)

文本数组 ＝ 分割文本 (文本, #换行符, )

.计次循环首 (取数组成员数 (文本数组), n)

列表框1.插入项目 (文本数组 [n], #窗口背景图, , , )

.计次循环尾 ()

.如果真结束

临时变量 ＝ “”

列表框1.刷新显示 ()

记得要卸载.