[3asfa~mdmra]

السلام عليكم

ايها الاخوة العظماء 

اعضاء وزوار و مدراء ومشرفين 

هذا المنتدي الرائع

أود ان استغل كرمك ومااكرمك الله من نعمة العقل

عن اعطائي فكرة ازالة التكرارت في تكست

(المستند النصي)

كمثال

كود :

emad
emad2016
emadd
emadd
emad1
emad0
emad1

كيف يمكن انشاء برنامج لمسح تكرارت 

النكات او الايمالات كما هو موضح بالمثال أعلاه

وشكراً

[مساعدة]

تفضل الكود

كود :

Dim str1 As String = TextBox1.Text
Dim arr1() As String = str1.Split(vbNewLine)

Dim arr2() As String = (From x In arr1 Select x Distinct).ToArray
Dim str2 As String = String.Join(vbNewLine, arr2)

TextBox2.Text = str2

[3asfa~mdmra]

(01-01-17, 02:26 AM)مساعدة كتب : تفضل الكود

كود :

Dim str1 As String = TextBox1.Text
Dim arr1() As String = str1.Split(vbNewLine)

Dim arr2() As String = (From x In arr1 Select x Distinct).ToArray
Dim str2 As String = String.Join(vbNewLine, arr2)

TextBox2.Text = str2

اخي ولكن هذه الطريقة تستوعب فقط 2000 ايميل

ولكن اريد Textbox

يستوعب اكثر من عدد لانهائي من الايمالات او الاسماء

[LoveVb]

قم بتعديل الخاصية MaxLength في TextBox

[مساعدة]

يمكن إسناد النص عند قراءته من الملف النصي إلى المتغير str1 مباشرة بدون الاعتماد على الأداة TextBox1 بسبب محدوديته الأداة.

وحل آخر استخدم قاعدة بيانات.