+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ما طريقة حفظ محتويات الداتا جريد إلى ملف تكست على الهارد (/showthread.php?tid=34035)
ما طريقة حفظ محتويات الداتا جريد إلى ملف تكست على الهارد - new_programer - 29-03-20
السلام عليكم
اتمني الخير والصحة لكم جميعا
اريد كود تصدير بيانات الداتا جريد إلى ملف تكست على الهارد
RE: ما طريقة حفظ محتويات الداتا جريد إلى ملف تكست على الهارد - alshandodi - 29-03-20
أتمنى أن يكون ذو فائده لك فيما طلبت
http://vb4arb.com/vb/showthread.php?tid=29148
RE: ما طريقة حفظ محتويات الداتا جريد إلى ملف تكست على الهارد - ابراهيم ايبو - 29-03-20
السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم
هذا الكود لداتا غرايد فيها اربع اعمدة يمكنك الزيادة حسب ماترغب
انشئ ملف نصي في مجلد Debug الخاص بمشروعك بالاسم الذي تريده
واستبدل الاسم الذي اوردته لك"YourFile.txt" باسم الملف الذي انشأته
كود :
'YourFile.txt انشئ ملف نصي في مجلد ال الديبك للمشروع باسم
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Try
Dim strTxt As String = ""
For i As Integer = 0 To DataGridView1.Rows.Count - 1
strTxt += DataGridView1.Rows(i).Cells(0).Value.ToString() & ";" & DataGridView1.Rows(i).Cells(1).Value.ToString() & ";" & DataGridView1.Rows(i).Cells(2).Value.ToString() & ";" & DataGridView1.Rows(i).Cells(3).Value.ToString() & Environment.NewLine
Next
Dim Sw As New StreamWriter("YourFile.txt", True)
Sw.Write(strTxt)
Sw.Close()
Catch ex As Exception
End Try
End SubRE: ما طريقة حفظ محتويات الداتا جريد إلى ملف تكست على الهارد - new_programer - 30-03-20
شكرا اخواني الكرام
جاري التنفيذ وتجربة الاكواد