易语言文件编码转换

易语言文件编码转换

.版本 2

.程序集 窗口程序集1

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

组合框1.现行选中项 ＝ 0' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _按钮2_被单击, , , ' 本源码来自三叶资源网(www.sanye.cx)

通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
    编辑框1.内容 ＝ 通用对话框1.文件名
.如果真结束


.子程序 _按钮1_被单击
.局部变量 临时文件, 文本型
.局部变量 编码特征, 文本型

.如果真 (编辑框1.内容 ＝ “”)
    信息框 (“文件路径不能为空!”, #信息图标, “提示”)
    返回 ()
.如果真结束

.如果 (选择框1.选中)
    临时文件 ＝ 编辑框1.内容 ＋ “.bak”
    .如果真 (文件是否存在 (临时文件))
        删除文件 (临时文件)
    .如果真结束
    文件更名 (编辑框1.内容, 临时文件)

    编码特征 ＝ 文件_编码转换 (临时文件, 编辑框1.内容, 组合框1.内容)
    .如果 (编码特征 ≠ “”)
        信息框 (“文件:” ＋ 编辑框1.内容 ＋ #换行符 ＋ “备份:” ＋ 临时文件 ＋ #换行符 ＋ “编码:” ＋ 取文件编码 (临时文件) ＋ #换行符 ＋ “现在:” ＋ 编码特征, #信息图标, “信息”)
    .否则
        信息框 (“转换失败!”, #信息图标, “提示”)
    .如果结束

.否则
    临时文件 ＝ 编辑框1.内容 ＋ “.new”
    编码特征 ＝ 文件_编码转换 (编辑框1.内容, 临时文件, 组合框1.内容)
    .如果 (编码特征 ≠ “”)
        信息框 (“文件:” ＋ 编辑框1.内容 ＋ #换行符 ＋ “转换:” ＋ 临时文件 ＋ #换行符 ＋ “编码:” ＋ 取文件编码 (编辑框1.内容) ＋ #换行符 ＋ “现在:” ＋ 编码特征, #信息图标, “信息”)
    .否则
        信息框 (“转换失败!”, #信息图标, “提示”)
    .如果结束
    ' 本源码来自三叶资源网(www.sanye.cx)
.如果结束


.子程序 _组合框1_失去焦点

.如果真 (组合框1.选择 (组合框1.内容) ＝ -1)
    组合框1.加入项目 (组合框1.内容, )
.如果真结束


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

.如果真 (文件是否存在 (编辑框1.内容 ＋ “.bak”))
    .如果真 (文件是否存在 (编辑框1.内容))
        删除文件 (编辑框1.内容)
    .如果真结束
    文件更名 (编辑框1.内容 ＋ “.bak”, 编辑框1.内容)
.如果真结束

@资源源码站