[VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox

[VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox (/showthread.php?tid=47466)

حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox - mervandz - 10-11-23

السلام عليكم

اريد من الاخوة حذف كل العناصر التي تاتي بعد عنصر الذي احدده في listbox
مثلا حذف بعد كل نقطة في هذه الاسطر

[صورة مرفقة: 86yKiG.png]

لتتحول النتيحة هكذا كما فى الصورة المرفقة

[صورة مرفقة: yfm1Fx.png]

شكراً مقدماً

RE: حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox - Ashraf10 - 10-11-23

(10-11-23, 03:56 PM)mervandz كتب : السلام عليكم

اريد من الاخوة حذف كل العناصر التي تاتي بعد عنصر الذي احدده في listbox
مثلا حذف بعد كل نقطة في هذه الاسطر

لتتحول النتيحة هكذا كما فى الصورة المرفقة

شكراً مقدماً

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

   For i = 0 To Me.ListBox1.Items.Count - 1

       Dim t = ListBox1.Items(i).ToString

       ListBox1.Items(i) = t.Substring(0, t.IndexOf("."))

   Next

End Sub

RE: حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox - mervandz - 10-11-23

الف شكر لك [b]Ashraf10 Heart

[/b]

RE: حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox - justforit - 10-11-23

مشاركة لكم :

PHP كود :

For i As Integer = 0 To ListBox1.Items.Count - 1
     Dim itm As String = ListBox1.Items(i).ToString
     ListBox1.Items(i) = IO.Path.GetFileNameWithoutExtension(itm)
 Next 