تقسيم ملف txt

تم تحميل الصفحة في 0,2151718 ثانية
تقسيم ملف txt
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
20 سبتمبر 2017
المشاركات
38
الإعجابات
19
النقاط
8
السلام عليكم ورحمة الله وبركاته
والصلاة والسلام على نبينا محمد

....
كيفكم ان شاء الله تكونو في افضل حال
ي جماعة الخير بغيت كود
لطريقة تقسيم ملف txt
يعني معي ملف txt فيه (مليون حرف/كلمة)
وحاب اقسمه بمعنى يكون كل ملف يتقسم الى مثلا 50 الف (خط/كلمة)
اتمنا فهمتو مقصدي
 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,542
النقاط
123
الإقامة
iraq
اولا عليك استعراض ملف الtext للبرنامج وقرائته عن طريق iO Reader
ثانيا تعمل لوب بFor حتى تحدد كم كلمه تريد
وبعدها تعمل باترن بالرجكس لاستخراج كل الكلمات واضافتها لtextbox2 بappendtext & vbnewline
وبعدها تكدر تحذف الكلمات الي ستخرجتها عن طريق replace واسبتدالها بنص فارغ
وبعدها تحفظ الtextbox2 الذي يحتوي على الكلمات الي سحبتها بالرجكس بiO Writer
 
إنضم
20 سبتمبر 2017
المشاركات
38
الإعجابات
19
النقاط
8
اولا عليك استعراض ملف الtext للبرنامج وقرائته عن طريق iO Reader
ثانيا تعمل لوب بFor حتى تحدد كم كلمه تريد
وبعدها تعمل باترن بالرجكس لاستخراج كل الكلمات واضافتها لtextbox2 بappendtext & vbnewline
وبعدها تكدر تحذف الكلمات الي ستخرجتها عن طريق replace واسبتدالها بنص فارغ
وبعدها تحفظ الtextbox2 الذي يحتوي على الكلمات الي سحبتها بالرجكس بiO Writer
يعطيك العافية على الرد

اتوقع لم تفهم مقصدي

هاذا الي اقصدهه انا

بس بدال ما احط مسار يكون عن طريق تحديد ملف



اتمنى لو تحط اكواد :)
او المشروع :)
عشان تفيديني اكثر
 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,542
النقاط
123
الإقامة
iraq
يعطيك العافية على الرد

اتوقع لم تفهم مقصدي

هاذا الي اقصدهه انا

بس بدال ما احط مسار يكون عن طريق تحديد ملف



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

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,542
النقاط
123
الإقامة
iraq
ابحث عن هذا البرنامج فيه هذه الخاصيه
Spider Hack Tools Plus v1.0 By Spider Virus
 

MR(AHMED)

اسطوره لن تتكرر MR_AHMED
rankrank
إنضم
28 سبتمبر 2013
المشاركات
211
الإعجابات
188
النقاط
43
عدل على هزا الكود

C:
  Dim folderBrowserDialog As FolderBrowserDialog = New FolderBrowserDialog()
        Dim folderBrowserDialog2 As FolderBrowserDialog = folderBrowserDialog
        Dim flag As Boolean = folderBrowserDialog2.ShowDialog() = DialogResult.OK
        If flag Then
            Dim value As String = Convert.ToString(Me.NumericUpDown1.Value)
            Dim text As String = Me.txtResult.Text
            Dim value2 As String = Convert.ToString(text.Length)
            Dim value3 As String = Convert.ToString(Convert.ToInt32(value2) / Convert.ToInt32(value))
            Dim value4 As String = Convert.ToString(1)
            Dim num As Integer = Convert.ToInt32(value)
            For i As Integer = 0 To num
                Dim contents As String = Strings.Mid(text, Convert.ToInt32(value4), Convert.ToInt32(value3))
                IO.File.WriteAllText(folderBrowserDialog2.SelectedPath + "\Part" + Convert.ToString(i) + ".txt", contents)
                value4 = Convert.ToString(Convert.ToInt32(value4) + CDec(Convert.ToInt32(value3)))
            Next
        End If
 
