如何获取到指定文本以后并删除

麦克格雷迪

比如我有个记事本，里面的内容是这样的。
11111
22222
33333
44444
55555
66666
77777
88888
99999
1010101010
假设一共有上面十行内容，那么如何随机获取里面的某一行内容，并删除掉该行内容？
比如我随机取到66666，那么记事本里面就变成这样的。
11111
22222
33333
44444
55555
77777
88888
99999
1010101010

我试过文本替换，但是取到的那一行会成为空白行。

木小果

DEMO.e (843.47 KB, 下载次数: 5)

2020-4-6 16:46 上传

点击文件名下载附件

1185384801

精易模块->文本_寻找出文本并删除

麦克格雷迪

1185384801 发表于 2020-4-6 16:39
精易模块->文本_寻找出文本并删除

我是随机取文本，根本不知道前后是什么内容

sunsir

存到数组里边，再从数组里删除不行吗？

微妙

  

变量名	类 型	静态	数组	备 注
内容	文本型
文件路径	文本型
文本行	整数型

内容 ＝ 读入文件 (文件路径)
文本行 ＝ 文本_取文本所在行 (内容, “66666666”, )
文本_删除指定文件行 (文件路径, 文本行)

.版本 2<br /> <br /> .局部变量 内容, 文本型<br /> .局部变量 文件路径, 文本型<br /> .局部变量 文本行, 整数型<br /> <br /> 内容 ＝ 读入文件 (文件路径)<br /> 文本行 ＝ 文本_取文本所在行 (内容, “66666666”, )<br /> 文本_删除指定文件行 (文件路径, 文本行)

精易模块


补充内容 (2020-4-6 16:51):
“66666666”是你取出来的内容

补充内容 (2020-4-6 16:54):
.版本 2

行数 ＝ 文本_取行数 (内容)
置随机数种子 ()
随机行数 ＝ 取随机数 (1, 行数)
随机文本 ＝ 文本_取指定文件文本行 (文件路径, 随机行数)


补充内容 (2020-4-6 16:54):
这样可以取随机文本

心中的沉默

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

置随机数种子 ()

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

变量名	类 型	静态	数组	备 注
局_文本总行	整数型
局_原始文本	文本型
局_删除后文本	文本型

局_文本总行 ＝ 文本_取行数 (局_原始文本)
局_删除后文本 ＝ 文本_删除指定文本行 (局_原始文本, 取随机数 (1, 局_文本总行))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 置随机数种子 ()<br /> <br /> <br /> .子程序 子程序1<br /> .局部变量 局_文本总行, 整数型<br /> .局部变量 局_原始文本, 文本型<br /> .局部变量 局_删除后文本, 文本型<br /> <br /> 局_文本总行 ＝ 文本_取行数 (局_原始文本)<br /> 局_删除后文本 ＝ 文本_删除指定文本行 (局_原始文本, 取随机数 (1, 局_文本总行))

你要删的是里面随机的一个行直接随机删除行即可，在原文本不知道的情况下，直接删除随机行

白嫖之黑

  

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

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

编辑框1.内容 ＝ 删除随机行数 (编辑框1.内容)

子程序名	返回值类型	公开	备 注
删除随机行数	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
i	整数型
h	整数型		0
n	整数型

i ＝ 0
判断循环首 (i ≠ -1)
i ＝ 寻找文本 (文本, #换行符, i ＋ 1, 假)
如果真 (i ≠ -1)
加入成员 (h, i)

判断循环尾 ()
如果真 (取数组成员数 (h) ＝ 0)
返回 (子文本替换 (文本, 文本, , , , 真))
置随机数种子 ()
n ＝ 取随机数 (1, 取数组成员数 (h))
如果真 (n ＝ 取数组成员数 (h))
返回 (文本替换 (文本, h [n], 取文本长度 (文本) ＋ 1 － h [n], ))
返回 (文本替换 (文本, h [n], h [n ＋ 1] － h [n], ))

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框1.内容 ＝ 删除随机行数 (编辑框1.内容)<br /> <br /> .子程序 删除随机行数, 文本型<br /> .参数 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 h, 整数型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> i ＝ 0<br /> .判断循环首 (i ≠ -1)<br />     i ＝ 寻找文本 (文本, #换行符, i ＋ 1, 假)<br />     .如果真 (i ≠ -1)<br />         加入成员 (h, i)<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> .如果真 (取数组成员数 (h) ＝ 0)<br />     返回 (子文本替换 (文本, 文本, , , , 真))<br /> .如果真结束<br /> 置随机数种子 ()<br /> n ＝ 取随机数 (1, 取数组成员数 (h))<br /> .如果真 (n ＝ 取数组成员数 (h))<br />     返回 (文本替换 (文本, h [n], 取文本长度 (文本) ＋ 1 － h [n], ))<br /> .如果真结束<br /> 返回 (文本替换 (文本, h [n], h [n ＋ 1] － h [n], ))

wl5211314

用文本替换 然后删除空行精易模块就有