删除文本框中的空行并将其计为VB.Net

Question

按下按钮（删除空行并计算行数）的代码是什么程序将删除文本框中的每个空行并在删除空行后计算文本框的行？

Answer 1

似乎非常直截了当。为按钮设置点击事件的句柄，我们将其称为删除按钮。创建一个子程序来处理事件，并在其中读取文本框内容（文本）并按换行分割。将其保存到数组并删除没有任何字符的字符串。然后计算你剩下的东西。

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

- 注： 这仍将计算仅包含空格的行，因此如果这是一个不需要的功能，您需要从“＆＃39;行”中删除这些行。或者为计数添加一个条件，这样它就会忽略只有空格/

的字符串

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