إنضم
20 سبتمبر 2017
المشاركات
38
الإعجابات
19
النقاط
8
عدل على هزا الكود

C:
  Dim folderBrowserDialog As FolderBrowserDialog = New FolderBrowserDialog()
        Dim folderBrowserDialog2 As FolderBrowserDialog = folderBrowserDialog
        Dim flag As Boolean = folderBrowserDialog2.ShowDialog() = DialogResult.OK
        If flag Then
            Dim value As String = Convert.ToString(Me.NumericUpDown1.Value)
            Dim text As String = Me.txtResult.Text
            Dim value2 As String = Convert.ToString(text.Length)
            Dim value3 As String = Convert.ToString(Convert.ToInt32(value2) / Convert.ToInt32(value))
            Dim value4 As String = Convert.ToString(1)
            Dim num As Integer = Convert.ToInt32(value)
            For i As Integer = 0 To num
                Dim contents As String = Strings.Mid(text, Convert.ToInt32(value4), Convert.ToInt32(value3))
                IO.File.WriteAllText(folderBrowserDialog2.SelectedPath + "\Part" + Convert.ToString(i) + ".txt", contents)
                value4 = Convert.ToString(Convert.ToInt32(value4) + CDec(Convert.ToInt32(value3)))
            Next
        End If
ابحث عن هذا البرنامج فيه هذه الخاصيه
Spider Hack Tools Plus v1.0 By Spider Virus
يعطيكم العافيةة
انا بسهل الامر
هاذا سورس ل الطريقة الي ابيها
ولكن فيهه مشكلة بسيطهه
الي هو انه بطي ..
عكس الاخر بغضطةة زر .
تفضلو الي يقدر يعدل عليه ويضيف لمسته الخاصه لو يبي :)
ويخليه الى الاحسن والاسرع
الرفع الخاص ممنوع
 
التعديل الأخير بواسطة المشرف:
إنضم
20 سبتمبر 2017
المشاركات
38
الإعجابات
19
النقاط
8
ضع السور س اللي تبغى تعدل عليه
وان شاء انا او احد الاخوان يقدر يفيدك
رفعته بس الله يهديه المشرف حذف الرابط
وكتب :)
الرفع الخاص ممنوع
مع اني م فهمت قصده :)
على العموم برفعه مره ثانيهه
 
إنضم
20 سبتمبر 2017
المشاركات
38
الإعجابات
19
النقاط
8
هاذا سورس ل الطريقة الي ابيها
ولكن فيهه مشكلة بسيطهه
الي هو انه بطئ .. عند التقسيم ياخذ وقت
عكس الثاني الي رفعت صورته ضغطة زر وقسمها في ثانية او اقل :)
على العموم هاذا السورس اتمنى احد يحل مشكلته ليه بطئ

Splitter | تحميل

اتمنى من المشرف لا يحذف الرابط ..
لي ثلاث ايام ادور حل :)*
 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,542
النقاط
123
الإقامة
iraq
رفعته بس الله يهديه المشرف حذف الرابط
وكتب :)
الرفع الخاص ممنوع
مع اني م فهمت قصده :)
على العموم برفعه مره ثانيهه
مرحبا اخي كيف حالك
راجع قسم المواضيع الملغمه وستجد الاف الموضيع الملغومه من ضعاف النفوس لذلك الاداره منعت الرفع الخاصه
اتمنى تتفهم الوضع
اذا وجد احد طاقم الفحص الملف ملغم او به فايروس او اكواد مشبوه بقصد او بغير قصد ستتوقف عضويتك
-
الق نظره على قوانين القسم
5. يمنع منعاً باتاً طلب المشاريع الجاهزة، أو طلبات تعديل المشاريع، كونها تشجع على النسخ واللصق بدون تعلم أو جهد، ويمنع طرح الأفكار بدون ذكر محاولة صاحبها لتنفيذها.
الإجراء: نقل الموضوع للمخالفة.
قوانين أقسام إستفسارات البرمجة بفروعها ~ تمت إعادة الصياغة وسيتم التطبيق حرفياً.
 
التعديل الأخير:
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل