VB.NET 빈줄제거 빈줄삭제 방법

에디터플러스 같은 문서편집기에 보시면 빈줄제거  기능이  있는데 

에디터플러스 에서 제가 매우 유용하게 사용하는 기능중하나인데 혹시나해서 VB.NET 으로 구현할 수 있지않을까해서 검색해봤는데 

 VB.NET 에서도 간단하게 구현 할 수 있더군요.^^

소스코드는 다음과 같습니다.

 

 

	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim htmlString1 As String = TextBox1.Text
        htmlString1 = RemoveEmptyLines(htmlString1)
        MsgBox(htmlString1, vbInformation, "빈줄제거")

    End Sub

    Public Shared Function RemoveEmptyLines(ByVal text As String) As String
            Dim builder = New StringBuilder()

            Using reader = New StringReader(text)

                While reader.Peek() <> -1
                    Dim line As String = reader.ReadLine()
                    If Not String.IsNullOrWhiteSpace(line) Then builder.AppendLine(line)
                End While
            End Using

            Return builder.ToString()
        End Function
    End Class

 

참고: IsNullOrWhiteSpace 메서드는 .NET 4.0의 새로운 기능입니다. 

 

참조 https://stackoverflow.com/questions/2865863/removing-all-whitespace-lines-from-a-multi-line-string-efficiently