精易论坛

标题: 易语言实现编辑内容输入保存到文本 [打印本页]
作者: shiqing123    时间: 前天 23:12
标题: 易语言实现编辑内容输入保存到文本
易语言实现编辑内容输入保存到文本，文本中有如下内容(很多个，只列出来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文本里
作者: 温柔小仙女    时间: 前天 23:12
第二种方法，需求！


  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
最大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.e (6.36 KB, 下载次数: 2)