20-03-19, 12:10 PM
السلام عليكم ورحمة الله وبركاته
لدي هذا الكود لحفظ داتاقريدفيو في ملف نصي
وأريد أن أضيف سطر واحد في بداية الملف النصي ثم تأتي الداتاقريدفيو بعد هذا السطر
السطر هذا عبارة عن عدد تسجيلات الداتاقريد والتاريخ والمبلغ الإجمالي ....
وبارك الله فيكم
لدي هذا الكود لحفظ داتاقريدفيو في ملف نصي
وأريد أن أضيف سطر واحد في بداية الملف النصي ثم تأتي الداتاقريدفيو بعد هذا السطر
السطر هذا عبارة عن عدد تسجيلات الداتاقريد والتاريخ والمبلغ الإجمالي ....
وبارك الله فيكم
كود :
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)