(25-08-22, 08:34 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

هل تقصد مثلاً :
أنه لو لديك 141 عنصر أن تأخذ من الـ ListBox   : 
عناصر مثلاً 50 وتضعهم في ملف ثم 50 وتضعهم في ملف وتأخذ الباقي في ملف آخر ..
؟؟؟
؟؟
؟

(25-08-22, 08:34 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

هل تقصد مثلاً :
أنه لو لديك 141 عنصر أن تأخذ من الـ ListBox   : 
عناصر مثلاً 50 وتضعهم في ملف ثم 50 وتضعهم في ملف وتأخذ الباقي في ملف آخر ..
؟؟؟
؟؟
؟

(25-08-22, 08:43 AM)asmarsou كتب :

(25-08-22, 08:34 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

هل تقصد مثلاً :
أنه لو لديك 141 عنصر أن تأخذ من الـ ListBox   : 
عناصر مثلاً 50 وتضعهم في ملف ثم 50 وتضعهم في ملف وتأخذ الباقي في ملف آخر ..
؟؟؟
؟؟
؟

السلام عليكم و رحمة الله و بركاته
ربما هذا الموضوع يقي بالغرض او يقربها
https://stackoverflow.com/questions/38407759/dividing-listbox-items-into-2-parts

(25-08-22, 09:47 AM)سعود كتب : باذن الله ساعيد القراءة للاكواد مرات عدة حتى اتمكن من تطبيق الفكرة.

شوف الكود اللي كتبته (اقصد انا) كتبته قبل كتابة الموضوع وواجهت اشكالية هي نفس اشكالية المشروع الخاص بالتقسيم والدمج وهو ان الملفات الصغيرة الحجم لا تنفع معها بسبب المشكلة بالكود:

PHP كود :

Imports System.IO
Public Class Form1
    Dim fpath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\textfiles\"
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 100
            ListBox1.Items.Add(i.ToString("000"))
        Next
        If IO.Directory.Exists(fpath) = False Then
            IO.Directory.CreateDirectory(fpath)
        End If
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim maxint As Integer = 40
        Dim i As Integer
        Dim all As String = ""
        For i = 0 To ListBox1.Items.Count - 1
            ListBox1.SetSelected(i, True)
            Dim fn As String = fpath & i.ToString("000") & ".txt"
            all &= ListBox1.Text & vbNewLine
            If i >= maxint Then
                If i Mod maxint = 0 Then
                    IO.File.WriteAllText(fn, all)
                    all = ""
                End If
            End If
            fn = Nothing
        Next
    End Sub
End Class 


هذا الكود نتيجته يحفظ الى 80 فقط .
ماهي الجزئية الخطأ.

إقتباس :استاذ اذا كان قصدك كما فهمت هو تقسيم عناصر الليست اي ال 100 عنصر المنشأة عند الفورم لود الى قسمين متساويين اي كل قسم 50 عنصر فقط غير معرف ال maxint  في بداية كود البوتن من =40  الى عدد عناصر الليست الحقيقية ال 100 عنصر ليصبح الكود برمته على النحو

(25-08-22, 12:21 PM)Taha Okla كتب : خذها من يد عربية :

كود :

       Dim maxint As Integer = 40
       Dim i As Integer
       Dim all As String = ""

       Dim j As Integer

       For i = 0 To ListBox1.Items.Count - 1
           ListBox1.SetSelected(i, True)

           Dim fn As String = fpath & i.ToString("000") & ".txt"

           all &= ListBox1.Text & vbNewLine

           If (i + 1) >= maxint Then
               If (i + 1) Mod maxint = 0 Then
                   IO.File.WriteAllText(fn, all)
                   all = ""
               ElseIf (i + 1) > (maxint * ((ListBox1.Items.Count - 1) \ maxint)) Then
                   For j = (maxint * ((ListBox1.Items.Count - 1) \ maxint)) + 1 To ListBox1.Items.Count - 1
                       i = j
                       ListBox1.SetSelected(i, True)
                       all &= ListBox1.Text & vbNewLine
                   Next

                   i = j + 1
                   IO.File.WriteAllText(fpath & j.ToString("000") & ".txt", all)
                   all = ""

                   ' i = j
               End If
           
           End If
           fn = Nothing
       Next

(مع أنه مو عاجبني طريقة الكود)  أظن هناك أفضل من هذه الطريقة وكود أبسط لتقسيم البيانات ولكن أبقيت على نفس الطريقة التي تعرفها..

بالتوفيق ..