Deleting Lines From Text Box in VB

[Klogg]

How can I delete the last line of text in a multiline text box?

[Volte]

How about this:

        If TextBox1.Text.Length > 0 Then
           Dim lines(TextBox1.Lines.Length - 2) As String
           Array.Copy(TextBox1.Lines, lines, TextBox1.Lines.Length - 1)

           TextBox1.Lines = lines
       End If

Edited October 20, 2003 by Volte

[Klogg]

Ok. It works now. Thanks.

[Nerseus]

I'm not sure of the speed (which is faster), but you can also try:

Dim lastLinePos As Int = s.LastIndexOf("\n")
If lastLinePos = -1 Then
   lastLinePos = s.Length
End If
s = s.Substring(0, lastLinePos)

 

If you only have one line, the above leaves it there. If you want to delete the last line as well, change the "If" to

If lastLinePos = -1 Then
   lastLinePos = 0
End If

 

Just another option :)

 

-Nerseus