計算文本文件中的行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＃總和，然後檢查，看看是否HTML鏈接到CSS，並確保你已經打開的javascript