导入一个文本。没一百条分成一个文本。求源码

Meself

导入一个文本。没一百条分成一个文本。求源码，，大哥。大姐。求帮忙啊。。


补充内容 (2014-12-5 04:09):
每一百条分成一个。如果有多余的。把她另外分成一份。

杨子

每一百保存一次1.rar (1.26 KB, 下载次数: 6)

2014-12-5 11:14 上传

点击文件名下载附件
已经修正了 换行符 请楼主下载

猥琐小胖子

没看懂啥意思

Meself

猥琐小胖子 发表于 2014-12-5 06:37
没看懂啥意思

例如一个文本。有813行。然后导入软件。软件导出九个文本。 也就是八个一个条的。一个13条的。

补充内容 (2014-12-5 06:56):
八个一百条的。一个十三条的。。

猥琐小胖子

Crazyforlove 发表于 2014-12-5 06:50
例如一个文本。有813行。然后导入软件。软件导出九个文本。 也就是八个一个条的。一个13条的。

补充内容 ...

  

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

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

变量名	类 型	静态	数组	备 注
path	文本型
gettxt	文本型
gettxtsz	文本型		0
i	整数型
id	整数型
fileid	整数型
filename	文本型

path ＝ 取运行目录 () ＋ “\813.txt”
gettxt ＝ 到文本 (读入文件 (path))
gettxtsz ＝ 分割文本 (gettxt, #换行符, )
id ＝ 1
filename ＝ 取运行目录 () ＋ “\” ＋ 到文本 (id) ＋ “.txt”
写到文件 (filename, {  })
fileid ＝ 打开文件 (filename, , )
调试输出 (取数组成员数 (gettxtsz))
计次循环首 (取数组成员数 (gettxtsz), i)
如果 (i ％ 100 ＝ 0)
写文本行 (fileid, gettxtsz [i])
关闭文件 (fileid)
id ＝ id ＋ 1
filename ＝ 取运行目录 () ＋ “\” ＋ 到文本 (id) ＋ “.txt”
写到文件 (filename, {  })
fileid ＝ 打开文件 (filename, , )

写文本行 (fileid, gettxtsz [i])

计次循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 path, 文本型<br /> .局部变量 gettxt, 文本型<br /> .局部变量 gettxtsz, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 id, 整数型<br /> .局部变量 fileid, 整数型<br /> .局部变量 filename, 文本型<br /> <br /> path ＝ 取运行目录 () ＋ “\813.txt”<br /> gettxt ＝ 到文本 (读入文件 (path))<br /> gettxtsz ＝ 分割文本 (gettxt, #换行符, )<br /> id ＝ 1<br /> filename ＝ 取运行目录 () ＋ “\” ＋ 到文本 (id) ＋ “.txt”<br /> 写到文件 (filename, {  })<br /> fileid ＝ 打开文件 (filename, , )<br /> 调试输出 (取数组成员数 (gettxtsz))<br /> .计次循环首 (取数组成员数 (gettxtsz), i)<br />     .如果 (i ％ 100 ＝ 0)<br />         写文本行 (fileid, gettxtsz <i>)<br />         关闭文件 (fileid)<br />         id ＝ id ＋ 1<br />         filename ＝ 取运行目录 () ＋ “\” ＋ 到文本 (id) ＋ “.txt”<br />         写到文件 (filename, {  })<br />         fileid ＝ 打开文件 (filename, , )<br /> <br />     .否则<br />         写文本行 (fileid, gettxtsz <i>)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

猥琐小胖子

猥琐小胖子 发表于 2014-12-5 07:21
[e=1].版本 2
.支持库 spec

1.rar (291.03 KB, 下载次数: 4)

2014-12-5 07:23 上传

点击文件名下载附件

剩下我de孩子气

加我下Q吧晚上发你

杨子

每一百保存一次.rar (1.28 KB, 下载次数: 2)

2014-12-5 10:42 上传

点击文件名下载附件 源码奉上 请给予最佳
效果 每一百次 保存一个文档 剩余的保存一个文档


补充内容 (2014-12-5 10:43):
源码内读取的文档名 为812.txt  楼主可自行更改替换

补充内容 (2014-12-5 11:13):
这个源码 忘记加#换行符了
请看8楼的源码