How do I remove duplicate string in a multi-line text box

Question

3.00/5 (1 vote)

See more:

VB

Public Class Form1
    Dim readlinevalue As String = ""
    Dim readlinevalue2 As String = ""
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Integer = 1
        For Each ReadlineValue As String In Me.TextBox1.Text.Split(Environment.NewLine)
            Console.WriteLine("firstloop")
            For Each ReadlineValue2 As String In Me.TextBox1.Text.Split(Environment.NewLine)
                Console.WriteLine("secondloop")
                Do Until i = 100
                    Console.WriteLine("Do_loop 100")
                    TextBox1.Lines = Array.FindAll(TextBox1.Lines, Function(line) Not line.Contains(ReadlineValue))

                    i = i + 1
                Loop
                i = 1
            Next
            TextBox1.Text += ReadlineValue + Environment.NewLine
            If readlinevalue2.Contains(ReadlineValue) = False Then
                Console.WriteLine("true")
                TextBox2.Text += ReadlineValue + Environment.NewLine
            End If
        Next
    End Sub
End Class

What I have tried:

i have tried all most every thing
test this one
----------------------------------------
one
two
three
one
two
three
one
two
three
----------------------------------

Posted 2-Jun-16 0:06am

Member 10974007

Updated 2-Jun-16 3:56am

Add a Solution

Comments

Member 10974007 2-Jun-16 9:48am

thanks you so much :)
it worked for me

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CHill60 · Accepted Answer · 2016-06-02T01:30:00

If you want to avoid using Linq for now then this works

VB

Dim tbLines = TextBox1.Text.Split(Environment.NewLine).ToList()
Dim tblNew = New List(Of String)
Dim sb = New StringBuilder("")

For Each s As String In tbLines
    If Not tblNew.Contains(s.Trim()) Then
        tblNew.Add(s.Trim())
        sb.Append(s.Trim())
        sb.Append(Environment.NewLine)
    End If
Next

'Remove the trailing NewLine
If sb.Length > Environment.NewLine.Length Then
    sb.Length -= Environment.NewLine.Length
End If

TextBox2.Text = sb.ToString()

Or ... a bit neater and using Linq

VB

Dim tbLines = TextBox1.Text.Split(Environment.NewLine).ToList()
Dim tblNew = New List(Of String)
Dim sb = New StringBuilder("")

For Each s As String In From s1 In tbLines Where Not tblNew.Contains(s1.Trim())
    tblNew.Add(s.Trim())
    sb.Append(s.Trim())
    sb.Append(Environment.NewLine)
Next

'Remove the trailine NewLine
If sb.Length > Environment.NewLine.Length Then
    sb.Length -= Environment.NewLine.Length
End If

TextBox2.Text = sb.ToString()

There is no need for two loops - I've used List(Of String) because I prefer lists to arrays and used the built in .Contains. If you want to keep it as an array then arrays also have a .Contains method.

I'm also using a StringBuilder to build up the new text rather than adding it directly to the new TextBox text. This is because strings are immutable, meaning they cannot be changed. Everytime you use

VB

TextBox1.Text += ReadlineValue + Environment.NewLine

you are actually getting a brand new string.

The only other thing to note is that I've trimmed the strings before adding them - this is because you have both "one" and " one" in your test data.