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

نسخة كاملة : مشكلة التكرار فى ملف txt
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد حفظ log فى ملف تكست ال log موجوده فى listbox استخدم هذا الكود لل حفظ
كود :
              Using sw As StreamWriter = File.AppendText(Path)
                   For Each item In ListBox1.Items
                       sw.WriteLine("Start Log.")
                       sw.WriteLine(Date.Now)
                       sw.WriteLine("[" + item + "]")
                       sw.WriteLine("End Log.")
                   Next
               End Using

يظهر هذا الناتج

إقتباس :Start Log.
6/29/2016 11:56:28 PM
[0]
End Log.
Start Log.
6/29/2016 11:56:28 PM
[1]
End Log.
Start Log.
6/29/2016 11:56:28 PM
[2]
End Log.
اريد الناتج يكون هكذا

إقتباس :Start Log.
6/29/2016 11:56:28 PM
[0]
[1]
[2]
End Log.

تم الحل بحمد الله
For intIdx As Int32 = 0 To Me.ListBox1.Items.Count - 1
sItems = (Me.ListBox1.Items.Item(intIdx))