تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] مبتدئ : اخواني كيف احفظ list box الى ملف Text
#1
السلام عليكم , اللهم صل وسلم وبارك على سيدنا محمد اشرف الخلق

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

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

الرد }}}
#3
اخي شكرا لك زبطت 100% يعطيك الف عافية في ميزان حسناتك
بس سؤال اخير صديقي هل يمكن اخليه اجباري يحفظ بصيغة txt لانو بيحفظ بدون اي صيغة هيك وشكرا مرة تانية
الرد }}}
تم الشكر بواسطة: asemshahen5
#4
(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

الرد }}}
تم الشكر بواسطة: ابو روضة , malek369 , محمد كريّم , baha , asemshahen5 , asemshahen5
#5
(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% يعطيك الف عافية في ميزان حسناتك انشالله كل الاحترام والتقدير لحضرتك
لا اله الا الله محمد رسول الله أستغفر الله العظيم واتوب اليه سبحان الله وبحمده سبحان الله العظيم
الرد }}}
#6
العفو ياغالي

الرد }}}



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم