تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إضافة سطر لملف نصي قبل Datagridview
#1
السلام عليكم ورحمة الله وبركاته
لدي هذا الكود لحفظ داتاقريدفيو في ملف نصي
وأريد أن أضيف سطر واحد في بداية الملف النصي ثم تأتي الداتاقريدفيو بعد هذا السطر
السطر هذا عبارة عن عدد تسجيلات الداتاقريد والتاريخ والمبلغ الإجمالي ....
وبارك الله فيكم 
كود :
Dim filePath As String = "d:\TestTxt.txt"
       Dim Separ As String = "|"
       Dim sb As New StringBuilder
       For i As Integer = 0 To DGView.Rows.Count - 1
           Dim ARR As String() = New String(DGView.Columns.Count - 1) {}
           For j As Integer = 0 To DGView.Columns.Count - 1
               If Not DGView.Rows(i).IsNewRow Then
                   ARR(j) = DGView(j, i).FormattedValue.ToString
               End If
           Next
           If Not DGView.Rows(i).IsNewRow Then
               sb.AppendLine(String.Join(Separ, ARR))
           End If
       Next
       File.WriteAllText(filePath, sb.ToString)
       Process.Start(filePath)
الرد
تم الشكر بواسطة:
#2
أكتب هذا الكود وغير رقم العمود بالنسبة للمجموع

Dim filePath As String = "d:\TestTxt.txt"
Dim Separ As String = "|"

Dim sb As New List(Of String)

sb.Add("عدد تسجيلات الداتاقريد: " & DGView.RowCount)
sb.Add("التاريخ: " & Today.ToLongDateString)

Dim total = (From x As DataGridViewRow In DGView.Rows Select CDbl(x.Cells(0).Value)).Sum
sb.Add("المبلغ الإجمالي: " & FormatNumber(total) & " دينار")

sb.Add(String.Empty)

For Each r As DataGridViewRow In DGView.Rows
    If r.IsNewRow Then Exit For

   Dim ARR = From x As DataGridViewCell In r.Cells Select x.Value
    sb.Add(String.Join(Separ, ARR))

Next

File.WriteAllLines(filePath, sb.ToArray)
Process.Start(filePath)
الرد
تم الشكر بواسطة: حريف برمجة
#3
بارك الله فيك أخي
وجزاك الله خيرا 
كود شغال
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ أثناء عملية البحث في DATAGRIDVIEW ahmedfa71 5 71 14-05-19, 04:10 PM
آخر رد: elgokr
  datagridview combo box ghias 3 78 11-05-19, 04:25 PM
آخر رد: elgokr
  [VB.NET] فكرة حول إضافة الوحدة larbihamri 3 124 06-05-19, 08:09 PM
آخر رد: larbihamri
  خطأ في عملية حفظ محتوى datagridview إلى جدول من قاعدة البيانات ahmedfa71 7 124 23-04-19, 02:17 AM
آخر رد: elgokr
  [VB.NET] إضافة صفوف الى الداتاقريد فيو من داتاقريد فيو اخر موجود في فورم آخر larbihamri 4 115 18-04-19, 12:50 AM
آخر رد: ابراهيم ايبو
  [VB.NET] عرض بيانات سجل على نموذج عند الضغط مرتين على DataGridView keno0177 8 178 09-04-19, 02:20 AM
آخر رد: elgokr
  حفظ قيمة حقل من datagridview أو دتاباز في ملف نصي ahmedfa71 7 242 04-04-19, 05:31 PM
آخر رد: ahmedfa71
  مساعدة فى datagridview atef_020 17 367 02-04-19, 01:52 AM
آخر رد: elgokr
  [VB.NET] استفسار :- html table to datagridview dubai.eig 5 178 30-03-19, 06:44 PM
آخر رد: asemshahen5
  [سؤال] إضافة التشكيل إلى الكلام waelalmsry75 4 143 30-03-19, 06:19 PM
آخر رد: elgokr

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


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