テキストボックス内の空行を削除して数えますVB.Net

Question

ボタンを押す（空行を削除して行数を数える）ためのコードは何ですか？プログラムはテキストボックス内のすべての空行を削除し、その後にテキストボックスの行を数えます空の行を削除しますか？

Answer 1

かなりまっすぐ進むようです。ボタンのクリックイベントのハンドルを設定します。削除ボタンと呼ばれます。イベントを処理するサブルーチンを作成し、テキストボックスの内容（Text）を読み込み、改行で分割します。これを配列に保存し、文字を含まない文字列を削除します。あなたが残したものを数えます。

Private Sub DeleteBut_Click(sender As Object, e As EventArgs) Handles DeleteBut.Click 
    Dim lines = TEXTBOX.Text.Split(New String() {Environment.NewLine}, 
     StringSplitOptions.RemoveEmptyEntries) 
    Dim num = lines.Count() 
    TEXTBOX.Text = "" 
    For i = 0 To num 
     TEXTBOX.Text += lines(i) 
    Next 
End Sub 

--Note： それは、不要な機能である場合は、「ライン」から、それらを削除するか、それは無視しますので、カウントに条件を追加のいずれかにする必要がありますので、これはまだ、スペースのみを含む行をカウントします/

Answer 2

だけのスペースを含む文字列これは、LINQので実現することができます。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    TextBox1.Lines = TextBox1.Lines.Where(Function(l) Not String.IsNullOrWhiteSpace(l)).ToArray() 
    Dim count = TextBox1.Lines.Length 
End Sub