السلام عليكم ورحمة الله وبركاته
لدي ملف نصي أريد حفظه بإسم مخصص
بحيث هذا الإسم يأخد السنة + الشهر + الرقم
مثلا
لدي ملف نصي أريد حفظه بإسم مخصص
بحيث هذا الإسم يأخد السنة + الشهر + الرقم
مثلا
19_77_032019.txt
على أن أختار مكان حفظ الملف
مع العلم الأرقام هي قيم
txtboxNem1 و txtboxNem2
كود :
Using Dilaoge As New SaveFileDialog
Dilaoge.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
If Dilaoge.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim NomFechiers As String = Dilaoge.FileName
Dim StreamW As StreamWriter = File.CreateText(NomFechiers)
Dim total = (From x As DataGridViewRow In DGView.Rows Select CDbl(x.Cells(4).Value)).Sum
StreamW.WriteLine("" & DGView.RowCount & "" & Today.ToLongDateString & "" & FormatNumber(total))
Dim Cellule1, Cellule2, Cellule3, Cellule4 As String
For i As Integer = 0 To DGView.Rows.Count - 1
Cellule2 = (DGView.Rows(i).Cells(2).Value.ToString().PadLeft(5, "0") & "")
Cellule3 = (DGView.Rows(i).Cells(3).Value.ToString() & "")
Cellule4 = (DGView.Rows(i).Cells(4).Value.ToString() & "")
Cellule1 = (DGView.Rows(i).Cells(1).Value.ToString().PadLeft(27))
StreamW.Write(Cellule2 & "" & Cellule3 & "" & GetFormatNumber(Cellule4) & "" & Cellule1)
StreamW.WriteLine("")
Next
StreamW.Close()
MessageBox.Show("تمت عملية الحفظ بنجاح")
End If
End Using