منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox

السلام عليكم

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

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

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

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

شكراً مقدماً

(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

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

[/b]

مشاركة لكم :

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 

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

mervandz

Ashraf10

mervandz

justforit