VB中如何计算文本文件的列数？
各位大侠：
如果.txt文件是如以下形式储存的（每个参数以空格间隔）
a b c d e
12 34 56 78 90
2 3 4 5 6
...
如何计算有多少列呢？
谢谢
问题点数：10、回复次数：8Top
1 楼lzfile（阿战）回复于 2005-02-23 15:49:25 得分 0
open .txt for input as #1
do while eof(1)
line input #1,str$
i=i+1
loop
i就是所得行数Top
2 楼kmzs（.:RNPA:.山水岿濛）回复于 2005-02-23 15:54:28 得分 0
open "a.txt" for input as #1
dim i as long,count as long
do while not eof(1)
line input #1,str$
i=i+1
loop
count=i+1
close #1
Top
3 楼lzfile（阿战）回复于 2005-02-23 15:57:38 得分 4
dim j()
open .txt for input as #1
do while eof(1)
line input #1,str$
j=split(str," ")
i=ubound(j)
loop
i就是所得列数Top
4 楼viena（维也纳N02）回复于 2005-02-23 15:58:58 得分 6
dim str1 as String
open 文件名 for input as #1
line input #1,str1'读一行到变量str1
close #1
msgbox Ubound(split(str1," "))+1
'以空格分隔拆分到数组，数组的元素数就是列数Top
5 楼viena（维也纳N02）回复于 2005-02-23 16:02:18 得分 0
lzfile(阿战)的代码，
1 全部读入，没有必要，读一行即可
2 没有关闭文件Top
6 楼viena（维也纳N02）回复于 2005-02-23 16:04:20 得分 0
3 上界作为元素数不对，数组是以0为下界，元素数应该是上界+1Top
7 楼mikeding（迈飞云）回复于 2005-02-23 16:17:40 得分 0
viena 正解
顶！顶！Top
8 楼Gerbility（雨夜紫竹）回复于 2005-02-23 16:31:43 得分 0
可是并不是一个空格的怎么办呢？Top
