تقييم الموضوع :
  • 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 ك ب / التحميلات : 28)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 4 78 منذ 6 ساعة مضت
آخر رد: araxis
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,350 30-11-16, 10:16 PM
آخر رد: omferas
  كيف اقوم بتعبئت كمبو بوكس من جدول في اسكيول سيرفر معتز الجازوي 2 63 19-11-16, 03:10 AM
آخر رد: معتز الجازوي
  مسار قاعدة البيانات في التكست بوكس hglogtd 2 70 19-11-16, 02:19 AM
آخر رد: hglogtd
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 1 69 17-11-16, 10:50 PM
آخر رد: السرور
  [سؤال] طريقة عمل كشف حساب (دائن ومدين) اليوم مبتدئة وغداً محترفة 11 328 14-11-16, 08:26 AM
آخر رد: Genius Live
  كيف اربط ثلاثة كومبو بوكس abanoub saeed nabil 6 171 13-11-16, 11:23 PM
آخر رد: هاوي1995
  طريقة تحزيم التطبيق اليوم مبتدئة وغداً محترفة 1 115 12-11-16, 08:16 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  طريقة عمل استعلام في sql server 2014 Rabeea Qbaha 2 73 07-11-16, 03:13 PM
آخر رد: Rabeea Qbaha
  [سؤال] هل يلزم تثبيت SQL Server في جهاز الزبون الذي ستبيع له برنامجك ام هناك طريقة اخرى؟ thevirus 3 142 06-11-16, 07:51 PM
آخر رد: العواد الصغير

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


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