تقييم الموضوع :
  • 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 دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 629 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  مشكلة في datagridview Adata 4 310 17-01-24, 03:00 PM
آخر رد: aljzazy
  [VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net AmeenRashed 21 1,198 30-12-23, 03:47 PM
آخر رد: Taha Okla
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
Question [VB.NET] اسم عمود الأرقام في DataGridView أبو خالد الشكري 6 606 03-12-23, 08:01 AM
آخر رد: أبو خالد الشكري
  [VB.NET] Datagridview Slow حركة بطيئة waataanys 1 294 20-11-23, 04:33 PM
آخر رد: justforit
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري

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


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