+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28085)
تصدير من الداتاجريدفيو الى ملف تكست - allo5_800 - 31-12-18
السلام عليكم ورحمة الله وبركاته
عندي داتا جريد فيو تحتوي على اربعه اعمده رقم الحركة / رقم الصنف / اسم الصنف / الكمية
اريد تصديرها الى ملف تكست على ان تحتوي فقط رقم الصنف والكمية ويقكون فاصل بنهم اشارة ,
مثلا
12,2255
9,2555
12,5524
ارجوا مساعدتي بذلك
RE: تصدير من الداتاجريدفيو الى ملف تكست - a.wagdi - 31-12-18
(31-12-18, 05:45 PM)allo5_800 كتب : السلام عليكم ورحمة الله وبركاته
عندي داتا جريد فيو تحتوي على اربعه اعمده رقم الحركة / رقم الصنف / اسم الصنف / الكمية
اريد تصديرها الى ملف تكست على ان تحتوي فقط رقم الصنف والكمية ويقكون فاصل بنهم اشارة ,
مثلا
12,2255
9,2555
12,5524
ارجوا مساعدتي بذلك
وعليكم السلام ورحمة الله وبركاته
تفضل الكود
PHP كود :
Dim lst As New List(Of String) ' إنشاء قائمة نصية
For Each r In DataGridView1.Rows ' لوب للمرور على جميع اسطر الداتاجريد
If r.IsNewRow Then Exit For 'الخروج من اللوب عند السطر الجديد
Dim c0 = r.Cells(0).Value ' رقم الحركة
Dim c1 = r.Cells(1).Value ' رقم الصنف <<<
Dim c2 = r.Cells(2).Value ' اسم الصنف
Dim c3 = r.Cells(3).Value ' الكمية <<<
lst.Add(c1 & "," & c3) ' إضاف سطر بيانات (صنف/كمية) للقائمة النصية
Next
IO.File.WriteAllLines("file.txt", lst) ' حفظ القائمة النصية في ملف تكست
RE: تصدير من الداتاجريدفيو الى ملف تكست - allo5_800 - 01-01-19
اشكرك اخي ولاكن المطلوب ملف تكست وليس تكست بكس اي تصديره الى ملف txt يحفظ على الجهاز انا استخدمت كود لاكن يقوم بتكرير القيمة بالسط الواحد ثلاث مرات اليك الكود لتوضح عندك الصور
اعتذر لاني لم اقم بتوضيح الطلب اكثر
كود :
Private Sub SimpleButton2_Click_1(sender As Object, e As EventArgs) Handles SimpleButton2.Click
Dim sfg As New SaveFileDialog
sfg.FileName = ""
sfg.Filter = "text document|*.txt"
sfg.Title = "save datagridview as"
If sfg.ShowDialog = DialogResult.OK Then
Dim writer As TextWriter = New StreamWriter(sfg.FileName)
For i As Integer = 0 To DataGridView1.Rows.Count - 1
For j As Integer = 0 To DataGridView1.Columns.Count - 1
writer.Write(DataGridView1.Rows(i).Cells(1).Value.ToString() & "," & DataGridView1.Rows(i).Cells(3).Value.ToString())
Next
writer.WriteLine("")
Next
writer.Close()
MsgBox("تم تصدير المف")
End If
End SubRE: تصدير من الداتاجريدفيو الى ملف تكست - عبدالله الصافي - 01-01-19
(01-01-19, 02:52 AM)allo5_800 كتب : اشكرك اخي ولاكن المطلوب ملف تكست وليس تكست بكس اي تصديره الى ملف txt يحفظ على الجهاز انا استخدمت كود لاكن يقوم بتكرير القيمة بالسط الواحد ثلاث مرات اليك الكود لتوضح عندك الصور
اعتذر لاني لم اقم بتوضيح الطلب اكثر
كود :
Private Sub SimpleButton2_Click_1(sender As Object, e As EventArgs) Handles SimpleButton2.Click
Dim sfg As New SaveFileDialog
sfg.FileName = ""
sfg.Filter = "text document|*.txt"
sfg.Title = "save datagridview as"
If sfg.ShowDialog = DialogResult.OK Then
Dim writer As TextWriter = New StreamWriter(sfg.FileName)
For i As Integer = 0 To DataGridView1.Rows.Count - 1
For j As Integer = 0 To DataGridView1.Columns.Count - 1
writer.Write(DataGridView1.Rows(i).Cells(1).Value.ToString() & "," & DataGridView1.Rows(i).Cells(3).Value.ToString())
Next
writer.WriteLine("")
Next
writer.Close()
MsgBox("تم تصدير المف")
End If
End Sub
في كود رد الاخ الكريم قم بتغيير file.txt التي في اخر سطر الي المسار الذي تريده
RE: تصدير من الداتاجريدفيو الى ملف تكست - allo5_800 - 01-01-19
اعذرني انا لما اشاهد الكود بالكامل شكرا جزيلا على الردود الطيبه