[سعود]

آخر تحديث هنا

المثال مرفق فقط للتقسيم عدل على مدخلاته لاني ثبتها للسرعة او للتجربة السريعة بصراحة نسيت احذفها

توجد مشكلة موضحة بالمشروع وهي بسيطة لكني لم اوفق الى الحل

اخر ملف يفترض بعده يتم تفعيل الزر  لا ادري كيف اشرح المشكلة 

======================================

الصورة التالية لخطا حذف آخر ملف مع اني استخدم غلق وتدمير  الرايتر والريدر والستريم كما هو موضح بالكود

طبعا عند غلق البرنامج يحذف ولا اقصد اني اريد الحذف لكني مستغرب انه لم ينتهي من العمل و هذا شي جنني بصراحة.

========================================

ساضع كلاس الفورم كامل هنا ان لم ترد تحميل المرفق:

PHP كود :

Imports System.IO
Public Class Form1
    Dim filemax As Long = 0
    Dim mb As Long = (1024) ^ 2
    Dim filesize As Long = 0
    Dim folder As String
    Dim th As Threading.Thread
    Private Function fl(ByVal fpath As String)
        If IO.File.Exists(fpath) = True Then
            Dim f As New IO.FileInfo(fpath)
            Return f.Length
        Else
            Return Nothing
        End If
    End Function
    Private Function folderfiles(ByVal fo As String) As Integer
        Dim dir As New IO.DirectoryInfo(fo)
        Return dir.GetFiles.Count
    End Function
    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 fs As New FileStream(fpath, FileMode.Open)
        Dim br As New BinaryReader(fs)
        Dim i As Long = 0
        Dim n As Long = 0
        Dim mo As Long = filesize Mod filemax
