如何取得文本文件的行数?

Question

我用VBA打开文本文件记录集,每行为一个记录,每个记录长度都是一样的,我想知道如何才能取得该文件的行数,以及如何随意操作记录.比如求得文本文件的行数为10即10个记录,我要直接操作第5条记录,如何操作?能否象FOXPRO中对数据库记录的操作那样操作?如goto语句

Answer 1

filetxt = String(FileLen(txtfile), " ")
Open 文本文件 For Binary As 1
Get #1, , filetxt
Close 1
Hx = Split(filetxt, vbCrLf)
Lines = UBound(Hx) - 1           '文本文件行数如果想操作第5条记录：
List = Hx(4)

Answer 2

Private Sub Form_Load()
Dim filetxt As String
filetxt = String(FileLen("文本文件"), " ")
Open "文本文件" For Binary As 1
Get #1, , filetxt
Close 1
Hx = Split(filetxt, vbCrLf)
Lines = UBound(Hx)              '文本文件行数如果想操作第5条记录:
List = Hx(4)
End Sub