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

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

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

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

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

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

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

尝试以下方法：

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)

TextBox1.Text=“”
使用OpenFileDialog1
.InitialDirectory=Environment.GetFolderPath（Environment.SpecialFolder.Desktop）
.Filter=“文本文件（*.txt）|*.txt”
如果.ShowDialog DialogResult.OK，则退出子对话框
以
按整数=0调整整数行
Dim sr作为新IO.StreamReader（OpenFileDialog1.FileName）
当sr.Peek（）>=0时执行此操作
TextBox1.Text+=sr.ReadLine（）&ControlChars.CrLf
整数行+=1
环
高级关闭（）
MessageBox.Show（intLines，Me.Text）

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

是的，这似乎有很多机会：请解释你的答案，使它对其他读者更有用。

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)