[bazooka top]

(03-09-20, 07:46 PM)Anas Mahmoud كتب : تفضل اخي الكريم :

كود :

       Dim LinesPerFile = 20000 'اقصي عدد عناصر لكل ملف
       Dim Lines = ListBox1.Items.Count 'عدد العناصر الكلي
       Dim Files = Math.Ceiling(Lines / LinesPerFile) 'عدد الملفات

       For FileID As Integer = 0 To Files - 1

           Dim FileName = String.Format("E:\{0}.txt", FileID)

           Using sw As New StreamWriter(File.Open(FileName, FileMode.OpenOrCreate))

               Dim startIndex = FileID * LinesPerFile 'اول عنصر في الملف الحالي
               Dim endIndex = Math.Min(startIndex + LinesPerFile, Lines) - 1 'اخر عنصر في الملف الحالي

               For index = startIndex To endIndex
                   sw.WriteLine(ListBox1.Items(index).ToString)
               Next

           End Using

       Next

السلام عليكم ورحمة الله وبركاته 
اهلا بك اخي الكريم . 
انت لم تفهمني جيدا . 
انا اريد تقسيم عدد الاسطر الموجودة في listbox ,  ايا كان عددها لا يحذف منها 
وعند حفظ الملف يقوم بحفظ 48 ملف 
المهم في الاخر لما يعمل save للـ txt  يقسمهم في 48 تكست مش واحد بس . لان الملفات التي اعمل عليها كبيرة جدا .. تحتوي علي زيادة عن 2 مليون او مليون سطر .. في listbox  بالتالي انا اريد تقسيم العدد علي 48 txt  كما هو موضح في الصورة ..