السلام عليكم , اللهم صل وسلم وبارك على سيدنا محمد اشرف الخلق
بعد الصلاة على الحبيب الموضوع مبين من عنوانو دورت بالموقع ولقيت بس كلهم بيعتمدو على ملف تكست موجود اصلا
وهاد هوي الكود
كود :
Dim W As IO.StreamWriter
Dim i As Integer
"زي ما انتو شايفيني موجود بالسي " W = New IO.StreamWriter("C:\test\test.txt", True)
For i = 0 To ListBox2.Items.Count - 1
W.WriteLine(ListBox2.Items.Item(i))
Next
W.Close()
بس انا بدي يخيرني وين احفظو ويكون امتدادو text
وشكرا لكم على هذا الموقع الاكثر من رائع <3 في ميزان حسناتكم انشالله
وعليك السلام ورحمة الله
اخي يمكنك استخدام الصنف SaveFileDialog الذي يضهر نافذة تسال المستخدم عن مكان حفظ الملف
كود :
Dim saveTo As New SaveFileDialog
If saveTo.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim W As IO.StreamWriter
Dim i As Integer
W = New IO.StreamWriter(saveTo.FileName, True)
For i = 0 To ListBox2.Items.Count - 1
W.WriteLine(ListBox2.Items.Item(i))
Next
W.Close()
End If
اخي شكرا لك زبطت 100% يعطيك الف عافية في ميزان حسناتك
بس سؤال اخير صديقي هل يمكن اخليه اجباري يحفظ بصيغة txt لانو بيحفظ بدون اي صيغة هيك وشكرا مرة تانية
(02-12-19, 08:54 AM)malek369 كتب : [ -> ]اخي شكرا لك زبطت 100% يعطيك الف عافية في ميزان حسناتك
بس سؤال اخير صديقي هل يمكن اخليه اجباري يحفظ بصيغة txt لانو بيحفظ بدون اي صيغة هيك وشكرا مرة تانية
طبعا يمكنك باستخدام الخاصية Filter التابعة لنفس الاداة
فقط اضف السطر التالي الى الكود
كود :
Dim saveTo As New SaveFileDialog
saveTo.Filter = "Text files (*.txt)|*.txt "
If saveTo.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim W As IO.StreamWriter
Dim i As Integer
W = New IO.StreamWriter(saveTo.FileName, True)
For i = 0 To ListBox2.Items.Count - 1
W.WriteLine(ListBox2.Items.Item(i))
Next
W.Close()
End If
(02-12-19, 09:01 AM)CrazyMe كتب : [ -> ] (02-12-19, 08:54 AM)malek369 كتب : [ -> ]اخي شكرا لك زبطت 100% يعطيك الف عافية في ميزان حسناتك
بس سؤال اخير صديقي هل يمكن اخليه اجباري يحفظ بصيغة txt لانو بيحفظ بدون اي صيغة هيك وشكرا مرة تانية
طبعا يمكنك باستخدام الخاصية Filter التابعة لنفس الاداة
فقط اضف السطر التالي الى الكود
كود :
Dim saveTo As New SaveFileDialog
saveTo.Filter = "Text files (*.txt)|*.txt "
If saveTo.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim W As IO.StreamWriter
Dim i As Integer
W = New IO.StreamWriter(saveTo.FileName, True)
For i = 0 To ListBox2.Items.Count - 1
W.WriteLine(ListBox2.Items.Item(i))
Next
W.Close()
End If
اخي مشكور جدا جدا غلبتك معي الطريقة نجحت 100% يعطيك الف عافية في ميزان حسناتك انشالله كل الاحترام والتقدير لحضرتك