[已解决]判断txt文件的行数

billyzhang0609

各位高手

想要做到如果txt文件只有一行，退出程序。
            如果txt文件>1行，读取txt文件的内容。

这个判断txt文件内容有几行怎么写程序？

附件我已经上了，两个模块中的代码，经过测试，都无法真确判断txt文件的行数。
我想直接判断txt文本的行数，而不是通过将内容复制到execl中再来判断行数。

最佳答案

月排行榜 / 总排行榜

QLZ0602

2014-9-2 16:29

billyzhang0609 发表于 2014-9-2 16:15
我已经补充了问题，添加了附件。

Private Sub Command1_Click()
Open "C:\Users\lenovo\Desktop\test1\test1\3.txt" For Input As #1
n = 0
Do While Not EOF(1)
  Line Input #1, S$
  If S$ <> "" Then n = n + 1
Loop
Close #1
MsgBox "D:\111.txt 共有 " & n & " 行。"
End Sub


因为3.txt 存在1条空行

跳转到最佳答案楼层

billyzhang0609

Private Sub Command1_Click()

Open "c:\test\1.txt" For Input As #1

Line Input #1, s

If Not EOF(1) Then

MsgBox "&Icirc;&Auml;&frac14;&thorn;&sup2;&raquo;&Ouml;&sup1;&Ograve;&raquo;&ETH;&ETH;"

Else

MsgBox "&Icirc;&Auml;&frac14;&thorn;&Ouml;&raquo;&Oacute;&ETH;&Ograve;&raquo;&ETH;&ETH;&pound;&ordm;" & vbCrLf & s

End If

Close #1

End Sub
测试下来，当txt文本超过一行，仍然跳提示文本只有一行。

QLZ0602

上附件吧

billyzhang0609

QLZ0602 发表于 2014-9-2 16:04
上附件吧

我已经补充了问题，添加了附件。

billyzhang0609

Function Rows(xPath As String) As Long
Dim temp As String
Rows = 0
Open xPath For Input As #1
Do Until EOF(1)
Line Input #1, temp
Rows = Rows + 1
Loop
Close #1
End Function

Private Sub Command1_Click()
MsgBox Rows("c:\test\1.txt")
End Sub

测试了这个代码，似乎是行得通的。

QLZ0602

billyzhang0609 发表于 2014-9-2 16:15
我已经补充了问题，添加了附件。

Private Sub Command1_Click()
Open "C:\Users\lenovo\Desktop\test1\test1\3.txt" For Input As #1
n = 0
Do While Not EOF(1)
  Line Input #1, S$
  If S$ <> "" Then n = n + 1
Loop
Close #1
MsgBox "D:\111.txt 共有 " & n & " 行。"
End Sub


因为3.txt 存在1条空行