تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حفظ الى اكثر من ملف
#1
بسم الله الرحمن الرحيم
لدى textbox او listbox (ايهما اسهل)
وبه عدد من السطور او items يصل الى 10,000 سطر او item
كالاتى:
محمد
احمد
على
عبد الله
عبد الحميد
الخ....

سؤالى الذى حيرنى فى البحث داخل جميع المواقع

كيف احفظ كل 250 سطر او item
فى ملف نصى
مثلا اذا كان عدد السطور الاجمالى = 3961
اريد كل 250 سطر يحفظ فى ملف نصى
3961/ 250 =(15 ملف نصى)
سيتبقى 211 سطر (يحفظ فى الملف 16)
ارجو ان اجد اجابتى عندكم
شكرا مقدما
الرد }}}
تم الشكر بواسطة:
#2
اذا كان السؤال غير واضح ارجو تنبيهى
فالمساله جد ضروريه
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :
For I = 0 To ListBox1.Items.Count - 1 Step 250
            Dim FileNumber As Integer = I \ 250 + 1
            FileOpen(1, "File" & FileNumber & ".txt", OpenMode.Output)
            Dim X As Integer = IIf(I + 250 < ListBox1.Items.Count, 249, ListBox1.Items.Count - I - 1)
            For H = I To I + X
                Print(1, ListBox1.Items(H) & IIf(H = I + X, "", vbNewLine))
            Next
            FileClose(1)
        Next

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#4
تم التقيم
شاكر افضالك اخى على هذا الكود الرائع
بالفعل يحفظ حسب ما اريد بالضبط
ممتاززززز

ولكنى اطمع فى كرم اخلاقك
انا لا اريده ان يحفظ فى مجلد المشروع, كيف اجعله يحفظ فى المكان الذى يريده المستخدم (open file dialog او save file dialog)
كيف سيكون شكل الكود؟
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته

أخي الكريم
الأفضل في هذه الحالة أن تستخدم أداة FolderBrowserDialog
حيث أن الملفات أنت من ستسميها

وهذا الكود بعد التعديل

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            For I = 0 To ListBox1.Items.Count - 1 Step 250
                Dim FileNumber As Integer = I \ 250 + 1
                FileOpen(1, FolderBrowserDialog1.SelectedPath & "\File" & FileNumber & ".txt", OpenMode.Output)
                Dim X As Integer = IIf(I + 250 < ListBox1.Items.Count, 249, ListBox1.Items.Count - I - 1)
                For H = I To I + X
                    Print(1, ListBox1.Items(H) & IIf(H = I + X, "", vbNewLine))
                Next
                FileClose(1)
            Next
        End If
    End Sub



بالتوفيق
الرد }}}
تم الشكر بواسطة:
#6
هذا بالضبط ما اريد اخى الكريم
ممتازززززززززز
بارك الله فيك وجعله فى موازين حسناتك ان شاء الله
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  [VB.NET] حذف اكثر من سطر محدد في جرد فيو h2551996 3 439 25-11-23, 12:30 PM
آخر رد: h2551996
  استفسار عام بخصوص فتح اكثر من اتصال على قاعدة بيانات واحدة assuhimi 0 324 15-09-23, 04:54 PM
آخر رد: assuhimi
  [سؤال] البحث في اكثر من قاعدة بيانات sher 2 444 17-08-23, 07:17 PM
آخر رد: aljzazy
  [SQL] جلب بيانات من اكثر من جدول ahmed_king2023 21 1,115 29-07-23, 12:05 PM
آخر رد: ahmed_king2023
  [سؤال] كيفية اضافة في اكثر من جدول ahmed_king2023 0 364 29-07-23, 12:03 PM
آخر رد: ahmed_king2023
  منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله معاذ_ابراهيم 7 3,357 29-03-23, 08:11 AM
آخر رد: عبدالله الدوسري
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou
  هل يمكن الاعتماد على 2 او اكثر من قاعدة البيانات لبرنامج واحد حماده ممدوح البحيرى 0 469 10-12-22, 08:56 PM
آخر رد: حماده ممدوح البحيرى

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


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