问个删除文本的问题

你是我的眼哦

编辑框2.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\data.txt”))

写到文件 (取运行目录 () ＋ “\data.txt”, 读入文件 (取运行目录 () ＋ “\data.txt”) ＋ 到字节集 (A组 [循环] ＋ #换行符))


data.txt这个文本，我只想存200条数据
比如说，data.txt已经有200条数据了，今次获取到15条新数据，我就将200条数据中最开始获取到的15条删掉，然后新增今次获取到的15条，反正data.txt总数不超过200，应该怎么写。

Ruang

以换行符为一段为列

先读入文本到变量

产生的文本数据加入到变量，一般在尾部加入新数据

换行符分割文本，判断是否大于200组数据

大于200组后 取出组数减去200得到要删除的几段文本

删除成员（） 删除前几个成员，然后计次数组导入文本

补充内容 (2025-11-9 00:35):
导入文本变量后再写出即可

Ruang

  

子程序名	返回值类型	公开	备 注
功能_保持指定段数数据	文本型
参数名	类 型	参考	可空	数组	备 注
参_文件路径	文本型				注意文本编码
参_保留几段	整数型
参_添加数据	文本型

变量名	类 型	静态	数组	备 注
局_文本	文本型
局_文本数组	文本型		0
局_计次	整数型
局_欲删除段数	整数型

局_文本 ＝ 到文本 (读入文件 (参_文件路径))
局_文本 ＝ 局_文本 ＋ #换行符 ＋ 参_添加数据
局_文本数组 ＝ 分割文本 (局_文本, #换行符, )
如果真 (取数组成员数 (局_文本数组) ＞ 参_保留几段)
局_欲删除段数 ＝ 取数组成员数 (局_文本数组) － 参_保留几段
删除成员 (局_文本数组, 1, 局_欲删除段数)
局_文本 ＝ “”
计次循环首 (取数组成员数 (局_文本数组), 局_计次)
局_文本 ＝ 局_文本 ＋ 局_文本数组 [局_计次] ＋ #换行符
计次循环尾 ()
返回 (局_文本)

.版本 2<br /> <br /> .子程序 功能_保持指定段数数据, 文本型<br /> .参数 参_文件路径, 文本型, , 注意文本编码<br /> .参数 参_保留几段, 整数型<br /> .参数 参_添加数据, 文本型, 可空<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_文本数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_欲删除段数, 整数型<br /> <br /> 局_文本 ＝ 到文本 (读入文件 (参_文件路径))<br /> 局_文本 ＝ 局_文本 ＋ #换行符 ＋ 参_添加数据<br /> 局_文本数组 ＝ 分割文本 (局_文本, #换行符, )<br /> .如果真 (取数组成员数 (局_文本数组) ＞ 参_保留几段)<br />     局_欲删除段数 ＝ 取数组成员数 (局_文本数组) － 参_保留几段<br />     删除成员 (局_文本数组, 1, 局_欲删除段数)<br />     局_文本 ＝ “”<br />     .计次循环首 (取数组成员数 (局_文本数组), 局_计次)<br />         局_文本 ＝ 局_文本 ＋ 局_文本数组 [局_计次] ＋ #换行符<br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (局_文本)

未经调试，请自行调试

Ruang

  

子程序名	返回值类型	公开	备 注
功能_保持指定段数数据	逻辑型		写出是否成功
参数名	类 型	参考	可空	数组	备 注
参_文件路径	文本型				注意文本编码
参_保留几段	整数型
参_添加数据	文本型

变量名	类 型	静态	数组	备 注
局_文本	文本型
局_文本数组	文本型		0
局_计次	整数型
局_欲删除段数	整数型

局_文本 ＝ 到文本 (读入文件 (参_文件路径))
局_文本 ＝ 局_文本 ＋ #换行符 ＋ 参_添加数据
局_文本数组 ＝ 分割文本 (局_文本, #换行符, )
如果真 (取数组成员数 (局_文本数组) ＞ 参_保留几段)
局_欲删除段数 ＝ 取数组成员数 (局_文本数组) － 参_保留几段
删除成员 (局_文本数组, 1, 局_欲删除段数)
局_文本 ＝ “”
计次循环首 (取数组成员数 (局_文本数组), 局_计次)
局_文本 ＝ 局_文本 ＋ 局_文本数组 [局_计次] ＋ #换行符
计次循环尾 ()
返回 (写到文件 (参_文件路径, 到字节集 (局_文本)))

.版本 2<br /> <br /> .子程序 功能_保持指定段数数据, 逻辑型, , 写出是否成功<br /> .参数 参_文件路径, 文本型, , 注意文本编码<br /> .参数 参_保留几段, 整数型<br /> .参数 参_添加数据, 文本型, 可空<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_文本数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_欲删除段数, 整数型<br /> <br /> 局_文本 ＝ 到文本 (读入文件 (参_文件路径))<br /> 局_文本 ＝ 局_文本 ＋ #换行符 ＋ 参_添加数据<br /> 局_文本数组 ＝ 分割文本 (局_文本, #换行符, )<br /> .如果真 (取数组成员数 (局_文本数组) ＞ 参_保留几段)<br />     局_欲删除段数 ＝ 取数组成员数 (局_文本数组) － 参_保留几段<br />     删除成员 (局_文本数组, 1, 局_欲删除段数)<br />     局_文本 ＝ “”<br />     .计次循环首 (取数组成员数 (局_文本数组), 局_计次)<br />         局_文本 ＝ 局_文本 ＋ 局_文本数组 [局_计次] ＋ #换行符<br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (写到文件 (参_文件路径, 到字节集 (局_文本)))

直接写出到指定文件

Ruang

  

子程序名	返回值类型	公开	备 注
功能_保持指定段数数据	逻辑型		写出是否成功
参数名	类 型	参考	可空	数组	备 注
参_文件路径	文本型				注意文本编码
参_保留几段	整数型
参_添加数据	文本型

变量名	类 型	静态	数组	备 注
局_文本	文本型
局_文本数组	文本型		0
局_计次	整数型
局_欲删除段数	整数型

局_文本 ＝ 到文本 (读入文件 (参_文件路径))
局_文本 ＝ 局_文本 ＋ 参_添加数据  ' 这段文本删减了 换行符 避免后续添加会出现空行
局_文本数组 ＝ 分割文本 (局_文本, #换行符, )
如果真 (取数组成员数 (局_文本数组) ＞ 参_保留几段)
局_欲删除段数 ＝ 取数组成员数 (局_文本数组) － 参_保留几段
删除成员 (局_文本数组, 1, 局_欲删除段数)
局_文本 ＝ “”
计次循环首 (取数组成员数 (局_文本数组), 局_计次)
局_文本 ＝ 局_文本 ＋ 局_文本数组 [局_计次] ＋ #换行符
计次循环尾 ()
返回 (写到文件 (参_文件路径, 到字节集 (局_文本)))

.版本 2<br /> <br /> .子程序 功能_保持指定段数数据, 逻辑型, , 写出是否成功<br /> .参数 参_文件路径, 文本型, , 注意文本编码<br /> .参数 参_保留几段, 整数型<br /> .参数 参_添加数据, 文本型, 可空<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_文本数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_欲删除段数, 整数型<br /> <br /> 局_文本 ＝ 到文本 (读入文件 (参_文件路径))<br /> 局_文本 ＝ 局_文本 ＋ 参_添加数据  ' 这段文本删减了 换行符 避免后续添加会出现空行<br /> 局_文本数组 ＝ 分割文本 (局_文本, #换行符, )<br /> .如果真 (取数组成员数 (局_文本数组) ＞ 参_保留几段)<br />     局_欲删除段数 ＝ 取数组成员数 (局_文本数组) － 参_保留几段<br />     删除成员 (局_文本数组, 1, 局_欲删除段数)<br />     局_文本 ＝ “”<br />     .计次循环首 (取数组成员数 (局_文本数组), 局_计次)<br />         局_文本 ＝ 局_文本 ＋ 局_文本数组 [局_计次] ＋ #换行符<br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (写到文件 (参_文件路径, 到字节集 (局_文本)))

20040909

1111111111111111111111111111111111111111111111

曲终人散

谢谢大栳