nxt:
        Dim newfile As String = folder & fn & "_File_" & n.ToString("000000") & "_byte"
        p1.Invoke(Sub() p1.Maximum = filemax + (filemax / 80)) 'ماقدرت اتصرف معها زودت القيمة جدعنة بس
        For i = n To br.BaseStream.Length
            n = i
            Dim fw As New FileStream(newfile, FileMode.Append)
            Dim bw As New BinaryWriter(fw)
            bw.Write(br.ReadBytes(i))
            p1.Invoke(Sub() p1.Value = fl(newfile))
            fw.Close()
            fw.Dispose()
            bw.Close()
            bw.Dispose()
            If fl(newfile) >= filemax Then
                n += 1
                GoTo nxt
            End If
        Next ' الغريب ان الاكواد بعد هذا السطر لا يصل اليه البرنامج
        fs.Close()
        fs.Dispose()
        br.Close()
        br.Dispose()
        lbl.Invoke(Sub() lbl.Text = "تم")
        btnstart.Invoke(Sub() btnstart.Enabled = True)
    End Sub
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If IsNothing(th) = False Then
            If th.IsAlive = True Then
                th.Abort()
            End If
        End If
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        rep(Me)
    End Sub
    Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown, lbl.MouseDown, Label1.MouseDown, p1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Left
            ay = MousePosition.Y - Top
        End If
    End Sub
    Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove, lbl.MouseMove, Label1.MouseMove, p1.MouseMove
        If dr Then
            Left = MousePosition.X - ax
            Top = MousePosition.Y - ay
        End If
    End Sub
    Private Sub Form1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp, lbl.MouseUp, Label1.MouseUp, p1.MouseUp
        dr = False
    End Sub
    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
        Dim o As New OpenFileDialog
        If o.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtsfile.Text = o.FileName
        End If
    End Sub
    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click
        Dim fbd As New FolderBrowserDialog
        If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtfolder.Text = fbd.SelectedPath
            If txtfolder.Text.Trim.ToLower.EndsWith("\") = False Then
                txtfolder.Text = txtfolder.Text & "\"
            End If
        End If
    End Sub
    Private Sub btnstart_Click(sender As System.Object, e As System.EventArgs) Handles btnstart.Click
        If txtsfile.Text.Trim = "" Or txtfolder.Text.Trim = "" Or txtmax.Text.Trim = "" Then Exit Sub
        Dim fl As New IO.FileInfo(txtsfile.Text)
        folder = txtfolder.Text
        filesize = fl.Length
        filemax = CLng(txtmax.Text) * mb
        th = New Threading.Thread(AddressOf split)
        btnstart.Enabled = False
        If th.IsAlive = False Then
            th.Start(txtsfile.Text)
        End If
    End Sub
   
End Class 


ادري فيه لخبطة كثيرة لكن !

شكرا لكم مقدما.

[Taha Okla]

السلام عليكم ورحمة الله وبركاته 

وجدت مكان الخطأ وهو في الحلقة For
حتى يصل البرنامج لما بعد For يجب أن يصل العداد (i) لمدى الحلقة ثم عندها تنتهي الحلقة ويخرج تنفيذ الكود لما بعد الحلقة
يعني ركز مع الـ (i)  أو الرقم الذي يجب أن يصل له.

حتى في آخر مرحلة من تنفيذ الجزء الاخير تجد أن الـ (i) قيمتها صغيرة جداً مقارنة بمدى الحلقة ..
يعني كأنك تعيد تقييم قيمة الـ (i)  دون أن تعييد تقييم مدى الحلقة..

ركز هنا وسيتم الحل بإذن الله.


--

[سعود]

لكن كيف اجعل الحلقة تنتهي بمجرد انتهاء الاجراء او كيف اتحكم بالموضوع.
الصراحة عقلي وقف.

[Taha Okla]

اذا اشتغل معي عقلي واستطعت التركيز به 
سأنهيه بإذن الله..

ولكن حاليا  نحن في أخر الشهر وضغط العمل - وعلي انجاز الحسابات واغلاقها قبل نهاية الشهر ..

[سعود]

(26-08-22, 09:29 PM)Taha Okla كتب : اذا اشتغل معي عقلي واستطعت التركيز به 
سأنهيه بإذن الله..

ولكن حاليا  نحن في أخر الشهر وضغط العمل - وعلي انجاز الحسابات واغلاقها قبل نهاية الشهر ..

الله يقويك 
انا قلت يمكن شيء قدام عيني ماني شايفه (وهذي عادة عندي ) اقصد اني اظن الخطا واضح.
الان البايت byte الواحد  اليس يساوي  رقم ضمن حلقة for ؟
for i=0 to 100 مثلا
اليس الرقم 100 يعني انه صار لدينا ملف بحجم 100 بايت؟
هذا اللذي اريد معرفته لانه لو كان مثل مااتصور لم تحدث المشكلة,,,,,  الملفات المستخرجة تعود بشكل ممتاز و لااشكال و لا خطا في دمجها.
على كل وفق الله الجميع لكل خير.

[سعود]

آخر تحديث لاجراء split لكنه يجعل حجم آخر ملف اصغر من الحقيقي:

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 fs As New FileStream(thefile.FullName, FileMode.Open)
        Dim br As New BinaryReader(fs)
        Dim i As Long = 0
        Dim n As Long = 0
        Dim rmain As Long = (br.BaseStream.Length \ filemax)
        Dim mo As Long = br.BaseStream.Length Mod filemax
        Dim agroups As Long = 0
        If mo > 0 Then
            agroups = (rmain + 1)
        ElseIf mo = 0 Then
            agroups = rmain
        End If

nxt:
        Dim newfile As String = folder & fn & "_File_" & n.ToString("000000") & "_byte"
        p1.Invoke(Sub() p1.Maximum = filemax + (filemax / 80)) 'ماقدرت اتصرف معها زودت القيمة جدعنة بس
        For i = n To br.BaseStream.Length - 1
            n = i
            Dim fw As New FileStream(newfile, FileMode.Append)
            Dim bw As New BinaryWriter(fw)
            bw.Write(br.ReadBytes(i))
            ' lbl.Invoke(Sub() lbl.Text = foldersize(folder))
            p1.Invoke(Sub() p1.Value = fl(newfile))
            fw.Close()
            fw.Dispose()
            fw = Nothing
            bw.Close()
            bw.Dispose()
            bw = Nothing
            If fl(newfile) >= filemax Then
                '  n += 1
                GoTo nxt
            End If
            ' If i >= br.BaseStream.Length - 1 Then GoTo g
            If folderfiles(folder) = agroups Then
                GoTo g
            End If
        Next ' الغريب ان الاكواد بعد هذا السطر لا يصل اليه البرنامج
g:
        newfile = Nothing
        fs.Close()
        fs.Dispose()
        br.Close()
        br.Dispose()
        lbl.Invoke(Sub() lbl.Text = "تم")
        btnstart.Invoke(Sub() btnstart.Enabled = True)
    End Sub 


---

مثل ماقلت الخطا او الحل قدام عيني لكن مش شايفه

اللي كنت محتاجه هذا:

PHP كود :

br.BaseStream.Position = br.BaseStream.Length 


[Taha Okla]

يؤسفني أقول لك لسا ما اكتمل المشروع
استعجلت الجواب

تأكد من أحجام الملفات التي يتم التقسيم لها (عدا الملف الاخير)
عندما تتطابق الاحجام تكون تقريباً وصلت لاهم شيء بالبرنامج..

ما دام هناك اختلاف يعني انه لا زال هناك عشوائية في تقسيم الملفات وليس تقسيم منظم.
وسينتج عن ذلك اخطاء نتيجة الاستخدام المتكرر - ربما هي غير ظاهرة الان - لكنها ستظهر ..

[سعود]

(27-08-22, 05:45 AM)Taha Okla كتب : يؤسفني أقول لك لسا ما اكتمل المشروع
استعجلت الجواب

تأكد من أحجام الملفات التي يتم التقسيم لها (عدا الملف الاخير)
عندما تتطابق الاحجام تكون تقريباً وصلت لاهم شيء بالبرنامج..

ما دام هناك اختلاف يعني انه لا زال هناك عشوائية في تقسيم الملفات وليس تقسيم منظم.
وسينتج عن ذلك اخطاء نتيجة الاستخدام المتكرر - ربما هي غير ظاهرة الان - لكنها ستظهر ..

الله المستعان,,,لعلها تتضح مع الوقت.
لكن الان الوضع ماشي.

---

فعلا لما غيرت الملف ظهرت المشاكل القديمة.
لكن عرفت اضبط الـ step او الـ value الخاص بالبروقرس بار.
و ان شالله تنحل.

[سعود]

طبعا احتراما لهذا المثال اللذي اتعبني

حبيت احدثه مع انه ناقص لكن هذا افضل تحسين قدرت عليه وهو نفس فكرة  المثال الرئيسي لكن مثل ماقلت تنقصه كود الدمج وهو بسيط