易语言实现编辑内容输入保存到文本

shiqing123

易语言实现编辑内容输入保存到文本，文本中有如下内容(很多个，只列出来4个）
【测试】
CODE=1
name =231
range = 121313
list = role_456
map = 806,12000,1600

【测试】
CODE=2
name =232
range = 121313
list = role_456
map = 826,12000,1600


【测试】
CODE=3
name =23134
range = 121313
list = role_456
map = 856,12000,1600


【测试】
CODE=4
name =23454
range = 12131312
list = role_45612
map = 87,12000,1600

.................
要求：上面内容可以通过易语言编辑实现，添加1次 增加一段内容  ，同时CODE= 增加1，并保存到txt文本里

温柔小仙女

第二种方法，需求！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
最大CODE值	整数型
内容集合	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

最大CODE值 ＝ 1
内容集合 ＝ “”
编辑框_预览.滚动条 ＝ 2
标题 ＝ “内容编辑器”

子程序名	返回值类型	公开	备 注
_按钮_添加_被单击

变量名	类 型	静态	数组	备 注
新内容块	文本型

如果真 (编辑框_name.内容 ＝ “” 或 编辑框_range.内容 ＝ “” 或 编辑框_list.内容 ＝ “” 或 编辑框_map.内容 ＝ “”)
信息框 (“请填写所有字段内容”, 0, “提示”, )
返回 ()

新内容块 ＝ “【测试】” ＋ #换行符
新内容块 ＝ 新内容块 ＋ “CODE=” ＋ 到文本 (最大CODE值) ＋ #换行符
新内容块 ＝ 新内容块 ＋ “name =” ＋ 编辑框_name.内容 ＋ #换行符
新内容块 ＝ 新内容块 ＋ “range =” ＋ 编辑框_range.内容 ＋ #换行符
新内容块 ＝ 新内容块 ＋ “list =” ＋ 编辑框_list.内容 ＋ #换行符
新内容块 ＝ 新内容块 ＋ “map =” ＋ 编辑框_map.内容 ＋ #换行符 ＋ #换行符
内容集合 ＝ 内容集合 ＋ 新内容块
编辑框_预览.内容 ＝ 内容集合
最大CODE值 ＝ 最大CODE值 ＋ 1
编辑框_name.内容 ＝ “”
编辑框_range.内容 ＝ “”
编辑框_list.内容 ＝ “”
编辑框_map.内容 ＝ “”
信息框 (“已添加第” ＋ 到文本 (最大CODE值 － 1) ＋ “条记录”, 0, “提示”, )

子程序名	返回值类型	公开	备 注
_按钮_保存_被单击

变量名	类 型	静态	数组	备 注
保存路径	文本型

如果真 (内容集合 ＝ “”)
信息框 (“没有可保存的内容，请先添加记录”, 0, “提示”, )
返回 ()

通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.文件名 ＝ “data.txt”
通用对话框1.过滤器 ＝ “文本文件|*.txt|所有文件|*.*”
通用对话框1.标题 ＝ “保存文件”
如果真 (通用对话框1.打开 () ＝ 真)
保存路径 ＝ 通用对话框1.文件名
如果真 (写到文件 (保存路径, 到字节集 (内容集合)) ＝ 真)
信息框 (“保存成功！” ＋ #换行符 ＋ “文件路径：” ＋ 保存路径, 0, “成功”, )

子程序名	返回值类型	公开	备 注
_按钮_清空_被单击

如果真 (信息框 (“确定要清空所有内容吗？”, 1, “确认”, ) ＝ 1)
内容集合 ＝ “”
编辑框_预览.内容 ＝ “”
最大CODE值 ＝ 1
编辑框_name.内容 ＝ “”
编辑框_range.内容 ＝ “”
编辑框_list.内容 ＝ “”
编辑框_map.内容 ＝ “”

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 最大CODE值, 整数型<br /> .程序集变量 内容集合, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 最大CODE值 ＝ 1<br /> 内容集合 ＝ “”<br /> 编辑框_预览.滚动条 ＝ 2<br /> 标题 ＝ “内容编辑器”<br /> <br /> .子程序 _按钮_添加_被单击<br /> .局部变量 新内容块, 文本型<br /> <br /> .如果真 (编辑框_name.内容 ＝ “” 或 编辑框_range.内容 ＝ “” 或 编辑框_list.内容 ＝ “” 或 编辑框_map.内容 ＝ “”)<br />     信息框 (“请填写所有字段内容”, 0, “提示”, )<br />     返回 ()<br /> .如果真结束<br /> <br /> 新内容块 ＝ “【测试】” ＋ #换行符<br /> 新内容块 ＝ 新内容块 ＋ “CODE=” ＋ 到文本 (最大CODE值) ＋ #换行符<br /> 新内容块 ＝ 新内容块 ＋ “name =” ＋ 编辑框_name.内容 ＋ #换行符<br /> 新内容块 ＝ 新内容块 ＋ “range =” ＋ 编辑框_range.内容 ＋ #换行符<br /> 新内容块 ＝ 新内容块 ＋ “list =” ＋ 编辑框_list.内容 ＋ #换行符<br /> 新内容块 ＝ 新内容块 ＋ “map =” ＋ 编辑框_map.内容 ＋ #换行符 ＋ #换行符<br /> <br /> 内容集合 ＝ 内容集合 ＋ 新内容块<br /> 编辑框_预览.内容 ＝ 内容集合<br /> 最大CODE值 ＝ 最大CODE值 ＋ 1<br /> <br /> 编辑框_name.内容 ＝ “”<br /> 编辑框_range.内容 ＝ “”<br /> 编辑框_list.内容 ＝ “”<br /> 编辑框_map.内容 ＝ “”<br /> 信息框 (“已添加第” ＋ 到文本 (最大CODE值 － 1) ＋ “条记录”, 0, “提示”, )<br /> <br /> .子程序 _按钮_保存_被单击<br /> .局部变量 保存路径, 文本型<br /> <br /> .如果真 (内容集合 ＝ “”)<br />     信息框 (“没有可保存的内容，请先添加记录”, 0, “提示”, )<br />     返回 ()<br /> .如果真结束<br /> <br /> 通用对话框1.初始目录 ＝ 取运行目录 ()<br /> 通用对话框1.文件名 ＝ “data.txt”<br /> 通用对话框1.过滤器 ＝ “文本文件|*.txt|所有文件|*.*”<br /> 通用对话框1.标题 ＝ “保存文件”<br /> .如果真 (通用对话框1.打开 () ＝ 真)<br />     保存路径 ＝ 通用对话框1.文件名<br />     .如果真 (写到文件 (保存路径, 到字节集 (内容集合)) ＝ 真)<br />         信息框 (“保存成功！” ＋ #换行符 ＋ “文件路径：” ＋ 保存路径, 0, “成功”, )<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_清空_被单击<br /> <br /> .如果真 (信息框 (“确定要清空所有内容吗？”, 1, “确认”, ) ＝ 1)<br />     内容集合 ＝ “”<br />     编辑框_预览.内容 ＝ “”<br />     最大CODE值 ＝ 1<br />     编辑框_name.内容 ＝ “”<br />     编辑框_range.内容 ＝ “”<br />     编辑框_list.内容 ＝ “”<br />     编辑框_map.内容 ＝ “”<br /> .如果真结束

2.e (6.36 KB, 下载次数: 2)

前天 23:47 上传

点击文件名下载附件

chaochaochao

写入文本不就好了吗

温柔小仙女

  

_添加内容_被单击.版本 2

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
当前最大CODE	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

当前最大CODE ＝ 取当前最大CODE值 ()

子程序名	返回值类型	公开	备 注
_添加内容_被单击

变量名	类 型	静态	数组	备 注
新内容	文本型
name	文本型
range	文本型
list	文本型
map	文本型

name ＝ 编辑框_name.内容
range ＝ 编辑框_range.内容
list ＝ 编辑框_list.内容
map ＝ 编辑框_map.内容
如果 (name ＝ “” 或 range ＝ “” 或 list ＝ “” 或 map ＝ “”)
信息框 (“请填写完整内容！”, 0, “提示”, )
返回 ()
新内容 ＝ “[测试]” ＋ #换行符 ＋ “CODE=” ＋ 到文本 (当前最大CODE ＋ 1) ＋ #换行符 ＋ “name =” ＋ name ＋ #换行符 ＋ “range = ” ＋ range ＋ #换行符 ＋ “list = ” ＋ list ＋ #换行符 ＋ “map = ” ＋ map ＋ #换行符 ＋ #换行符
写到文件 (“data.txt”, 读入文件 (“data.txt”) ＋ 到字节集 (新内容))
当前最大CODE ＝ 当前最大CODE ＋ 1
编辑框_name.内容 ＝ “”
编辑框_range.内容 ＝ “”
编辑框_list.内容 ＝ “”
编辑框_map.内容 ＝ “”
信息框 (“内容添加成功！”, 0, “提示”, )

子程序名	返回值类型	公开	备 注
取当前最大CODE值	整数型

变量名	类 型	静态	数组	备 注
文件内容	文本型
行数组	文本型		0
i	整数型
当前CODE	整数型
最大CODE	整数型

最大CODE ＝ 0
如果 (文件是否存在 (“data.txt”) ＝ 假)
写到文件 (“data.txt”, 到字节集 (“”))
返回 (0)
文件内容 ＝ 到文本 (读入文件 (“data.txt”))

行数组 ＝ 分割文本 (文件内容, #换行符, )
计次循环首 (取数组成员数 (行数组), i)
如果 (寻找文本 (行数组 [i], “CODE=”, , 假) ≠ -1)
当前CODE ＝ 到整数 (取文本右边 (行数组 [i], 取文本长度 (行数组 [i]) － 5))
如果 (当前CODE ＞ 最大CODE)
最大CODE ＝ 当前CODE






计次循环尾 ()
返回 (最大CODE)

_添加内容_被单击.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 当前最大CODE, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 当前最大CODE ＝ 取当前最大CODE值 ()<br /> <br /> .子程序 _添加内容_被单击<br /> .局部变量 新内容, 文本型<br /> .局部变量 name, 文本型<br /> .局部变量 range, 文本型<br /> .局部变量 list, 文本型<br /> .局部变量 map, 文本型<br /> <br /> name ＝ 编辑框_name.内容<br /> range ＝ 编辑框_range.内容<br /> list ＝ 编辑框_list.内容<br /> map ＝ 编辑框_map.内容<br /> .如果 (name ＝ “” 或 range ＝ “” 或 list ＝ “” 或 map ＝ “”)<br />     信息框 (“请填写完整内容！”, 0, “提示”, )<br />     返回 ()<br /> .否则<br />     新内容 ＝ “[测试]” ＋ #换行符 ＋ “CODE=” ＋ 到文本 (当前最大CODE ＋ 1) ＋ #换行符 ＋ “name =” ＋ name ＋ #换行符 ＋ “range = ” ＋ range ＋ #换行符 ＋ “list = ” ＋ list ＋ #换行符 ＋ “map = ” ＋ map ＋ #换行符 ＋ #换行符<br />     写到文件 (“data.txt”, 读入文件 (“data.txt”) ＋ 到字节集 (新内容))<br />     当前最大CODE ＝ 当前最大CODE ＋ 1<br />     编辑框_name.内容 ＝ “”<br />     编辑框_range.内容 ＝ “”<br />     编辑框_list.内容 ＝ “”<br />     编辑框_map.内容 ＝ “”<br />     信息框 (“内容添加成功！”, 0, “提示”, )<br /> .如果结束<br /> <br /> <br /> .子程序 取当前最大CODE值, 整数型<br /> .局部变量 文件内容, 文本型<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 当前CODE, 整数型<br /> .局部变量 最大CODE, 整数型<br /> <br /> 最大CODE ＝ 0<br /> .如果 (文件是否存在 (“data.txt”) ＝ 假)<br />     写到文件 (“data.txt”, 到字节集 (“”))<br />     返回 (0)<br /> .否则<br />     文件内容 ＝ 到文本 (读入文件 (“data.txt”))<br /> .如果结束<br /> <br /> 行数组 ＝ 分割文本 (文件内容, #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (行数组), i)<br />     .如果 (寻找文本 (行数组 <i>, “CODE=”, , 假) ≠ -1)<br />         当前CODE ＝ 到整数 (取文本右边 (行数组 <i>, 取文本长度 (行数组 <i>) － 5))<br />         .如果 (当前CODE ＞ 最大CODE)<br />             最大CODE ＝ 当前CODE<br />         .否则<br /> <br />         .如果结束<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (最大CODE)

1.e (5.28 KB, 下载次数: 1)

前天 23:40 上传

点击文件名下载附件

shiqing123

温柔小仙女 发表于 2025-8-8 23:40
[e=0]_添加内容_被单击.版本 2

.程序集 窗口程序集_启动窗口

少了【测试】

温柔小仙女

shiqing123 发表于 2025-8-8 23:49
少了【测试】

2.e (6.36 KB, 下载次数: 2)

前天 23:52 上传

点击文件名下载附件

初学者小萌妹

温柔小仙女 发表于 2025-8-8 23:40
[e=0]_添加内容_被单击.版本 2

.程序集 窗口程序集_启动窗口

大佬，支持UTF-8么

Ruang

初学者小萌妹 发表于 2025-8-9 08:14
大佬，支持UTF-8么

ANSI编码     

微信的木头人

新建 易程序.e (149 KB, 下载次数: 0)

昨天 09:59 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
新的内容	文本型

如果 (编辑框1.内容 ＝ “”)
返回 ()
新的内容 ＝ 编辑框1.内容 ＋ #换行符
写到文件 (“测试.txt”, 读入文件 (“测试.txt”) ＋ 到字节集 (新的内容))

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 新的内容, 文本型<br /> <br /> <br /> .如果 (编辑框1.内容 ＝ “”)<br />     返回 ()<br /> .否则<br />     新的内容 ＝ 编辑框1.内容 ＋ #换行符<br />     写到文件 (“测试.txt”, 读入文件 (“测试.txt”) ＋ 到字节集 (新的内容))<br /> .如果结束

shiqing123

温柔小仙女 发表于 2025-8-8 23:52

大佬  问下  map=  后面的数字可以设置为从另一个文本框里面选取吗，选取之后 数字变颜色（说明已经被选取）