代码编辑框版写的记事本

易语言 2020-07-13 19:01:46

代码编辑框版写的记事本

局部_取出的文本 = 取文本左边 (_启动窗口.标题, 1)
.如果真 (局部_取出的文本 ≠ “*”)
代码编辑框1.置文本 (“”)
程序集_路径 = “”
程序集_内容 = 到字节集 (代码编辑框1.取文本 (代码编辑框1.取长度 ()))
_启动窗口.标题 = “无标题 - ” + #常量_软件名字
返回 ()
.如果真结束
局部_信息框结果 = 信息框 (“保存更改到 ” + 程序集_路径 + “?”, #取消是否钮, , )
.如果真 (局部_信息框结果 = #是钮)
程序集_内容 = 到字节集 (代码编辑框1.取文本 (代码编辑框1.取长度 ()))
通用对话框1.类型 = 1
.如果真 (通用对话框1.打开 ())
局部_路径 = 通用对话框1.文件名
局部_写到结果 = 写到文件 (局部_路径, 程序集_内容)
.如果真 (局部_写到结果 = 假)
信息框 (“保存文件失败”, 0, “Notepad E ++”)

.如果真结束
程序集_路径 = “无标题”
_启动窗口.标题 = 程序集_路径 + “ - Notepad E ++”
代码编辑框1.置文本 (“”)
.如果真结束
返回 ()
.如果真结束
.如果真 (局部_信息框结果 = #否钮)
程序集_路径 = “无标题”
程序集_内容 = { }
_启动窗口.标题 = 程序集_路径 + “ - Notepad E ++”
代码编辑框1.置文本 (“”)