怎么修改TXT里面的每行内容并保存

jinqi8858

有一个TXT文件有10几万数据,把不是以"----"结尾的行读取出来并修改为以"----"结尾保存,其他数据不变,取文本右边能取出来不带"----"结尾的行,就是想知道怎么修改和保存
A7854----
A1641----
A4564----
A7341
A1651----
A4154----

A7854----
A4587
A4564----

......................

1425113841

考虑到你是大文件, 可以使用我这种方式 新建 文本文档.e (3.42 KB, 下载次数: 18)

2024-9-3 15:38 上传

点击文件名下载附件

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
处理文本	文本型

文本 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\1.txt”)), #换行符, )
计次循环首 (取数组成员数 (文本), n)
如果 (取文本右边 (文本 [n], 4) ＝ “----”)
处理文本 ＝ 处理文本 ＋ 文本 [n] ＋ #换行符
处理文本 ＝ 处理文本 ＋ 文本 [n] ＋ “----” ＋ #换行符

计次循环尾 ()
写到文件 (取运行目录 () ＋ “\2.txt”, 到字节集 (处理文本))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 处理文本, 文本型<br /> <br /> 文本 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\1.txt”)), #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     .如果 (取文本右边 (文本 [n], 4) ＝ “----”)<br />         处理文本 ＝ 处理文本 ＋ 文本 [n] ＋ #换行符<br />     .否则<br />         处理文本 ＝ 处理文本 ＋ 文本 [n] ＋ “----” ＋ #换行符<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\2.txt”, 到字节集 (处理文本))

你不丑

  

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

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

文本处理 (“C:\Users\admin\Desktop\新建文本文档.txt”)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
文本处理
参数名	类 型	参考	可空	数组	备 注
路径	文本型

变量名	类 型	静态	数组	备 注
快速字节集	快速字节集对象
局_原始字节集	字节集
局_字节集分割数组	字节集		0
局_i	整数型
欲处理数据	字节集

