+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] فكرة عن برنامج (/showthread.php?tid=18656)
فكرة عن برنامج - 3asfa~mdmra - 01-01-17
السلام عليكم
ايها الاخوة العظماء
اعضاء وزوار و مدراء ومشرفين
هذا المنتدي الرائع
أود ان استغل كرمك ومااكرمك الله من نعمة العقل
عن اعطائي فكرة ازالة التكرارت في تكست
(المستند النصي)
كمثال
كود :
emad
emad2016
emadd
emadd
emad1
emad0
emad1النكات او الايمالات كما هو موضح بالمثال أعلاه
وشكراً
RE: فكرة عن برنامج - مساعدة - 01-01-17
تفضل الكود
كود :
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 = str2RE: فكرة عن برنامج - 3asfa~mdmra - 01-01-17
(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
يستوعب اكثر من عدد لانهائي من الايمالات او الاسماء
RE: فكرة عن برنامج - LoveVb - 01-01-17
قم بتعديل الخاصية MaxLength في TextBox
RE: فكرة عن برنامج - مساعدة - 01-01-17
يمكن إسناد النص عند قراءته من الملف النصي إلى المتغير str1 مباشرة بدون الاعتماد على الأداة TextBox1 بسبب محدوديته الأداة.
وحل آخر استخدم قاعدة بيانات.