منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته
لدي هذا الكود لحفظ داتاقريدفيو في ملف نصي
وأريد أن أضيف سطر واحد في بداية الملف النصي ثم تأتي الداتاقريدفيو بعد هذا السطر
السطر هذا عبارة عن عدد تسجيلات الداتاقريد والتاريخ والمبلغ الإجمالي ....
وبارك الله فيكم

كود :

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)

أكتب هذا الكود وغير رقم العمود بالنسبة للمجموع

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)

بارك الله فيك أخي
وجزاك الله خيرا
كود شغال

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ahmedfa71

5000

ahmedfa71