ماهي معادلة تقسيم شيء ما - نسخة قابلة للطباعة

كود :

       Dim C1 As Integer = ListBox1.Items.Count    ' العدد الاجمالي

        Dim G1 As Integer = 40                      ' تعداد المجموعة الواحدة



        Dim GC1 As Integer = C1 \ G1                ' عدد المجموعات

        Dim M1 As Integer = C1 Mod G1               ' الباقي خارج المجموعات المكتملة



        Dim fn As String                            ' مسار ملف الحفظ



        Dim All As String = ""                      ' شغلات كثيرة بعدين بتعرفها



        For i = 0 To C1 - 1

            ListBox1.SetSelected(i, True)

            All &= ListBox1.Text & vbNewLine



            If (i + 1) Mod G1 = 0 And (i + 1) > 0 Then  ' الوصول لأول مجموعة بشرط العداد أكبر من الصفر

                fn = fpath & (i + 1).ToString("000") & ".txt"

                IO.File.WriteAllText(fn, All)

                All = ""

            ElseIf M1 > 0 And i = C1 - 1 Then       ' إذا كان يوجد باقي  والعداد وصل للنهاية

                fn = fpath & (i + 1).ToString("000") & ".txt"

                IO.File.WriteAllText(fn, All)

                All = ""

            End If

        Next

PHP كود :

Private Sub split(ByVal fpath As String)
        If IO.File.Exists(fpath) = False Then Exit Sub
        Dim thefile As New IO.FileInfo(fpath)
        Dim fn As String = thefile.Name
        Dim GC1 As Long = filesize \ filemax                 ' عدد المجموعات
        Dim M1 As Long = filesize Mod filemax                ' الباقي خارج المجموعات المكتملة
        Dim fs As New FileStream(fpath, FileMode.Open)
        Dim br As New BinaryReader(fs)
        Dim i As Long
        Dim n As Long = 0
        Dim newfile As String = folder & fn & "_File_" & n.ToString("00000000")
        p1.Invoke(Sub() p1.Maximum = filemax + (filemax / 80)) 'ماقدرت اتصرف معها زودت القيمة جدعنة بس
        For i = n To filesize - 1
            If th.ThreadState = Threading.ThreadState.AbortRequested Then Exit For
            n = i
            p1.Invoke(Sub() p1.Value = fl(newfile))
            If (fl(newfile) < filemax) Then
                lbl.Invoke(Sub() lbl.Text = newfile)
                Using fw As New FileStream(newfile, FileMode.Append)
                    Using bw As New BinaryWriter(fw)
                        bw.Write(br.ReadBytes(i))
                        fw.Close()
                        bw.Close()
                    End Using
                End Using
            ElseIf fl(newfile) >= filemax Then
                n += 1
                newfile = folder & fn & "_File_" & n.ToString("00000000")
                lbl.Invoke(Sub() lbl.Text = newfile)
                Using fw As New FileStream(newfile, FileMode.Append)
                    Using bw As New BinaryWriter(fw)
                        bw.Write(br.ReadBytes(i))
                        fw.Close()
                        bw.Close()
                    End Using
                End Using
                p1.Invoke(Sub() p1.Value = fl(newfile))
            End If
        Next
        btnstart.Invoke(Sub() btnstart.Enabled = True)
    End Sub