txt文本分割问题

小观众

求一个demo


txt分别是按照行分    一个是按照份数平均分



一个txt有多行，例如20一行分，然后另存为1.txt  2.txt ……
另一种  按照设定份数   把这个txt平均分成 N份  然后同样另存1.txt  2.txt …

ck小镇

不好意思  
上面的两个源码经过测试还是有bug

这次都修复了

下面是最最最最新的

神女软件定制

打开文件，读入一行，写出一行，这3个

已注销622479

打开文件，拿到文件号
按行分，用读入一行操作
按份分，获取文件总行数，取余运算\，一次读入多行操作

ck小镇

给你写了个 最简单的例子

源码文件在后面

  

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

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

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

置随机数种子 ()
计次循环首 (取随机数 (100, 300), i)
标签1.标题 ＝ 到文本 (到整数 (标签1.标题) ＋ 1) ＋ “ 行”
编辑框1.内容 ＝ 编辑框1.内容 ＋ 到文本 (取随机数 (100000000, 10000000000)) ＋ #换行符
计次循环尾 ()

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

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

文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (文本组), i)
如果真 (n ＝ 20)
n ＝ 0
n2 ＝ n2 ＋ 1
写到文件 (“.\” ＋ 到文本 (n2) ＋ “.txt”, 到字节集 (文本))
文本 ＝ “”
文本 ＝ 文本 ＋ 文本组 [i] ＋ #换行符
n ＝ n ＋ 1
计次循环尾 ()
信息框 (“保存成功”, 0, , )

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

变量名	类 型	静态	数组	备 注
文本组	文本型		0
i	整数型
n	整数型
n2	整数型
文本	文本型
平均行数	整数型

文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )
平均行数 ＝ 取数组成员数 (文本组) ÷ 到整数 (编辑框2.内容)
计次循环首 (取数组成员数 (文本组), i)
如果真 (n ＝ 平均行数)
n ＝ 0
n2 ＝ n2 ＋ 1
写到文件 (“.\” ＋ 到文本 (n2) ＋ “.txt”, 到字节集 (文本))
文本 ＝ “”
文本 ＝ 文本 ＋ 文本组 [i] ＋ #换行符
n ＝ n ＋ 1
计次循环尾 ()
信息框 (“保存成功”, 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (取随机数 (100, 300), i)<br />     标签1.标题 ＝ 到文本 (到整数 (标签1.标题) ＋ 1) ＋ “ 行”<br />     编辑框1.内容 ＝ 编辑框1.内容 ＋ 到文本 (取随机数 (100000000, 10000000000)) ＋ #换行符<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 n2, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> <br /> 文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (文本组), i)<br />     .如果真 (n ＝ 20)<br />         n ＝ 0<br />         n2 ＝ n2 ＋ 1<br />         写到文件 (“.\” ＋ 到文本 (n2) ＋ “.txt”, 到字节集 (文本))<br />         文本 ＝ “”<br /> <br />     .如果真结束<br />     文本 ＝ 文本 ＋ 文本组 <i> ＋ #换行符<br />     n ＝ n ＋ 1<br /> .计次循环尾 ()<br /> <br /> 信息框 (“保存成功”, 0, , )<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 n2, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 平均行数, 整数型<br /> <br /> <br /> 文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 平均行数 ＝ 取数组成员数 (文本组) ÷ 到整数 (编辑框2.内容)<br /> <br /> .计次循环首 (取数组成员数 (文本组), i)<br />     .如果真 (n ＝ 平均行数)<br />         n ＝ 0<br />         n2 ＝ n2 ＋ 1<br />         写到文件 (“.\” ＋ 到文本 (n2) ＋ “.txt”, 到字节集 (文本))<br />         文本 ＝ “”<br /> <br />     .如果真结束<br />     文本 ＝ 文本 ＋ 文本组 <i> ＋ #换行符<br />     n ＝ n ＋ 1<br /> .计次循环尾 ()<br /> <br /> 信息框 (“保存成功”, 0, , )

ck小镇

上面那个忘了处理剩余文本


这个是新的

小观众

ck小镇 发表于 2020-7-19 16:04
不好意思  
上面的两个源码经过测试还是有bug

还有最新的吗  哈哈哈哈哈

ck小镇

小观众 发表于 2020-7-19 16:17
还有最新的吗  哈哈哈哈哈

我测试了 没问题了呀 如果有帮到你，记得采纳一下哦