تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تصدير من الداتاجريدفيو الى ملف تكست
#1
السلام عليكم ورحمة الله وبركاته

عندي داتا جريد فيو تحتوي على اربعه اعمده  رقم الحركة / رقم الصنف / اسم الصنف / الكمية

اريد تصديرها الى ملف تكست على ان تحتوي فقط  رقم الصنف والكمية ويقكون فاصل بنهم اشارة ,

مثلا 

12,2255
9,2555
12,5524

ارجوا مساعدتي بذلك
الرد
تم الشكر بواسطة:
#2
(31-12-18, 05:45 PM)allo5_800 كتب : السلام عليكم ورحمة الله وبركاته

عندي داتا جريد فيو تحتوي على اربعه اعمده  رقم الحركة / رقم الصنف / اسم الصنف / الكمية

اريد تصديرها الى ملف تكست على ان تحتوي فقط  رقم الصنف والكمية ويقكون فاصل بنهم اشارة ,

مثلا 

12,2255
9,2555
12,5524

ارجوا مساعدتي بذلك


وعليكم السلام ورحمة الله وبركاته

تفضل الكود
PHP كود :
Dim lst As New List(Of String' إنشاء قائمة نصية

For Each r In DataGridView1.Rows ' 
لوب للمرور على جميع اسطر الداتاجريد
    If r
.IsNewRow Then Exit For 'الخروج من اللوب عند السطر الجديد
    Dim c0 = r.Cells(0).Value ' 
رقم الحركة
    Dim c1 
r.Cells(1).Value ' رقم الصنف <<<
    Dim c2 = r.Cells(2).Value ' 
اسم الصنف
    Dim c3 
r.Cells(3).Value ' الكمية <<<
    lst.Add(c1 & "," & c3) ' 
إضاف سطر بيانات (صنف/كميةللقائمة النصية
Next

IO
.File.WriteAllLines("file.txt"lst' حفظ القائمة النصية في ملف تكست 
الرد
تم الشكر بواسطة: اسامه الهرماوي , allo5_800
#3
اشكرك اخي ولاكن المطلوب ملف تكست وليس تكست بكس اي تصديره الى ملف txt يحفظ على الجهاز انا استخدمت كود لاكن يقوم بتكرير القيمة بالسط الواحد ثلاث مرات اليك الكود لتوضح عندك الصور 

اعتذر لاني لم اقم بتوضيح الطلب اكثر

كود :
Private Sub SimpleButton2_Click_1(sender As Object, e As EventArgs) Handles SimpleButton2.Click
       Dim sfg As New SaveFileDialog
       sfg.FileName = ""
       sfg.Filter = "text document|*.txt"
       sfg.Title = "save datagridview as"
       If sfg.ShowDialog = DialogResult.OK Then

           Dim writer As TextWriter = New StreamWriter(sfg.FileName)
           For i As Integer = 0 To DataGridView1.Rows.Count - 1
               For j As Integer = 0 To DataGridView1.Columns.Count - 1
                   writer.Write(DataGridView1.Rows(i).Cells(1).Value.ToString() & "," & DataGridView1.Rows(i).Cells(3).Value.ToString())

               Next
               writer.WriteLine("")
           Next
           writer.Close()
           MsgBox("تم تصدير المف")
       End If
   End Sub
الرد
تم الشكر بواسطة:
#4
(01-01-19, 02:52 AM)allo5_800 كتب : اشكرك اخي ولاكن المطلوب ملف تكست وليس تكست بكس اي تصديره الى ملف txt يحفظ على الجهاز انا استخدمت كود لاكن يقوم بتكرير القيمة بالسط الواحد ثلاث مرات اليك الكود لتوضح عندك الصور 

اعتذر لاني لم اقم بتوضيح الطلب اكثر

كود :
Private Sub SimpleButton2_Click_1(sender As Object, e As EventArgs) Handles SimpleButton2.Click
       Dim sfg As New SaveFileDialog
       sfg.FileName = ""
       sfg.Filter = "text document|*.txt"
       sfg.Title = "save datagridview as"
       If sfg.ShowDialog = DialogResult.OK Then

           Dim writer As TextWriter = New StreamWriter(sfg.FileName)
           For i As Integer = 0 To DataGridView1.Rows.Count - 1
               For j As Integer = 0 To DataGridView1.Columns.Count - 1
                   writer.Write(DataGridView1.Rows(i).Cells(1).Value.ToString() & "," & DataGridView1.Rows(i).Cells(3).Value.ToString())

               Next
               writer.WriteLine("")
           Next
           writer.Close()
           MsgBox("تم تصدير المف")
       End If
   End Sub

في كود رد الاخ الكريم قم بتغيير file.txt التي في اخر سطر الي المسار الذي تريده
الرد
تم الشكر بواسطة: allo5_800
#5
اعذرني انا لما اشاهد الكود بالكامل شكرا جزيلا على الردود الطيبه
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة عرض قيمتين فى تكست بوكس واحد سمير جمال 1 76 16-01-19, 01:58 PM
آخر رد: حريف برمجة
  مشكلة ظهور مفاجيء للأخطاء عند تصدير الداتاجريدفيو كملف PDF ..[تم الحل] Hazem1 0 67 08-01-19, 11:48 AM
آخر رد: Hazem1
  ما طريقة ارسال قيمة من تكست الي الريبورت فيور new_programer 0 75 31-12-18, 05:37 PM
آخر رد: new_programer
  أريد ربط تكست بوكس له زر بـ TabControal ( للأهمية )... التفاصيل في الداخل . PeterGhattas082460 0 78 15-12-18, 03:45 PM
آخر رد: PeterGhattas082460
  استفسار عن كود تلوين صف معين بناءًا على تحقق شرط بخلية في الداتاجريدفيو Hazem1 9 306 14-12-18, 02:31 PM
آخر رد: عبدالله الدوسري
  كيفية دمع بيانات فى تكست بوكس واحد سمير جمال 3 137 04-12-18, 04:07 PM
آخر رد: Rabeea Qbaha
  [VB.NET] الكومبوبوكس و الداتاجريدفيو vb2010 1 153 18-10-18, 08:56 PM
آخر رد: asemshahen5
  [VB.NET] تصدير صفوف معينة للاكسيل محمد اسماعيل 8 236 15-10-18, 03:28 AM
آخر رد: محمد اسماعيل
  هل يُمكن عمل بحث بحيث يظهر الناتج في غير الداتاجريدفيو أو في مثيلٍ لها؟ Hazem1 3 190 09-10-18, 07:48 AM
آخر رد: عبدالله الدوسري
  خطأ بكود العودة لأول صف في الداتاجريدفيو Hazem1 4 152 07-10-18, 12:48 AM
آخر رد: Hazem1

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


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