VB中如何判断一个a.txt文件到底有多少行记录？（每一条记录的格式都是一样的，每一行数据就是一条记录）
答案:2 悬赏:60 手机版
解决时间 2021-01-27 23:31
- 提问者网友：喧嚣尘世
- 2021-01-27 19:24
VB中如何判断一个a.txt文件到底有多少行记录？（每一条记录的格式都是一样的，每一行数据就是一条记录）
最佳答案
- 五星知识达人网友：山君与见山
- 2021-01-27 20:50
如果只是判断记录数，可以定义上个记数变量，然后用
"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
"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
全部回答
- 1楼网友：蕴藏春秋
- 2021-01-27 21:57
你好！
读取所有内容到变量ALLTXT
dim i
dim alltxt
dim txt()
txt = split(alltxt,vbcrlf)
i = ubound(txt) +1
msgbox "共有行数：" & i
如果对你有帮助，望采纳。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