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



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


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