VB.NET

Delete Blank line(s) from a textbox?

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Dec 2007

Posts: 6

Reputation: blackknight469 is an unknown quantity at this point

Solved Threads: 0

blackknight469 blackknight469 is offline

Offline

Newbie Poster

Delete Blank line(s) from a textbox?

Sep 3rd, 2009

what is the code for searching for and removing a blank line in a multi-line text box? im using VB Express '08 and can not figure it out.

my problem is im loading a sample.text file and using txtFile.AppendText(ControlChars.NewLine & activetext & ",") to add new text from user input and get a blank line that causes problems when converting the text into my array. it looks like this:
info,info
info,info
info,info
info,info
info,info
info,info

info,info
info,info
please HELP! i am out of ideas and everything else is working except this. all i need is that blank line to go away. lol

any ideas or suggestions would be most appreciated.
can post more of my code if needed.

•

Join Date: Jun 2009

Posts: 270

Reputation: GeekByChoiCe is on a distinguished road

Solved Threads: 55

GeekByChoiCe GeekByChoiCe is offline

Offline

Posting Whiz in Training

Re: Delete Blank line(s) from a textbox?

Sep 4th, 2009

to remove the blank lines on reading it ou could do:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
 Dim tmp() As String = My.Computer.FileSystem.ReadAllText("C:\test.txt").Split(vbNewLine)
        For Each newStr As String In tmp
            If newStr.Length > 2 Then TextBox1.AppendText(newStr & vbNewLine)
        Next
 Dim tmp() As String = My.Computer.FileSystem.ReadAllText("C:\test.txt").Split(vbNewLine)
        For Each newStr As String In tmp
            If newStr.Length > 2 Then TextBox1.AppendText(newStr & vbNewLine)
        Next

if you want to update the textbox you could do:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim tmp() As String = TextBox1.Text.Split(CChar(vbNewLine))
        TextBox1.Clear()
        For Each line As String In tmp
            If line.Length > 1 Then
                TextBox1.AppendText(line & vbNewLine)
            End If
        Next
Dim tmp() As String = TextBox1.Text.Split(CChar(vbNewLine))
        TextBox1.Clear()
        For Each line As String In tmp
            If line.Length > 1 Then
                TextBox1.AppendText(line & vbNewLine)
            End If
        Next

i've posted both possibility coz it wasnt really clear to me what exactlly u wanted (at what time) ... guess need more coffee

•

Join Date: Sep 2008

Posts: 148

Reputation: samir_ibrahim is on a distinguished road

Solved Threads: 16

samir_ibrahim samir_ibrahim is offline

Offline

Junior Poster

Re: Delete Blank line(s) from a textbox?

Sep 9th, 2009

You can try this (not tested deeply)

 Help with Code Tags 
 vb.net Syntax (Toggle Plain Text) 
Dim SearchIn = Me.TextBox1.Text
Dim sb As StringBuilder = New StringBuilder(SearchIn)
Me.TextBox1.Text = sb.Replace(vbCrLf + vbCrLf, vbCrLf).ToString
Dim SearchIn = Me.TextBox1.Text
Dim sb As StringBuilder = New StringBuilder(SearchIn)
Me.TextBox1.Text = sb.Replace(vbCrLf + vbCrLf, vbCrLf).ToString