怎么写入本地txt，求

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.” ＋ 写入内容)

.版本 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.” ＋ 写入内容)

可按顺序添加序号，且保留空白行，直至顺序接近填补空白行。唉~稍微烧脑


补充内容 (2024-11-5 20:54):
这个漏了代码哈！

冷眸藐视

cobi 发表于 2024-11-5 20:55
[e=1].版本 2

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

哥，你逻辑真棒，是这样的