منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة حفظ محتويات الليست بوكس في ملف نصي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة حفظ محتويات الليست بوكس في ملف نصي (/showthread.php?tid=7484)

طريقة حفظ محتويات الليست بوكس في ملف نصي - هيما 2013 - 22-12-12

السلام عليكم ورحمة الله وبركاتة
لو سمحتوا اخواني اريد كود حفظ محتويات الليست بوكس في ملف نصي
وشكرا


طريقة حفظ محتويات الليست بوكس في ملف نصي - just.coder - 12-03-13

كود :
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)


طريقة حفظ محتويات الليست بوكس في ملف نصي - أبو يعقوب - 12-03-13

السلام عليكم

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


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

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

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

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


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

PHP كود :
Sub LoadFromFile(ByVal lst As ListBox, ByVal 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 


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