计算文本文件中的行数 PS 我不允许使用流阅读器

Question

它总是输出数字 2 我不知道问题来自代码还是我的程序：

DIM COUNT_LINE AS INTEGER =0
If Not EOF(1) Then
FileGet(1, True, RecordNumber:=1) 
COUNT_LINE += 1
End If
last_record = COUNT_LINE+1
TxtItemNumber.Text = last_record
End If'''

Answer 1

Imports System.IO

以下情况需要以上内容

Private Sub OPCode()
Dim lines = File.ReadLines("answers.txt")
Dim count = lines.Count
MessageBox.Show(count.ToString)
End Sub

.ReadLines返回文本文件中行的 IEnumerable(Of String(。可枚举项的.Count将为您提供数组中有多少行的计数。也可以是@jmcilhinney在评论中给出的单行。

Dim count = File.ReadLines("answers.txt").Count