[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

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