visual-studio-2010 - 计算文本文件 VB 中的行数

Question

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

有没有机会为此提供一个简单的代码示例？

Answer 1

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

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