منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

تفضل الكود

(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

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

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

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