حدف كلمة متكرر في ملف text

هل من مجيب يا اخون

لقد استعملت اكثر من كود ولم اجد حل

اقتباس

Dim Ls As New ArrayList

For s As Integer = 0 To ListBox1.Items.Count - 1

If Ls.Contains(ListBox1.Items(s)) = False Then Ls.Add(ListBox1.Items(s))

Next

ListBox1.Items.Clear()

For s As Integer = 0 To Ls.Count - 1

ListBox1.Items.Add(Ls(s))

Next

اقتباس

Dim StringArray As String() = {"a", "b", "c", "d", "a", "d", "e"}

For Each Str As String In StringArray

If Not ListBox1.Items.Contains(Str) Then

ListBox1.Items.Add(Str)

End If

Next

اقتباس

If ListBox1.Items.Count = 0 Then Exit Sub

For i As Integer = 0 To ListBox1.Items.Count - 1

For j As Integer = ListBox1.Items.Count - 1 To i + 1 Step -1

If ListBox1.Items(i).ToString = ListBox1.Items(j).ToString Then

ListBox1.Items.RemoveAt(j)

End If

Next

Next

من فضلكم ارجو مساعدة