+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : لوب على اسطر التكست بوك (/showthread.php?tid=44778)
لوب على اسطر التكست بوك - نيمو - 14-01-23
السلام عليكم
كيف يمكن ترتيب كود لعمل لوب على اسطر في التكست بوكس
بحيث يحذف الكلمات المكررة مثلا
form
test
aaaaaa
fire
test
بحيث يكشف كلمة تيست ويحذفها
RE: لوب على اسطر التكست بوك - asmarsou - 14-01-23
(14-01-23, 10:02 PM)نيمو كتب : السلام عليكم
كيف يمكن ترتيب كود لعمل لوب على اسطر في التكست بوكس
بحيث يحذف الكلمات المكررة مثلا
form
test
aaaaaa
fire
test
بحيث يكشف كلمة تيست ويحذفها
و عليكم السلام و رحمة الله و بركاته
اذا كانت التكست بوكس متعددة الاسطر فهذا سيفي بالغرض
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim wordList As New List(Of String)
For Each word As String In TextBox1.Lines
If Not wordList.Contains(word) Then
wordList.Add(word)
End If
Next
TextBox1.Lines = wordList.ToArray
End Sub
RE: لوب على اسطر التكست بوك - نيمو - 14-01-23
(14-01-23, 10:48 PM)asmarsou كتب :(14-01-23, 10:02 PM)نيمو كتب : السلام عليكم
كيف يمكن ترتيب كود لعمل لوب على اسطر في التكست بوكس
بحيث يحذف الكلمات المكررة مثلا
form
test
aaaaaa
fire
test
بحيث يكشف كلمة تيست ويحذفها
و عليكم السلام و رحمة الله و بركاته
اذا كانت التكست بوكس متعددة الاسطر فهذا سيفي بالغرض
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim wordList As New List(Of String)
For Each word As String In TextBox1.Lines
If Not wordList.Contains(word) Then
wordList.Add(word)
End If
Next
TextBox1.Lines = wordList.ToArray
End Sub
بالضبط هذا ما احتاجه شكرا لك اخي
