.计次循环首 (到整数 (编辑框1.内容), 计数1) ' 1
文件 = 读入文件 (列表框1.取项目文本 (计数1)) ' 0
' 调试输出 (“文件:” + 到文本 (文件))
创建目录 (编辑框3.内容)
判断 = 写到文件 (编辑框3.内容 + “\” + 编辑框4.内容 + 到文本 (计数1) + 编辑框5.内容, 文件) ' d:\232\32.jpg'
延迟 (1) ' 没有这玩意儿时间就为0 就取不到时间
刷新显示 ()
.如果 (判断 = 真)
显示 = 编辑框3.内容 + “\” + 编辑框4.内容 + 到文本 (计数1) + 编辑框5.内容 + “文件写入成功!”
编辑框2.文本颜色 = #蓝色
.否则
显示 = 编辑框3.内容 + “\” + 编辑框4.内容 + 到文本 (计数1) + 编辑框5.内容 + “文件写入不成功!看看是不是相关按键操作区出现错误?”
编辑框2.文本颜色 = #红色
.如果结束
' 调试输出 (“编号:” + 到文本 (计数1))
' 调试输出 (“是否写入成功:” + 到文本 (判断))
' 调试输出 (编辑框3.内容 + “\” + 编辑框4.内容 + 到文本 (计数1) + 编辑框5.内容, 文件)
编辑框2.加入文本 (“文件编号” + 到文本 (计数1) + #换行符)
编辑框2.加入文本 (“是否写入成功:” + 显示 + #换行符)
.如果 (进度显示 ≤ 到整数 (编辑框1.内容) - 1)
进度显示 = 进度显示 + 1
.否则
进度显示 = 进度显示 + 1
.如果结束
进度条1.位置 = 进度显示
.计次循环尾 ()
时钟1.时钟周期 = 0 ' F:\图片\动漫图片1
编辑框2.加入文本 (“批量处理完成;” + “共用时间:” + 到文本 (时间) + “秒!” + “本工具有PV开发” + #换行符)
写到文件 (编辑框3.内容 + “\” + “批量操作生成信息.txt”, 到字节集 (到文本 (编辑框2.内容)))
列表框1.清空 ()
.否则
信息框 (“你要选着文件进入软件才可以 批量修改文件”, 0, “pv提示:”)
上一篇 SQLite3数据库操作类模块
下一篇 Ex_DUI扩展学习例子