تقييم الموضوع :
  • 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
هذا بالضبط ما اريد اخى الكريم
ممتازززززززززز
بارك الله فيك وجعله فى موازين حسناتك ان شاء الله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج كود ربط قاعدة اكسس علي اكثر من جهاز hatem555 3 249 02-11-17, 10:24 PM
آخر رد: sendbad100
  [VB.NET] كيف افتح اكثر من مشروع بنفس الوقت ؟ عمرو المطري 5 74 02-11-17, 07:17 PM
آخر رد: هوشيار
Information [VB.NET] كود لعدم تكرار اكثر من حقل معا في فيجوال محمد المصري 5 115 23-10-17, 06:20 PM
آخر رد: zaer
  [VB.NET] كيفية عمل اكثر من IF و them واحدة ALIOMAR27135 2 146 15-08-17, 09:09 PM
آخر رد: ALIOMAR27135
  [سؤال] استفسار عن امكانية مشاركة برامج فيجول بيسك بين اكثر من حاسوب Marwan9990 7 256 21-07-17, 12:49 AM
آخر رد: أبوبكر سويدان
  أحتاج كود يغير لون صف أو اكثر من صف في داتا غريد فيو بناء على شرط samawi 2 185 29-04-17, 12:56 AM
آخر رد: samawi
  استفسار عن امكانية جمع اكثر من حقل من قاعدة البيانات.. Marwan9990 26 983 23-03-17, 02:51 AM
آخر رد: awidan76
  [سؤال] كيف اضيف اكثر من جدول من نفس قاعدة لبيانات Marwan9990 1 197 22-03-17, 10:19 AM
آخر رد: abdualla
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 5 682 28-01-17, 02:14 PM
آخر رد: أسامة السالمي
  كود بخذف الاسماء القديمة التي تجاوز عمرها اكثر من 90 يوم من تاريخ اليوم الدريساوي 3 318 20-01-17, 11:07 PM
آخر رد: الدريساوي

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


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