[bazooka top]

(03-09-20, 10:02 PM)L35 كتب : وعليكم السلام ورحمة الله وبركاته

PHP كود :

       Dim filecount = Math.Ceiling(ListBox1.Items.Count / 48)
        Dim c As Integer = 0
        For i = 1 To 48
            Dim s As New System.Text.StringBuilder
            For i2 = 1 To filecount
                s.AppendLine(ListBox1.Items(c))
                c = c + 1
                If c = ListBox1.Items.Count Then Exit For
            Next
            IO.File.WriteAllText("bah" & i & "i.txt", s.ToString)
        Next 


سأجربه ولي عودة شكرا لك

---

(03-09-20, 10:16 PM)Anas Mahmoud كتب :

(03-09-20, 09:05 PM)bazooka top كتب : السلام عليكم ورحمة الله وبركاته 
اهلا بك اخي الكريم . 
انت لم تفهمني جيدا . 

بل فهمتك جيدا الحمد لله 

الكود تحدد فيه اقصى عدد تريده في كل ملف وليكن 20000 مثلا او 40000 كما تريد

ومن ثم يقوم بحفظ عناصر الليست بوكس في ملف كل ملف لايزيد عن العدد المحدد

لايقص اي شيء يحفظ العناصر كلها في ملفات بارقام

جرب الكود واخبرني بالنتيجة

جربت الكود . يحفظ ملف واحد فقط فيه 20000 والباقي مش موجودين