一个文件操作的问题求助!
效果如图 "
http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/cadb3d2ee69cbb584fc226d3.jpg
就是将文本框里面的几万行数据 按顺序取2000行,存为 "数据01.txt,数据02.txt........等文件,存于 "我的文档 "目录下.
数据比较多 不知道会不会死机,哈哈.
分数不多了 请帮忙.
[解决办法]
dim txt() as string
txt=split(replace(text1.text,vbcrlf,vbcr),vbcr) 'text1.text你的文本框
dim x as long,fid as long,LC as long
LC=txtLineCount.text '多少行换一次
fid =0
for x =0 to ubond(txt)
if x mod lc =0 then
close
fid=fid+1
open app.path & "\ " & (Fid) & ".txt " for output as #1
end if
print #1,lc(x)
next
Close
文本框支持65535字符,你要两万行,那平均就三个符,还要除去换行符....
