Question

VB中如何判断一个a.txt文件到底有多少行记录？（每一条记录的格式都是一样的，每一行数据就是一条记录）

Answer 1

如果只是判断记录数，可以定义上个记数变量，然后用
"line input" 语句读，每读一行，记数变量+1，直到文件结束，即可知道记录数。

Dim a As String
Dim n As Integer
Open "c:\1.dat" For Input As #1
n = 0
While Not EOF(1)
Line Input #1, a
n = n + 1
Wend
Close
MsgBox "文件有 " & n & " 条记录。", vbInformation + vbOKOnly

追问

”While Not EOF(1)“这条语句会报错！

追答

把 Open "c:\1.dat" For Input As #1
改为 Open "a.txt" For Input As #1
也就里你要判断的文件。
也可以把你的文件路径加上，比如你的文件在 d盘根目录，就把文件名改为 d:\a.txt

追问

这样应该还是不行的，记录的格式是这样的：
"1C00000005435129-7",11/16/2010 18:05:33,+08:00,54,,0.0,0,,,,,,,,,781536.8,,,,,,,,
每条记录的中间是会有空格的。

追答

用line input 是按行读取，而不是按字段读。
如果每条记录是用空格分开，而非每行一条记录，这种方法不适用，需要先在 word 里把空格批量替换为“回车换行”。方法如下：用组合建“Ctrl”+“H”，进入替换模式，选在“查找内容”里输入空格，在“替换为”里选“高级”选项的“特殊字符”的“段落标记”，单击“全部替换”，然后再进行上述处理。

如果每一行数据就是一条记录，上述程序完全适用，不必在乎记录中是否有空格。

Answer 2

读取所有内容到变量ALLTXT
dim i
dim alltxt
dim txt()
txt = split(alltxt,vbcrlf)
i = ubound(txt) +1
msgbox "共有行数：" & i

追问

具体如何操作？谢谢！