رفتن به مطلب
  • 0

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


rezarm198@gmail.com

سوال

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

ali

reza

ali

mohamad

reza

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

ali

reza

mohamad

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

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

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

	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)

 

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

 

موفق باشین :53:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...