I have two TextBoxes
in my form with Multiline
enabled and a Button
. Lets say tB1
and tB2
. tB1
and tB2
consist group numbers and the Button
click event removes all the string (numbers) from the tB1
that are present on tB2
. But as all the numbers are being separated by NewLine
replacing the string by matching with with another string causes a lots of blank lines between.
Example -tB1
Values:
1
2
3
4
5
6
7
8
9
10
Example -tB2
Values:
3
7
8
What I am getting:
1
2
[Blank Line]
4
5
6
[Blank Line]
[Blank Line]
9
10
What I want it to be:
1
2
4
5
6
9
10
I am using the code:
Dim strFix() as String
Private Sub Button1_Click() Handles Button1.Click
strFix = Split(tB2.Text, vbNewLine)
For Each str1 as String In strFix
tb1.Text= tb1.Text.Replace(str1, "")
Next
End Sub
Note: Using .Trim() didn't solved this as it only removes the last blank lines or spaces.
I have found a solution that worked for me.
Dim strFix() As String
Private Sub FixBlankLines ()
strFix = Split(tB2.Text, vbNewLine)
For Each str1 as String In strFix
tb1.Text= tb1.Text.Replace(str1, "")
Next
strFix = Split(tb1.Text, vbNewLine)
tb1.Text = ""
For Each str2 As String In strFix
If str2 <> "" Then
tb1.Text += Val(str2).ToString("00000") + vbNewLine
End If
Next
tb1.Text = tb1.Text.Trim
End Sub