以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何获得目录里的指定文档的行数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109498)
--  作者：农村人
--  发布时间：2017/11/13 17:06:00
--  [求助]如何获得目录里的指定文档的行数
 [求助]如何获得目录里的指定文档的行数
--  作者：有点甜
--  发布时间：2017/11/13 19:03:00
--  

你的文档是txt？

 

Dim str As String = FileSys.ReadAllText("d:\\test.txt", Encoding.Default)
Dim n = str.split(chr(13)).length
msgbox(n)
--  作者：有点甜
--  发布时间：2017/11/13 19:06:00
--  

如果文件比较大，不能一次读取

 

Using sr As IO.StreamReader = New IO.StreamReader("d:\\test.txt") \'直接从文件路径生成\'
Dim line As String = sr.ReadLine() \'读取一行
Dim count As Integer = 0
Do While line IsNot Nothing \'如果不为空.为空说明读取完毕,结束循环
    count += 1
    line = sr.ReadLine() \'读取下一行
Loop
msgbox(count)
End Using