易语言批量更改文件名和翻译的例子

易语言批量更改文件名和翻译的例子

.版本 2
.支持库 spec
.支持库 iext
.支持库 EThread
.支持库 shell

.程序集 窗口程序集1
.程序集变量 线程句柄, 整数型
.程序集变量 文件, 文本型, , "0"
.程序集变量 文件名, 文本型
.程序集变量 文件夹, 文本型
.程序集变量 最终文件名, 文本型
.程序集变量 扩展名2, 文本型
.程序集变量 扩展名3, 文本型
.程序集变量 扩展名, 文本型

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



.子程序 翻译, 文本型, 公开
.参数 内容, 文本型
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 返回文本, 文本型
.局部变量 待翻译的文本, 文本型
.局部变量 需要转换, 逻辑型


需要转换 ＝ 假
.判断开始 (内容 ＝ “”)
    返回 (“翻译失败”)
.默认
    待翻译的文本 ＝ 内容
    提交地址 ＝ “http://fanyi.baidu.com/v2transapi”
    .如果 (文本_是否为汉字 (内容) ＝ 真)
        调试输出 (“汉字到英文!”)
        提交数据 ＝ “from=zh&to=en&query=” ＋ 编码_URL编码 (待翻译的文本, , 真) ＋ “&transtype=trans”
    .否则
        提交数据 ＝ “from=en&to=zh&query=” ＋ 待翻译的文本 ＋ “&transtype=trans”
        调试输出 (“英文到汉字!”)
        需要转换 ＝ 真
    .如果结束

    返回文本 ＝ 编码_Utf8到Ansi (网页_访问 (提交地址, 1, 提交数据))
    ' 调试输出 (返回文本)
    返回文本 ＝ 文本_取出中间文本 (返回文本, #常量1, #常量2, , )
    ' 调试输出 (返回文本)
    .如果真 (需要转换 ＝ 真)
        返回文本 ＝ 编码_usc2到ansi (返回文本)
    .如果真结束
    .如果 (取文本长度 (返回文本) ＞ 0)
        返回 (返回文本)
    .否则
        返回 (“翻译失败!”)
    .如果结束

.判断结束


.子程序 _按钮2_被单击

超级列表框1.全部删除 ()
启动线程 (&搜索, , 线程句柄)

.子程序 搜索
.局部变量 次数, 整数型
.局部变量 索引, 整数型

文件名 ＝ 寻找文件 (编辑框1.内容 ＋ “*” ＋ 编辑框2.内容, 32)
.判断循环首 (文件名 ≠ “”)
    索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , )
    文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (编辑框1.内容 ＋ “*” ＋ 编辑框3.内容, 32)
.判断循环首 (文件名 ≠ “”)
    索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , )
    文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (编辑框1.内容 ＋ “*” ＋ 编辑框4.内容, 32)
.判断循环首 (文件名 ≠ “”)
    索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , )
    文件名 ＝ 寻找文件 (, )
.判断循环尾 ()

改名 ()


.子程序 _按钮1_被单击

编辑框1.内容 ＝ 浏览文件夹 (“要打开的目录”, )


.子程序 改名
.局部变量 i, 整数型
.局部变量 位置索引, 整数型
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 新文件名, 文本型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 文件名s, 文本型
.局部变量 待翻译标题, 文本型

扩展名 ＝ 编辑框2.内容
扩展名2 ＝ 编辑框3.内容
扩展名3 ＝ 编辑框4.内容

b ＝ 超级列表框1.取表项数 ()
.计次循环首 (b, i)
    .如果真 (文本_取出现次数 (超级列表框1.取标题 (i － 1, 0), 扩展名) ＞ 0)
        待翻译标题 ＝ 文本_取左边 (超级列表框1.取标题 (i － 1, 0), 扩展名, , 真)
        新文件名 ＝ 翻译 (待翻译标题)
        超级列表框1.置标题 (i － 1, 1, 新文件名 ＋ 扩展名)
    .如果真结束
    .如果真 (文本_取出现次数 (超级列表框1.取标题 (i － 1, 0), 扩展名2) ＞ 0)
        调试输出 (扩展名2)
        待翻译标题 ＝ 文本_取左边 (超级列表框1.取标题 (i － 1, 0), 扩展名2, , 真)
        新文件名 ＝ 翻译 (待翻译标题)
        超级列表框1.置标题 (i － 1, 1, 新文件名 ＋ 扩展名2)
    .如果真结束
    .如果真 (文本_取出现次数 (超级列表框1.取标题 (i － 1, 0), 扩展名3) ＞ 0)
        待翻译标题 ＝ 文本_取左边 (超级列表框1.取标题 (i － 1, 0), 扩展名3, , 真)
        新文件名 ＝ 翻译 (待翻译标题)
        超级列表框1.置标题 (i － 1, 1, 新文件名 ＋ 扩展名3)
    .如果真结束

.计次循环尾 ()

.子程序 _按钮3_被单击

.如果 (超级列表框1.取表项数 () ＞ 0)
    启动线程 (&进行改名, , )
.否则
    信息框 (“请先选择文件目录”, 4096, “提示”)
.如果结束



.子程序 进行改名
.局部变量 i, 整数型
.局部变量 a, 整数型

a ＝ 超级列表框1.取表项数 ()
进度条1.最大位置 ＝ a
.计次循环首 (a, i)
    进度条1.位置 ＝ i
    文件更名 (编辑框1.内容 ＋ “” ＋ 超级列表框1.取标题 (i － 1, 0), 编辑框1.内容 ＋ “” ＋ 超级列表框1.取标题 (i － 1, 1))
.计次循环尾 ()
.如果真 (信息框 (“批量更名完成。”, 4096, “提示”) ＝ #确认钮)
    进度条1.位置 ＝ 0
.如果真结束


.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 S, 文本型

.如果真 (输入框 (“输入要改的内容”, “提示”, 超级列表框1.取标题 (超级列表框1.现行选中项, 1), S, ))
    超级列表框1.置标题 (超级列表框1.现行选中项, 1, S)
.如果真结束


.子程序 __启动窗口_尺寸被改变

超级列表框1.宽度 ＝ _启动窗口.宽度 － (482 － 464)
超级列表框1.高度 ＝ _启动窗口.高度 － (488 － 296)
超级列表框1.置列宽 (0, 超级列表框1.宽度 ÷ 2 － 2)
超级列表框1.置列宽 (1, 超级列表框1.宽度 ÷ 2 － 2)
分组框1.顶边 ＝ _启动窗口.高度 － 110

.子程序 _导出_被选择
.局部变量 i, 整数型
.局部变量 文本, 文本型
.局部变量 总文本, 文本型

总文本 ＝ “”
.计次循环首 (超级列表框1.取表项数 (), i)
    文本 ＝ 超级列表框1.取标题 (i － 1, 1)
    总文本 ＝ 总文本 ＋ 文本 ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “待改文本 - ” ＋ 到文本 (取现行时间 ()) ＋ “.txt”, 到字节集 (总文本))

.子程序 _导入_被选择
.局部变量 文本, 文本型, , "0"
.局部变量 i, 整数型

通用对话框1.类型 ＝ 0
.如果真 (通用对话框1.打开 ())
    文本 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
    .计次循环首 (取数组成员数 (文本), i)
        处理事件 ()
        .如果真 (文本 [i] ≠ “”)
            超级列表框1.置标题 (i － 1, 1, 文本 [i])
        .如果真结束

    .计次循环尾 ()

.如果真结束




.子程序 _超级列表框1_右键单击表项

弹出菜单 (菜单, , )

@帝火