vb读取txt文件行数问题

发布网友发布时间：2023-04-05 17:34

共2个回答

热心网友时间：2024-02-21 19:16

Line Input就是每次读取一行，n = n + 1就是每次读取一行时就把n递增1，所以程序运行完毕后n就是行数了。

还有更简单的方法：
Open "c:\1.txtt" For Binary As #1
MsgBox "文件有 " & UBound(Split(Input(LOF(1), #1), vbCrLf)) + 1 & " 条记录。", vbInformation
Close #1
三行即可

热心网友时间：2024-02-21 19:17

dim TT() as String
dim ss as Integer
open txt for input as #1
Do While Not EOF(1)
Input #1, TT(ss)
ss=ss+1
Loop
Close 1#
txt 是txt文件名 ss 就是行数

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com