神马品牌网瓷砖美逢:vb 读取文本文件提前知道行数
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 12:55:07
vb 读取文本文件的问题
悬赏分：10 - 离问题结束还有 14 天 23 小时
Dim FreeNum As Integer
FreeNum = FreeFile
Open "文本文件" For Input As #FreeNum
我用上边的方式读取文本文件，我怎么才能知道文本文件的行数
是在打开文件之后读入文件详细内容之前就知道
比如用
Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream, s As String
Set file1 = fsoTest.GetFile(“C:\testfile.txt")
Set ts = file1.OpenAsTextStream(ForReading)
就可以在打开文件之后读取文件之前 知道文件的行数
悬赏分：10 - 离问题结束还有 14 天 23 小时
Dim FreeNum As Integer
FreeNum = FreeFile
Open "文本文件" For Input As #FreeNum
我用上边的方式读取文本文件，我怎么才能知道文本文件的行数
是在打开文件之后读入文件详细内容之前就知道
比如用
Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream, s As String
Set file1 = fsoTest.GetFile(“C:\testfile.txt")
Set ts = file1.OpenAsTextStream(ForReading)
就可以在打开文件之后读取文件之前 知道文件的行数
没有办法，必须读文件才能知道文件的行数，并且要是文本文件。才有行数嘛。你说的哪个方法是得不到文件行数的TextStream对象只有四个属性：
AtEndOfLine 属性、AtEndOfStream 属性、Column 属性、Line 属性
Column和Line返回的是当前状态。
Private Sub Form_Load()
Dim n As Long, p As String
Open "C:\单词.txt" For Input As #8
Do While Not EOF(3)
zong = zong + 1 'zong是总行数
Line Input #3, p
dc(n) = Trim(p)
Loop
Close (3)
End Sub
而最后的总就是文本的行数，dc(m)是我定义的全局变量，zong也一定要是
要不然的话，这次输入记录就白输了
也不用非要记录p
可以只用zong记录行数就可以了
（评满意哦）