کلمات تکراری در ادیت تکست

[[email protected] 1]

سلام من چندتا اسم دارم تو یدونه ادیت تکست مثل

ali

reza

ali

mohamad

reza

چطوری میشه کاری کنم که اسمایه تکراری یدونه بشن

ali

reza

mohamad

[Salar82 901]

سلام دوست عزیز

من یه کدی رو نوشتم براتون، تست کردم مشکلی نداشت:

	Dim text() As String = Regex.Split(CRLF, EditText1.Text)
	EditText1.Text = ""
	Dim Checker() As String = Regex.Split(CRLF, EditText1.Text)
	
	For i = 0 To text.Length - 1
		Dim Duplicate As Boolean = False
		
		
		For j = 0 To Checker.Length - 1
			If text(i) = Checker(j) Then
				Duplicate = True
				Exit
			End If
		Next
		
		If Not(Duplicate) Then
			EditText1.Text = EditText1.Text & text(i) & CRLF
			Checker = Regex.Split(CRLF, EditText1.Text)
		End If
	Next
	
	
	Log(EditText1.Text)

 

فقط توجه داشته باشین. من طبق چیزی که خودتون فرمودین(هر کلمه تو یه خط) این کد رو نوشتم.

 

موفق باشین