+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هل فيجوال بيسك يدعم تقسيم الملف؟ (/showthread.php?tid=42085)
هل فيجوال بيسك يدعم تقسيم الملف؟ - سعود - 04-08-22
مثال بسيط جدا جهزته في الرابط هذا
لا بد ان يكون حجم الملف كبير (على مااظن)
اخواني الكرام
هل فيجوال بيسك يمكنها تقسم ملف؟
احاول صيغة اجراء تقسيم ملف فما هو الخطا هنا:
PHP كود :
Dim folderpath As String = IO.Path.GetDirectoryName(fpath) & "\"
Dim sf As String = IO.Path.GetFileNameWithoutExtension(fpath)
Dim fstream As New FileStream(fpath, FileMode.Open)
Dim fl As New IO.FileInfo(fpath)
Dim fcount As Integer = fl.Length
Dim f1 As Integer = (fcount / 3)
Dim bw As BinaryWriter
Dim br As BinaryReader
br = New BinaryReader(fstream)
Using fs As New FileStream(folderpath & sf & "_0", FileMode.Append)
bw = New BinaryWriter(fs)
bw.Write(br.ReadBytes(fcount - 1), 0, f1)
End Using
Using fs As New FileStream(folderpath & sf & "_1", FileMode.Append)
bw = New BinaryWriter(fs)
bw.Write(br.ReadBytes(fcount - 1), f1, f1)
End Using
Using fs As New FileStream(folderpath & sf & "_2", FileMode.Append)
bw = New BinaryWriter(fs)
bw.Write(br.ReadBytes(fcount - 1), f1 + f1, f1)
End Using
RE: هل فيجوال بيسك يدعم تقسيم الملف؟ - asmarsou - 05-08-22
(04-08-22, 11:58 PM)سعود كتب :اخي الفاضلاخواني الكرامهل فيجوال بيسك يمكنها تقسم ملف؟
احاول صيغة اجراء تقسيم ملف فما هو الخطا هنا:PHP كود :
Dim folderpath As String = IO.Path.GetDirectoryName(fpath) & "\"
Dim sf As String = IO.Path.GetFileNameWithoutExtension(fpath)
Dim fstream As New FileStream(fpath, FileMode.Open)
Dim fl As New IO.FileInfo(fpath)
Dim fcount As Integer = fl.Length
Dim f1 As Integer = (fcount / 3)
Dim bw As BinaryWriter
Dim br As BinaryReader
br = New BinaryReader(fstream)
Using fs As New FileStream(folderpath & sf & "_0", FileMode.Append)
bw = New BinaryWriter(fs)
bw.Write(br.ReadBytes(fcount - 1), 0, f1)
End Using
Using fs As New FileStream(folderpath & sf & "_1", FileMode.Append)
bw = New BinaryWriter(fs)
bw.Write(br.ReadBytes(fcount - 1), f1, f1)
End Using
Using fs As New FileStream(folderpath & sf & "_2", FileMode.Append)
bw = New BinaryWriter(fs)
bw.Write(br.ReadBytes(fcount - 1), f1 + f1, f1)
End Using
بالنسبة للسؤال هل فيجوال بيسك يمكنها تقسم ملف؟, بحثت وو جدت مثال لذلك مرفق
(05-08-22, 01:34 AM)asmarsou كتب :(04-08-22, 11:58 PM)سعود كتب :اخي الفاضلاخواني الكرامهل فيجوال بيسك يمكنها تقسم ملف؟
احاول صيغة اجراء تقسيم ملف فما هو الخطا هنا:PHP كود :
Dim folderpath As String = IO.Path.GetDirectoryName(fpath) & "\"
Dim sf As String = IO.Path.GetFileNameWithoutExtension(fpath)
Dim fstream As New FileStream(fpath, FileMode.Open)
Dim fl As New IO.FileInfo(fpath)
Dim fcount As Integer = fl.Length
Dim f1 As Integer = (fcount / 3)
Dim bw As BinaryWriter
Dim br As BinaryReader
br = New BinaryReader(fstream)
Using fs As New FileStream(folderpath & sf & "_0", FileMode.Append)
bw = New BinaryWriter(fs)
bw.Write(br.ReadBytes(fcount - 1), 0, f1)
End Using
Using fs As New FileStream(folderpath & sf & "_1", FileMode.Append)
bw = New BinaryWriter(fs)
bw.Write(br.ReadBytes(fcount - 1), f1, f1)
End Using
Using fs As New FileStream(folderpath & sf & "_2", FileMode.Append)
bw = New BinaryWriter(fs)
bw.Write(br.ReadBytes(fcount - 1), f1 + f1, f1)
End Using
بالنسبة للسؤال هل فيجوال بيسك يمكنها تقسم ملف؟, بحثت وو جدت مثال لذلك مرفق
RE: هل فيجوال بيسك يدعم تقسيم الملف؟ - سعود - 05-08-22
شكر الله لك
جاري محاولة الترجمة...
RE: هل فيجوال بيسك يدعم تقسيم الملف؟ - asmarsou - 05-08-22
(05-08-22, 01:52 AM)سعود كتب : شكر الله لك
جاري محاولة الترجمة...
العفو استاذ
RE: هل فيجوال بيسك يدعم تقسيم الملف؟ - سعود - 06-08-22
جربت الفكرة على مجلد مضغوط ونجح كل من التقسيم و الدمج
بقيت نقطة وهي الاجراء التالي وهو التقسيم لماذا لا يفعل الزر بعد الانتهاء؟
PHP كود :
Private Sub split(fl As String)
btnsplit.Invoke(Sub() btnsplit.Enabled = False)
Dim fn As String = IO.Path.GetFileName(fl)
Dim fsr As New FileStream(fl, FileMode.Open)
Dim fcount As Integer = fsr.Length
Dim br As New BinaryReader(fsr)
nxt:
Dim newfile As String = folder & fn & "_File_" & n
Dim fsw As New FileStream(newfile, FileMode.Append)
Dim bw As New BinaryWriter(fsw)
Dim i As Integer
For i = lastindex To fcount - 1
lastindex = i
If th.ThreadState = Threading.ThreadState.AbortRequested Then Exit Sub
prog1.Invoke(Sub() prog1.Value = ((i / fcount) * 100))
bw.Write(br.ReadBytes(i))
If filelength(newfile) >= splitsize Then
n += 1
lastindex += 1
GoTo nxt
End If
Next
newfile = Nothing
fsr.Close()
fsw.Close()
br.Close()
bw.Close()
btnsplit.Invoke(Sub() btnsplit.Enabled = True)
End Sub
مع ان التقسيم انتهى!!!
ما المشكلة؟
بالنسبة للمشروع اللذي رفعه الاخ بارك الله فيه لم اتمكن من استيعابه لانه متقدم جدا و لم اجربه
. لكني اطلعت عليه اكثر من مرة ولانه غير انجليزي لم اتمكن من فهم المسميات.
RE: هل فيجوال بيسك يدعم تقسيم الملف؟ - سعود - 07-08-22
و لله الحمد اتممت فكرة التقسيم واعادة التجميع وذلك بوضع حد اقصى لكل الملفات المستخرجة.
يفضل استخدام ملفات بحجم كبير و تجعل التقسيم او الحجم بالميجا وليس اقل ولا يحتوي كسر.
باذن الله اذا اكملت المثال ارفعه.
هذا سؤال بالاساسيات:
اللي اعرفه ان جملة on error تتخطى الخطأ فماذا حصل؟
حاجة غريبة هل لان الاجراء ضمن ثريد مستقل؟
ممكن شرح ما المقصود برسالة الخطأ
RE: هل فيجوال بيسك يدعم تقسيم الملف؟ - سعود - 07-08-22
المشكلة في مشروعي هذا فقط مع الملفات الصغيرة يعني من 20 ميجا واقل.
باذن الله سارفع المثال لعل احدكم يفتح الله عليه لحل المشكلة.
RE: هل فيجوال بيسك يدعم تقسيم الملف؟ - سعود - 07-08-22
الشريط الاول اللي هو الــProgressBar قيمته تتغير وفق حجم الملف اللذي يتم توليده و آخر ملف سيبدو و كانه ناقص و هذا طبيعة المثال البسيط.
RE: هل فيجوال بيسك يدعم تقسيم الملف؟ - سعود - 07-08-22