VB 拆分TEXT内容

来源：百度知道 编辑：UC知道 时间：2024/05/16 18:10:38
2个textbox，1个command
txt1里输入内容 （内容数量是 行 计算的）
txt2里输入拆分的数 X
然后按按钮 把他们平均分成 X份
然后在本程序目录下生成X个文本文档
把X份内容分别写入文本文档

不知道有没有说明白= =
3楼那个,改怎么感觉和重新做一样= =
2楼,平均是 行
比如有4行, X=2, 那就是 2行 为一份

dim s() as string
dim each as long
dim i as long
s=split(txt1,vbcrlf) '按行分到数组s()
each=(ubound(s)+1) \ val(txt2) '每文件行数
for i=0 to ubound(s)
if i mod each=0 and ((i mod each)+1<=val(txt2)) then
close 1
open app.path & "\" & cstr((i mod each)+1)) & ".txt" for output as #1
end if
print #1,s(i)
next i
close 1

你的意思是要做个文本分割器是么？？我写过 这有源代码 需要么
已经发送
郁闷 其实很简单啊 你就把我那个导入到Text控件例 然后对Text控件读取就是了啊 很简单的啊

不就是循环麻...
不过你说是平均分为 x 份
你说的平均是什麼定义
一行一行也算是平均呀...
一个字一个字 还是什麼定义呀?