+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة التكرار فى ملف txt (/showthread.php?tid=16300)
مشكلة التكرار فى ملف txt - أسامة - 30-06-16
اريد حفظ 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))