7,764
社区成员
发帖
与我相关
我的任务
分享精彩不容错过，32768问题！！！！！
使用filesystemobject读取文本文件，然后对每一行处理后写入到另一个文本文件中，其中用了下面的语句：
dim fs ,f1,f2
set fs=createobject("scripting.filesystemobject")
set f1=fs.opentextfile("c:\aaa.dat",forreading)
set f2=fs.createtextfile("c:\aaa.txt",true)
while not f1.atendofstream
str=f1.readline
.
.
.
fs.writeline(str)
wend
f1.close
f2.close
结果只能处理32768行，可惜我的文件有30多万行，这可如何是好？帮忙呀，救人呀！
dim fs ,f1,f2
set fs=createobject("scripting.filesystemobject")
set f1=fs.opentextfile("c:\aaa.dat",forreading)
set f2=fs.createtextfile("c:\aaa.txt",true)
while not f1.atendofstream
str=f1.readline
.
.
.
fs.writeline(str)
wend
f1.close
f2.close
结果只能处理32768行，可惜我的文件有30多万行，这可如何是好？帮忙呀，救人呀！
...全文
请发表友善的回复…
发表回复
askwho 2003-11-26
- 打赏
- 举报
open 方法不行的，因为它在读第一行文本的时候要把整个文件全部读进来，我的文件太大了，所以使用open的时候就死机，这个函数不灵我才使用filesystemobject呢！
longki 2003-11-25
- 打赏
- 举报
是啊,为何不用 "open 文件名(包含路径) for Output as #1"!
boydgmx 2003-11-25
- 打赏
- 举报
直接用Open 语句打开，如果指定的文件不存在，则程序会自动创建
askwho 2003-11-25
- 打赏
- 举报
那要用什么函数创建呢？我就找到一个createtextfile，我试着改名，但是没有效果，估计是这个函数惹得祸
SoHo_Andy 2003-11-25
- 打赏
- 举报
文本文件大小有限制的，可以使用你自己定义的后缀格式
其实就是随便的一个命名，我经常以自己名字的缩写命名
只要不是txt windows就不管大小啦
其实就是随便的一个命名，我经常以自己名字的缩写命名
只要不是txt windows就不管大小啦
askwho 2003-11-25
- 打赏
- 举报
怎么用.scv文件，请给一句例子，谢了！
wumy_ld 2003-11-25
- 打赏
- 举报
同意楼上
mikimon 2003-11-25
- 打赏
- 举报
文本文件是限制容量的，最好用.scv文件。
