超大文本分成小文本

leloveying

1111----2222
3333----4444
111----1111
这种格式文本文档里边1000万行
如何快速分成每50万个一个小txt

chenboss

大文本分段保存小文本.e

frankiy

打开文件。。。
读入字节集。。。
写到文件。

一个文件分2次读入，就是写成2个文件了。当然，以字节集模式读入，可能会导致中间某一条断掉。

cqcc

  

变量名	类 型	静态	数组	备 注
文件号	整数型
文件行数	长整数型
n	整数型
i	整数型

文件行数 ＝ 文本_取行数 (“c:\txt.txt”)
文件号 ＝ 打开文件 (, , )
如果 (文件行数 ％ 500 ＞ 0)
n ＝ 到整数 (文件行数 ÷ 500) ＋ 1
n ＝ 到整数 (文件行数 ÷ 500)

计次循环首 (n, i)
移动读写位置 (文件号, #文件首, (i － 1) × 500)
写到文件 (“c:\” ＋ 到文本 (i) ＋ “.txt”, 读入字节集 (文件号, 500))
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 文件号, 整数型<br /> .局部变量 文件行数, 长整数型<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 文件行数 ＝ 文本_取行数 (“c:\txt.txt”)<br /> 文件号 ＝ 打开文件 (, , )<br /> .如果 (文件行数 ％ 500 ＞ 0)<br />     n ＝ 到整数 (文件行数 ÷ 500) ＋ 1<br /> .否则<br />     n ＝ 到整数 (文件行数 ÷ 500)<br /> .如果结束<br /> <br /> .计次循环首 (n, i)<br />     移动读写位置 (文件号, #文件首, (i － 1) × 500)<br />     写到文件 (“c:\” ＋ 到文本 (i) ＋ “.txt”, 读入字节集 (文件号, 500))<br /> .计次循环尾 ()