تقييم الموضوع :
  • 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
العفو ياغالي
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad احتاج الى مساعدة في list box malek369 11 156 02-12-19, 04:08 AM
آخر رد: malek369
  [VB.NET] سؤال غير صعب علي اخواني اعضاء المنتدي bakriano30@yahoo.com 11 487 16-08-19, 01:52 AM
آخر رد: bakriano30@yahoo.com
  Get connection string from text file moh8880 1 148 12-08-19, 10:35 AM
آخر رد: سعود
  [VB.NET] السلام عليكم اخواني واخواتي اريد مساعده في تصدير بيانات الداتا قريد فيو الي اكسل hosamloveme888@yahoo.com 2 248 24-07-19, 01:40 PM
آخر رد: asemshahen5
  [سؤال] اخواني اريد كود لي اظهار ip علي اداه label1 XCoder 6 376 22-07-19, 05:02 PM
آخر رد: سعود
  [سؤال] اخواني اريد عند الضغط علي الزر يظهر هذا ال نص داخل textbox1 XCoder 3 275 05-07-19, 09:26 PM
آخر رد: XCoder
  طباعة ملف word او text او حتى صورة يونس علي 5 459 16-05-19, 01:24 PM
آخر رد: elgokr
  [سؤال] اخواني انا صممت برنامج vb.net وربطة مع جدول بي sql server 2014 mohamedhota 5 311 12-04-19, 11:14 PM
آخر رد: elgokr
  Word List Gen yunis 4 414 14-02-19, 06:29 PM
آخر رد: princelovelorn
  القراءة من ملف text و البحث فيه احمد كبه 2 312 25-01-19, 11:18 AM
آخر رد: احمد كبه

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


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