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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج طريقة للطرح او الجمع في المصفوفات abudawoodd 9 122 أمس, 04:35 PM
آخر رد: abudawoodd
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 505 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  ترتيب 2 ليست بوكس حسب احدهما samira20 6 138 06-01-17, 06:40 PM
آخر رد: samira20
  [VB.NET] طريقة عمل زخرفة تلقائية 3asfa~mdmra 1 96 06-01-17, 02:55 PM
آخر رد: Basil Abdallah
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 415 04-01-17, 01:12 AM
آخر رد: Namer
  [كود] استقسار عن الكومبوبكس والتيكست بوكس عبدالرحمن المكاوي 6 140 31-12-16, 07:35 PM
آخر رد: مساعدة
  [سؤال] مواقع التوصل والفيجول هل من طريقة للتحكم فى الفيسبوك elhon.tec 2 301 29-12-16, 11:38 PM
آخر رد: Basil Abdallah
  مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) marten363 3 95 27-12-16, 08:20 PM
آخر رد: مساعدة
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 9 4,331 27-12-16, 01:25 PM
آخر رد: Basil Abdallah
  مساعد من فضلكم في طريقة ملء كومبوتكست ادت و القريد فيو في الديف اكسبرس hocine_btsm 0 75 25-12-16, 12:19 AM
آخر رد: hocine_btsm

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


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