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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 121 18-10-17, 09:49 PM
آخر رد: سعود
  [نقاش] طريقة لارسال النقود عند شراء برنامجي hoshosgost@yahoo.com 3 58 16-10-17, 02:58 AM
آخر رد: حريف برمجة
  ما هي افضل طريقة لجعل البرنامج تجريبي محمود صالح 3 149 15-10-17, 11:32 PM
آخر رد: hoshosgost@yahoo.com
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 392 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
  أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. nassery99 4 66 11-10-17, 09:17 PM
آخر رد: nassery99
  طباعة كل محتويات الصورة بالاضافات الجديدة محمد اسماعيل 7 170 09-10-17, 12:27 AM
آخر رد: محمد اسماعيل
  اضافة 0 قبل العلامه العشريه فى التكست بوكس نبيل فتحى 6 120 08-10-17, 03:21 AM
آخر رد: نبيل فتحى
  [سؤال] طريقة حذف مفتاح من الريجستري سعود الشامان 7 152 04-10-17, 06:19 PM
آخر رد: سعود الشامان
  [VB.NET] سؤال :- طريقة جميع الوقت من قاعدة البيانات dubai.eig 4 130 03-10-17, 04:02 PM
آخر رد: dubai.eig
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 2 98 26-09-17, 11:31 AM
آخر رد: محمد بوقزاحة

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


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