تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ماهي معادلة تقسيم شيء ما
#11
هذا نفس الكود مع رشة ملح :

كود :
       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

..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
#12
ماشاء الله تبارك الله
هل الفكرة ممكن نطبقها على ارقام كبيرة جدا مثل حجم الملف اذا حولنا الميجا الى بايت؟.
طبعا باستخدام BinaryReader  مع  BinaryWriter
هل ينفع او لها اسلوب آخر لاني اطبق نفس المبدا اللي بالمشاركة.
الرد }}}
#13
(26-08-22, 01:03 AM)سعود كتب : ماشاء الله تبارك الله
هل الفكرة ممكن نطبقها على ارقام كبيرة جدا مثل حجم الملف اذا حولنا الميجا الى بايت؟.
طبعا باستخدام BinaryReader  مع  BinaryWriter
هل ينفع او لها اسلوب آخر لاني اطبق نفس المبدا اللي بالمشاركة.

جرب .. وأعطينا النتيجة..
ولكن عليك رفع مستوى المتغيرات
الى Long او اكثر
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
#14
بنهاية المطاف ما اظن اني احيد عن المثال الاول( اقصد اني لا احسن افضل منه رغم ضعفه) ,,,   اريد باي طريقة جديدة تكون افضل وممكن افهمها.

على كل حال ظليت اتنقل بين المشروع الاول ومشروع جديد احاول اطبق اللي فهمته من اكواد التعامل مع النصوص لكن مافيه اي نتيجة.
الرد }}}
#15
الشيء المضحك ويرفع الضغط بنفس الوقت ان on error resume next لم تعد تتخطى الاخطاء !!!
ولا حتى try
الرد }}}
#16
هي مثل علاج سريع لتجاوز بعض المشاكل والتي يكون أكواد التصحيح وتلافي الخطأ فيها أكثر من اللازم
ومن الخطأ أساساً استخدام هذه العبارات لتجاوز الأخطاء - بل يجب الوقوف على كل خطأ ووضع الكود المناسب لتلافيه ومناقشة حالته..

فهي ربما تتجاز سطر أو سطرين من الاخطاء ولكن ليس كل اللبلوك البرمجي ..
---
من الحالات النادرة التي تستدعي وضع هذا الكود 
مثل طلب حذف ملف -فربما يكون هذا الملف مفتوح - فلا يستطيع البرنامج حذفه - فيأتي هنا دور هذه العبارة لـ لتلافي ايقاع البرنامج بمشكلة الايقاف المفاجئ بسبب هذا الخطأ - ويبقى الوضع هكذا حتى يجد حل لكل نوع من الملفات - فليس كل الملفات تقبل نفس الحلول..
---
في برامجي المحاسبية : أرفض تماماً استخدامها إلا في حالة تنسيق شكل النوافذ بالتكبير والتصغير لتناسب كل أنواع الشاشات.
و في حالة بناء جداول البيانات والجداول المؤقته من خلال الكود .. فقط ..  
أما عند تسجيل القيود والحسابات فمرفوض أن يتم تلافي أي خطأ بل يجب إصلاح كل الأخطاء التي تقع ويجب وضع لها حلول منطقية تبقي الحسابات صحيحة .. فأي خطأ يقع في أي طرف من أطراف القيود من الصعب ادراكه وادراك مكان وقوعه .. فالحل يجب أن نترك الخطأ يقع لينبهنا عن وجود أخطاء لنقوم باصلاحها بنفس وقت وقوعها .. لأنها لا تتحمل التأخير ..  فربما تصنع برنامج في ستة أشهر وتبقى سنتينن حتى تصلح أغلب أخطائه ..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: سعود , سعود , جيولوجي مبتدئ
#17
PHP كود :
 btnstart.Invoke(Sub() btnstart.Enabled True
الكود السابق واضح لكن مكانه بعد حلقة for ومستغرب لماذا لا يتم تفعيل الزر.

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(fpathFileMode.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 

هذا  الاجراء اللي شيب براسي التقسيم تمام مثل الاول والاشكالية مثل الاولى.
اذا فيه خطا ياليت تدلوني على التصحيح.
طبعا حاولت تطبيق الافكار  الموجودة باللفكرة لكن لم تفلح فظللت اتراجع الى ان اصبح البرنامج نسخة مطابقة للمثال الاول.
الظاهر خلاص افكر انسى.
الرد }}}
تم الشكر بواسطة: جيولوجي مبتدئ , جيولوجي مبتدئ


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  إدخال معادلة رياضية في textBox وبرمجة حلها؟ الخير19 3 299 03-01-24, 04:19 PM
آخر رد: الخير19
  [VB.NET] ماهي الارقام الصحيحة من نوع Integer فطومة 1 387 03-06-23, 08:48 PM
آخر رد: Taha Okla
  [سؤال] ماهي اشهر مواقع لبيع نظام ERP في العالم ؟ ahmed_king2023 0 366 24-05-23, 10:10 PM
آخر رد: ahmed_king2023
  تقسيم الاسم الكامل الى اجزاء في الداتا جريد فيو yosif 4 525 13-04-23, 11:15 PM
آخر رد: yosif
  [VB.NET] ماهي overload LoveVb 4 2,413 06-03-23, 11:16 AM
آخر رد: زياد جلال محمد جلال
  ماهي طريقة انشاء hash invoice بطريقة اوتوماتيكية malsofi 0 348 04-12-22, 11:49 AM
آخر رد: malsofi
  [سؤال] ماهي فائدة ال class scluay 5 9,803 25-11-22, 03:21 PM
آخر رد: مهندس ابوبكر
  تقسيم الرقم الى مجموعات حماده ممدوح البحيرى 1 506 22-11-22, 08:48 AM
آخر رد: asmarsou
  [سؤال] * [تم الحل] * المحاولة الثانية و اللتي باءت بالفشل حول تقسيم ملف بشكل دقيق سعود 8 1,031 27-08-22, 07:41 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم