Question

我正在寻找一种方法来计算文本文件中的行数，不包括CRLF，这将是每个人说的最后一行。

有没有一个简单的代码示例呢？

Answer 1

试试这个（虽然我发现它在Google中搜索你问题的标题）：

IO.File.ReadAllLines("C:\Users\Dan\Desktop\test.txt").Length

如果您担心最后的空行，则从所有行循环，直到找到包含内容的行，并删除所有行直到结束。这很容易，因为：

IO.File.ReadAllLines("C:\Users\Dan\Desktop\test.txt")

返回字符串的向量。希望这会有所帮助。

Answer 2

试试这个：

TextBox1.Text = ""

With OpenFileDialog1
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
.Filter = "Text Files (*.txt)|*.txt"
If .ShowDialog <> DialogResult.OK Then Exit Sub
End With

Dim intLines As Integer = 0
Dim sr As New IO.StreamReader(OpenFileDialog1.FileName)
Do While sr.Peek() >= 0
TextBox1.Text += sr.ReadLine() & ControlChars.CrLf
intLines += 1
Loop
sr.Close()
MessageBox.Show(intLines, Me.Text)

Answer 3

基本上你需要校准md5＃sum，然后检查HTML是否链接到CSS并确保你已经打开了javascript

计算文本文件VB中的行

3 个答案: