怎么写入本地txt，求

冷眸藐视

附件
例子.zip (214.04 KB, 下载次数: 5)

2024-11-5 17:31 上传

点击文件名下载附件

cobi

  

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

变量名	类 型	静态	数组	备 注
写入内容	文本型
写出内容	文本型
文件路径	文本型
旧数据	文本型		0
新数据	文本型		0
已更新	逻辑型
空白行	整数型
上一序号	整数型
o	整数型
n	整数型
i	整数型
k	整数型

写入内容 ＝ 编辑框1.内容
文件路径 ＝ 取运行目录 () ＋ “\菜单.txt”
如果真 (文件是否存在 (文件路径) 且 写入内容 ≠ “”)
旧数据 ＝ 分割文本 (到文本 (读入文件 (文件路径)), #换行符, )
o ＝ 取数组成员数 (旧数据)
计次循环首 (o, i)
如果真 (i ≠ 到整数 (旧数据 [i]))
如果真 (取反 (已更新))
已更新 ＝ 真
判断 (旧数据 [i] ＝ “”)
加入成员 (新数据, 到文本 (i) ＋ “.” ＋ 写入内容)
计次循环首 (o, k)
k ＝ k ＋ i － 1
如果真 (k ＞ o)
跳出循环 ()
判断 (旧数据 [k] ＝ “”)
空白行 ＝ 空白行 ＋ 1
如果真 (i ＋ 空白行 ≠ 到整数 (旧数据 [k]))
加入成员 (新数据, “”)
跳出循环 ()

计次循环尾 ()
到循环尾 ()
加入成员 (新数据, 到文本 (上一序号 ＋ 1) ＋ “.” ＋ 写入内容)
到循环尾 ()


加入成员 (新数据, 旧数据 [i])
上一序号 ＝ i
计次循环尾 ()
n ＝ 取数组成员数 (新数据)
判断 (n ＞ 0)
如果真 (取反 (已更新) 且 新数据 [n] ≠ 写入内容)
加入成员 (新数据, 到文本 (o ＋ 1) ＋ “.” ＋ 写入内容)

加入成员 (新数据, “1.” ＋ 写入内容)

计次循环首 (n, i)
判断 (n ＝ i)
写出内容 ＝ 写出内容 ＋ 新数据 [i]
写出内容 ＝ 写出内容 ＋ 新数据 [i] ＋ #换行符

计次循环尾 ()
如果真 (写到文件 (文件路径, 到字节集 (写出内容)))
编辑框1.内容 ＝ “”

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 写入内容, 文本型<br /> .局部变量 写出内容, 文本型<br /> .局部变量 文件路径, 文本型<br /> .局部变量 旧数据, 文本型, , "0"<br /> .局部变量 新数据, 文本型, , "0"<br /> .局部变量 已更新, 逻辑型<br /> .局部变量 空白行, 整数型<br /> .局部变量 上一序号, 整数型<br /> .局部变量 o, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> <br /> 写入内容 ＝ 编辑框1.内容<br /> 文件路径 ＝ 取运行目录 () ＋ “\菜单.txt”<br /> .如果真 (文件是否存在 (文件路径) 且 写入内容 ≠ “”)<br />     旧数据 ＝ 分割文本 (到文本 (读入文件 (文件路径)), #换行符, )<br />     o ＝ 取数组成员数 (旧数据)<br />     .计次循环首 (o, i)<br />         .如果真 (i ≠ 到整数 (旧数据 <i>))<br />             .如果真 (取反 (已更新))<br />                 已更新 ＝ 真<br />                 .判断开始 (旧数据 <i> ＝ “”)<br />                     加入成员 (新数据, 到文本 (i) ＋ “.” ＋ 写入内容)<br />                     .计次循环首 (o, k)<br />                         k ＝ k ＋ i － 1<br />                         .如果真 (k ＞ o)<br />                             跳出循环 ()<br />                         .如果真结束<br />                         .判断开始 (旧数据 [k] ＝ “”)<br />                             空白行 ＝ 空白行 ＋ 1<br />                         .默认<br />                             .如果真 (i ＋ 空白行 ≠ 到整数 (旧数据 [k]))<br />                                 加入成员 (新数据, “”)<br />                             .如果真结束<br />                             跳出循环 ()<br />                         .判断结束<br /> <br />                     .计次循环尾 ()<br />                     到循环尾 ()<br />                 .默认<br />                     加入成员 (新数据, 到文本 (上一序号 ＋ 1) ＋ “.” ＋ 写入内容)<br />                     到循环尾 ()<br />                 .判断结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br />         加入成员 (新数据, 旧数据 <i>)<br />         上一序号 ＝ i<br />     .计次循环尾 ()<br />     n ＝ 取数组成员数 (新数据)<br />     .判断开始 (n ＞ 0)<br />         .如果真 (取反 (已更新) 且 新数据 [n] ≠ 写入内容)<br />             加入成员 (新数据, 到文本 (o ＋ 1) ＋ “.” ＋ 写入内容)<br />         .如果真结束<br /> <br />     .默认<br />         加入成员 (新数据, “1.” ＋ 写入内容)<br />     .判断结束<br /> <br />     .计次循环首 (n, i)<br />         .判断开始 (n ＝ i)<br />             写出内容 ＝ 写出内容 ＋ 新数据 <i><br />         .默认<br />             写出内容 ＝ 写出内容 ＋ 新数据 <i> ＋ #换行符<br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (写到文件 (文件路径, 到字节集 (写出内容)))<br />         编辑框1.内容 ＝ “”<br />     .如果真结束<br /> <br /> .如果真结束

刚才那份没复制全哈哈，补上~

E语言|菜鸟

1.获取总行数
2.循环全部行并记录下标
3.判断循环到的当前行是否为空，为空则从这行开始的 减一行索引位置  去获取上一行的  .之前的数字
4.把获取到的数字+1 ，检测要补的那一行是否为空，为空则开始按顺序填充
5.循环直到当前行不是为空了，就表示一段空白的地方补充完成，那么就重新来一轮上面的，继续循环判断
6.直到某一次是直接检测不到任何一行空行了，那么就表示已全部补充完成，程序结束。

hongqingfeng

还有日本鬼子，易语言太厉害了，小鬼子都会用了

hongqingfeng

意思是说补全了那个空行还要？

LEOONL

插入之后 你原本的空行怎么办，继续保留？ 但你的空行不够插，那是要等插满才继续自动添加换行符插，还是空行无所谓，可以自由添加删除

冷眸藐视

LEOONL 发表于 2024-11-5 18:07
插入之后 你原本的空行怎么办，继续保留？ 但你的空行不够插，那是要等插满才继续自动添加换行符插，还是空 ...

原本的空行不变，插入一个，只要顺序没有补全，就是空行不变的，快接近下面的顺序的时候，空行才按照顺序减掉

LEOONL

冷眸藐视 发表于 2024-11-5 18:10
原本的空行不变，插入一个，只要顺序没有补全，就是空行不变的，快接近下面的顺序的时候，空行才按照顺序 ...

你这个要在叠加基础上保留空行太难算了，懒得写了

冷眸藐视

LEOONL 发表于 2024-11-5 19:22
你这个要在叠加基础上保留空行太难算了，懒得写了

那就不保留看看

sqg88

好了你看看，是不是你想要的