منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] مبتدئ : اخواني كيف احفظ list box الى ملف Text - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] مبتدئ : اخواني كيف احفظ list box الى ملف Text (/showthread.php?tid=32319)

مبتدئ : اخواني كيف احفظ list box الى ملف Text - malek369 - 02-12-19

السلام عليكم , اللهم صل وسلم وبارك على سيدنا محمد اشرف الخلق

بعد الصلاة على الحبيب الموضوع مبين من عنوانو دورت بالموقع ولقيت بس كلهم بيعتمدو على ملف تكست موجود اصلا 
وهاد هوي الكود 
كود :
 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 في ميزان حسناتكم انشالله 


RE: مبتدئ : اخواني كيف احفظ list box الى ملف Text - معاند الحظ - 02-12-19

وعليك السلام ورحمة الله

اخي يمكنك استخدام الصنف 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


RE: مبتدئ : اخواني كيف احفظ list box الى ملف Text - malek369 - 02-12-19

اخي شكرا لك زبطت 100% يعطيك الف عافية في ميزان حسناتك
بس سؤال اخير صديقي هل يمكن اخليه اجباري يحفظ بصيغة txt لانو بيحفظ بدون اي صيغة هيك وشكرا مرة تانية

RE: مبتدئ : اخواني كيف احفظ list box الى ملف Text - معاند الحظ - 02-12-19

(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


RE: مبتدئ : اخواني كيف احفظ list box الى ملف Text - malek369 - 02-12-19

(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% يعطيك الف عافية في ميزان حسناتك انشالله كل الاحترام والتقدير لحضرتك

RE: مبتدئ : اخواني كيف احفظ list box الى ملف Text - معاند الحظ - 02-12-19

العفو ياغالي