تشخیص کلمات تکراری در یک متن و حذف آنها

[arastooms 1,046]

سلام به همه عزیزان و دوستان و اساتید گروه 
طبق معمول همیشه با سوالات متن و ریجکس و ... مزاحم میشم     
یه استرینگ دارم که مجموعه ای از اسم ها هس به این صورت 

"علی,محمد,مجید,علی,سبحان,محمد,ali,mohamad,"

 

خوب همونطور که مشخصه می بینیم که اسم علی 2 بار اومده و اسم محمد هم دو بار 
من باید بیام بین "ویرگول ها " رو بگیرم از هم جدا کنم 
بعد بیام دوباره نویسی کنم در یک استرینگ دیگه ولی قبلش چک کنم ببینم با استرینگ های داخل لیست یکی نباشه که اگر یکی بود یعنی تکراری هست
اینطوری خروجی میشه

"علی,,مجید,,سبحان,محمد,ali,mohamad,"

 

محبت میکنید در قسمت کد ریجکس و لیست یا هرچیز دیگری که من بلد نیستم راهنمایی بفرمایید 
با تشکر
               

[m007moh 181]

سلام به همه عزیزان و دوستان و اساتید گروه 

طبق معمول همیشه با سوالات متن و ریجکس و ... مزاحم میشم     

یه استرینگ دارم که مجموعه ای از اسم ها هس به این صورت 

"علی,محمد,مجید,علی,سبحان,محمد,ali,mohamad,"

 

خوب همونطور که مشخصه می بینیم که اسم علی 2 بار اومده و اسم محمد هم دو بار 

من باید بیام بین "ویرگول ها " رو بگیرم از هم جدا کنم 

بعد بیام دوباره نویسی کنم در یک استرینگ دیگه ولی قبلش چک کنم ببینم با استرینگ های داخل لیست یکی نباشه که اگر یکی بود یعنی تکراری هست

اینطوری خروجی میشه

"علی,,مجید,,سبحان,محمد,ali,mohamad,"

 

محبت میکنید در قسمت کد ریجکس و لیست یا هرچیز دیگری که من بلد نیستم راهنمایی بفرمایید 

با تشکر

               

 

سلام

 

راهی ک من بنظرم میرسه بیاید ریجکس کنید و بریزید تو یه لیست

 

بعد از حلقع تو در تو استفاده کنید و بررسی کنید هر خونه لیست که تکراری بود رو حذف کنید

 

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

[arastooms 1,046]

سلام

 

راهی ک من بنظرم میرسه بیاید ریجکس کنید و بریزید تو یه لیست

 

بعد از حلقع تو در تو استفاده کنید و بررسی کنید هر خونه لیست که تکراری بود رو حذف کنید

 

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

سلام سپاس از پاسخ و راهنمایی دوست عزیز

محبت میکنید اگر تکه کدش رو راهنمایی بفرمایید 

من خیلی با دستور ایف و لیست هماهنگ نمیتونم کار کنم 

مرسی

[m007moh 181]

سلام سپاس از پاسخ و راهنمایی دوست عزیز

محبت میکنید اگر تکه کدش رو راهنمایی بفرمایید 

من خیلی با دستور ایف و لیست هماهنگ نمیتونم کار کنم 

مرسی

 

بفرما داداش

Dim st As String
	st="علی,محمد,مجید,علی,سبحان,محمد,ali,mohamad,"
	Dim lst As List
	lst=Regex.Split(",",st)
	For i=0 To lst.Size-2
		For j=i+1 To lst.Size-1
		 If lst.Get(i)==lst.Get(j) Then
		 	lst.Set(j,"")
		 End If
		Next
	Next
	Spinner1.AddAll(lst)