关于文本操作

落月无痕

比如说一个TXT文本中含有30行，我需要在第15行到30行前加入内容，其他行不变，该怎么实现？求大神指点

mteng

如此简单-- 实例.rar (1.21 KB, 下载次数: 5)

2019-2-15 09:49 上传

点击文件名下载附件
--如此简单--

ly445414237

附件已上传 往采纳

插入 测试.rar (1.46 KB, 下载次数: 4)

2019-2-15 09:16 上传

点击文件名下载附件

落月无痕

ly445414237 发表于 2019-2-15 09:17
附件已上传 往采纳

你没读懂我的意思，比如说第15行是123456789，那么修改后就是AA123456789，以后的16至30行也是这样的格式，都要在每行前加AA

ly445414237

落月无痕 发表于 2019-2-15 09:35
你没读懂我的意思，比如说第15行是123456789，那么修改后就是AA123456789，以后的16至30行也是这样的格式 ...

转变一下就行了 在把14,29 改为 15,30 在这前面的数据加上你想要的的就是 其他可以不变

ly445414237

ly445414237 发表于 2019-2-15 10:05
转变一下就行了 在把14,29 改为 15,30 在这前面的数据加上你想要的的就是 其他可以不变

mteng

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击			**如此简单 -暗夜-永恒

变量名	类 型	静态	数组	备 注
文本	文本型		0
行数	整数型
次数	整数型
文本R	文本型

文本 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “/测试.txt”)), #换行符, )
调试输出 (取数组成员数 (文本))
计次循环首 (取数组成员数 (文本), 行数)
如果 (14 ＜ 行数 且 行数 ＜ 30)
文本 [行数] ＝ 文本 [行数] ＋ “！-已增加”  ' 要添加的文本
调试输出 (文本 [行数])



计次循环尾 ()
计次循环首 (取数组成员数 (文本), 次数)
文本R ＝ 文本R ＋ 文本 [次数] ＋ #换行符
调试输出 (文本R)
写到文件 (取运行目录 () ＋ “/测试.txt”, 到字节集 (文本R))
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击, , , **如此简单 -暗夜-永恒<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 行数, 整数型<br /> .局部变量 次数, 整数型<br /> .局部变量 文本R, 文本型<br /> <br /> 文本 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “/测试.txt”)), #换行符, )<br /> 调试输出 (取数组成员数 (文本))<br /> .计次循环首 (取数组成员数 (文本), 行数)<br />     .如果 (14 ＜ 行数 且 行数 ＜ 30)<br />         文本 [行数] ＝ 文本 [行数] ＋ “！-已增加”  ' 要添加的文本<br />         调试输出 (文本 [行数])<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (文本), 次数)<br />     文本R ＝ 文本R ＋ 文本 [次数] ＋ #换行符<br />     调试输出 (文本R)<br />     写到文件 (取运行目录 () ＋ “/测试.txt”, 到字节集 (文本R))<br /> .计次循环尾 ()

npzs

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
h1
h2
line	文本型
i

h1 ＝ 打开文件 (, , )  ' 打开你的文本文件
h2 ＝ 打开内存文件 ()
移到文件首 (h1)
判断循环首 (是否在文件尾 (h1, ) ＝ 假)
line ＝ 读入一行 (h1)
i ＝ i ＋ 1
如果 (i ≥ 15 且 i ≤ 30)
写出文本 (h2, “AA”, line, #换行符 )
写文本行 (h2, line)

判断循环尾 ()
关闭文件 (h1)
移到文件首 (h2)
line ＝ 读入文本 (h2, )  ' 这是修改后的文本，你可以拿来干别的，或者这句不要，直接：
写到文件 (, 读入字节集 (h2, 取文件长度 (h2)))  ' 直接写回原来的文件
关闭文件 (h2)

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 h1<br /> .局部变量 h2<br /> .局部变量 line, 文本型<br /> .局部变量 i<br /> <br /> h1 ＝ 打开文件 (, , )  ' 打开你的文本文件<br /> h2 ＝ 打开内存文件 ()<br /> 移到文件首 (h1)<br /> .判断循环首 (是否在文件尾 (h1, ) ＝ 假)<br />     line ＝ 读入一行 (h1)<br />     i ＝ i ＋ 1<br />     .如果 (i ≥ 15 且 i ≤ 30)<br />         写出文本 (h2, “AA”, line, #换行符)<br />     .否则<br />         写文本行 (h2, line)<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 关闭文件 (h1)<br /> 移到文件首 (h2)<br /> line ＝ 读入文本 (h2, )  ' 这是修改后的文本，你可以拿来干别的，或者这句不要，直接：<br /> 写到文件 (, 读入字节集 (h2, 取文件长度 (h2)))  ' 直接写回原来的文件<br /> <br /> 关闭文件 (h2)