快速字节集.从文件读 (路径)
局_原始字节集 ＝ 快速字节集.取字节集 (, )
局_字节集分割数组 ＝ 快速字节集.分割字节集 (到字节集 ( #换行符 ), )
计次循环首 (取数组成员数 (局_字节集分割数组), 局_i)
判断 (寻找字节集 (局_字节集分割数组 [局_i], 到字节集 (“----”), ) ＝ -1)
欲处理数据 ＝ 欲处理数据 ＋ 局_字节集分割数组 [局_i] ＋ 到字节集 (“----” ＋ #换行符 )
欲处理数据 ＝ 欲处理数据 ＋ 局_字节集分割数组 [局_i] ＋ 到字节集 ( #换行符 )

计次循环尾 ()
写到文件 (取运行目录 () ＋ “\结果.txt”, 欲处理数据)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 文本处理 (“C:\Users\admin\Desktop\新建文本文档.txt”)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 文本处理<br /> .参数 路径, 文本型<br /> .局部变量 快速字节集, 快速字节集对象<br /> .局部变量 局_原始字节集, 字节集<br /> .局部变量 局_字节集分割数组, 字节集, , "0"<br /> .局部变量 局_i, 整数型<br /> .局部变量 欲处理数据, 字节集<br /> <br /> 快速字节集.从文件读 (路径)<br /> 局_原始字节集 ＝ 快速字节集.取字节集 (, )<br /> 局_字节集分割数组 ＝ 快速字节集.分割字节集 (到字节集 (#换行符), )<br /> .计次循环首 (取数组成员数 (局_字节集分割数组), 局_i)<br />     .判断开始 (寻找字节集 (局_字节集分割数组 [局_i], 到字节集 (“----”), ) ＝ -1)<br />         欲处理数据 ＝ 欲处理数据 ＋ 局_字节集分割数组 [局_i] ＋ 到字节集 (“----” ＋ #换行符)<br />     .默认<br />         欲处理数据 ＝ 欲处理数据 ＋ 局_字节集分割数组 [局_i] ＋ 到字节集 (#换行符)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\结果.txt”, 欲处理数据)

你不丑

考虑到有空行存在 修改了一下

  

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

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

文本处理 (“C:\Users\admin\Desktop\新建文本文档.txt”)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
文本处理
参数名	类 型	参考	可空	数组	备 注
路径	文本型

变量名	类 型	静态	数组	备 注
快速字节集	快速字节集对象
局_原始字节集	字节集
局_字节集分割数组	字节集		0
局_i	整数型
欲处理数据	字节集

快速字节集.从文件读 (路径)
局_原始字节集 ＝ 快速字节集.取字节集 (, )
局_字节集分割数组 ＝ 快速字节集.分割字节集 (到字节集 ( #换行符 ), )
计次循环首 (取数组成员数 (局_字节集分割数组), 局_i)
如果真 (局_字节集分割数组 [局_i] ＝ {  })
到循环尾 ()
判断 (寻找字节集 (局_字节集分割数组 [局_i], 到字节集 (“----”), ) ＝ -1)
欲处理数据 ＝ 欲处理数据 ＋ 局_字节集分割数组 [局_i] ＋ 到字节集 (“----” ＋ #换行符 )
欲处理数据 ＝ 欲处理数据 ＋ 局_字节集分割数组 [局_i] ＋ 到字节集 ( #换行符 )

计次循环尾 ()
写到文件 (取运行目录 () ＋ “\结果.txt”, 欲处理数据)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 文本处理 (“C:\Users\admin\Desktop\新建文本文档.txt”)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 文本处理<br /> .参数 路径, 文本型<br /> .局部变量 快速字节集, 快速字节集对象<br /> .局部变量 局_原始字节集, 字节集<br /> .局部变量 局_字节集分割数组, 字节集, , "0"<br /> .局部变量 局_i, 整数型<br /> .局部变量 欲处理数据, 字节集<br /> <br /> 快速字节集.从文件读 (路径)<br /> 局_原始字节集 ＝ 快速字节集.取字节集 (, )<br /> 局_字节集分割数组 ＝ 快速字节集.分割字节集 (到字节集 (#换行符), )<br /> .计次循环首 (取数组成员数 (局_字节集分割数组), 局_i)<br />     .如果真 (局_字节集分割数组 [局_i] ＝ {  })<br />         到循环尾 ()<br />     .如果真结束<br />     .判断开始 (寻找字节集 (局_字节集分割数组 [局_i], 到字节集 (“----”), ) ＝ -1)<br />         欲处理数据 ＝ 欲处理数据 ＋ 局_字节集分割数组 [局_i] ＋ 到字节集 (“----” ＋ #换行符)<br />     .默认<br />         欲处理数据 ＝ 欲处理数据 ＋ 局_字节集分割数组 [局_i] ＋ 到字节集 (#换行符)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\结果.txt”, 欲处理数据)

jinqi8858

你不丑 发表于 2024-9-3 15:10
考虑到有空行存在 修改了一下[e=0].版本 2
.支持库 commobj

能不分割吗?分割有点卡

jinqi8858

LEOONL 发表于 2024-9-3 14:53
[e=0].版本 2

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

能不分割吗?分割有点卡

你不丑

jinqi8858 发表于 2024-9-3 15:24
能不分割吗?分割有点卡

不能 必须分割 因为数据要拿出来处理之后在保存 我使用的是快速字节集 理论上几十万数据超级快的

LEOONL

jinqi8858 发表于 2024-9-3 15:24
能不分割吗?分割有点卡

  

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

变量名	类 型	静态	数组	备 注
文本	文本型

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))
文本 ＝ 子文本替换 (文本, “----” ＋ #换行符, #换行符, , , 真)
文本 ＝ 子文本替换 (文本, #换行符, “----” ＋ #换行符, , , 真)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))<br /> 文本 ＝ 子文本替换 (文本, “----” ＋ #换行符, #换行符, , , 真)<br /> 文本 ＝ 子文本替换 (文本, #换行符, “----” ＋ #换行符, , , 真)

jinqi8858

你不丑 发表于 2024-9-3 15:26
不能 必须分割 因为数据要拿出来处理之后在保存 我使用的是快速字节集 理论上几十万数据超级快的 ...

.版本 2
.支持库 spec

sz ＝ 打开文件 (取运行目录 () ＋ “\sfz.txt”, 1, )
i ＝ 1
.循环判断首 ()
    特殊 ＝ 读入一行 (sz)
    i ＝ i ＋ 1  ' 获取行
    .如果真 (取文本右边 (特殊, 4) ≠ “----”)
        调试输出 (i)
        跳出循环 ()
    .如果真结束
    .如果真 (是否在文件尾 (sz, ))
        跳出循环 ()
    .如果真结束


.循环判断尾 (特殊 ≠ “”)


我的意思不是修改全部哦~我的意思是一行一行修改