تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة حفظ محتويات الليست بوكس في ملف نصي
#1
السلام عليكم ورحمة الله وبركاتة
لو سمحتوا اخواني اريد كود حفظ محتويات الليست بوكس في ملف نصي
وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
كود :
On Error Resume Next
        Dim s As String
        For i As Integer = 0 To ListBox1.Items.Count - 1
            s += vbCrLf & ListBox1.Items.Item(i)
        Next
        FileOpen(1, "D:\Da3.txt", OpenMode.Output)
        Print(1, s)
        FileClose(1)
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم

الفكرة هي أن نحول القائمة إلى نص كل سطر عبارة عن عنصر


استخدم هذين الإجرائين لعمل الحفظ والاسترجاع

كل ما عليك هو إرسال اللست بوكس ومسار الملف وهو سيقوم باللازم

كود الحفظ في ملف نصي

PHP كود :
Sub SaveToFile(ByVal lst As ListBoxByVal path As String)
        If 
lst.Items.Count 0 Then
            
Exit Sub
        End 
If
        
Dim TextItems As String lst.Items(0).ToString
        
For 1 To lst.Items.Count 1
            Dim i 
lst.Items(n)
            
TextItems TextItems vbNewLine i.ToString
        Next
        My
.Computer.FileSystem.WriteAllText(pathTextItemsFalse)
    
End Sub 


وهذا كود القراءة من ملف

PHP كود :
Sub LoadFromFile(ByVal lst As ListBoxByVal path As String)
        
lst.Items.Clear()
        
Dim TextItems As String My.Computer.FileSystem.ReadAllText(path)
        
Dim items As String() = TextItems.Split(vbNewLine)
        
lst.Items.AddRange(items)
    
End Sub 


المثال في المرفقات


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 66.7 ك ب / التحميلات : 30)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 4 56 منذ 7 ساعة مضت
آخر رد: مساعدة
  [سؤال] اريد مثال على طريقة ادراج صورة من السكانر ناصر شير 0 16 20-02-17, 02:45 PM
آخر رد: ناصر شير
  سؤال .. عن طريقة ادراج صورة من السكانر وطباعتها ناصر شير 0 34 20-02-17, 02:54 AM
آخر رد: ناصر شير
  طريقة ظهور اسم المستخدم في جميع صفحات الويب عباسة 0 57 14-02-17, 03:17 PM
آخر رد: عباسة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 1 41 12-02-17, 06:19 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 4 83 12-02-17, 06:17 PM
آخر رد: مساعدة
  [سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت youssef1 10 192 11-02-17, 12:56 AM
آخر رد: hassan
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 137 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
  [سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين Marwan9990 22 639 08-02-17, 02:48 AM
آخر رد: أسامة السالمي
  [سؤال] طريقة عمل ازرار على صرة من الفوتوشوب عبدالرحمن المكاوي 20 757 07-02-17, 02:49 PM
آخر رد: عبدالرحمن المكاوي

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


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