テキストファイルの行を数える良い方法はありますか？

Question

以下は私が使ってきたものです。それが動作している間、私のプログラムはかなり大きなファイル、例えば10,000行以上をカウントしようとするとロックアップします。小さなファイルはすぐに実行されます。

テキストファイルの行を数えるのがより速いのですか？

ここで私が現在使用してんだよ：

Dim selectedItems = (From i In ListBox1.SelectedItems).ToArray() 
    For Each selectedItem In selectedItems 
     ListBox2.Items.Add(selectedItem) 
     ListBox1.Items.Remove(selectedItem) 

     Dim FileQty = selectedItem.ToString 
     'reads the data file and returns the qty 
     Dim intLines As Integer = 0 
     'Dim sr As New IO.StreamReader(OpenFileDialog1.FileName) 
     Dim sr As New IO.StreamReader(TextBox1_Path.Text + "\" + FileQty) 
     Do While sr.Peek() >= 0 
      TextBox1.Text += sr.ReadLine() & ControlChars.CrLf 
      intLines += 1 
     Loop 
     ListBox6.Items.Add(intLines) 
    Next 

Answer 1

Imports System.IO.File 'At the beginning of the file 

Dim lineCount = File.ReadAllLines("file.txt").Length 

はthis質問を参照してください。

Answer 2

できるだけ効率的な反復を行っても、十分な大きさのファイルを渡すと、作業を実行している間にアプリケーションがフリーズするようになります。

ロックを避けたい場合は、新しいスレッドを生成して非同期で作業を実行できます。 .NET 4.0を使用している場合は、Taskクラスを使用すると非常に簡単にできます。

Answer 3

TextBox2.Text = File.ReadAllLines(scannerfilePath).Length.ToString()