السلام عليكم
كل عام وانتم بخير بمناسبة حلول شهر رمضان المبارك اعاده الله علينا وعوعليكم باليمن والبركات
اخوتي الاعضاء ارجوو مساعدتي في كود لتصدير بيانات من DataGridviwe الى نوع CSV
والسلام عليكم ورحمه الله وبركاته
عزيزي محمد بوقزاحة هذا الكود
Dim csv As String = String.Empty
Dim save_file As New SaveFileDialog
save_file.Filter = "Csv Files (*.csv)|*.csv"
save_file.FileName = "newsave"
' txtpathfile.Text = fName
If save_file.ShowDialog = Windows.Forms.DialogResult.OK Then
sw.WriteLine(String.Join("|", headers)) ', System.Text.Encoding.Unicode)
For Each r In rows
sw.WriteLine(String.Join("|", r)) ', System.Text.Encoding.Unicode)
Next
'save_file.FileName.Replace(".txt", ".csv")
End Using
End If
09-05-22, 12:22 AM (آخر تعديل لهذه المشاركة : 09-05-22, 12:25 AM {2} بواسطة محمد بوقزاحة.)
(04-05-22, 08:14 PM)emadtm كتب : عزيزي محمد بوقزاحة هذا الكود
Dim csv As String = String.Empty
Dim save_file As New SaveFileDialog
save_file.Filter = "Csv Files (*.csv)|*.csv"
save_file.FileName = "newsave"
' txtpathfile.Text = fName
If save_file.ShowDialog = Windows.Forms.DialogResult.OK Then
sw.WriteLine(String.Join("|", headers)) ', System.Text.Encoding.Unicode)
For Each r In rows
sw.WriteLine(String.Join("|", r)) ', System.Text.Encoding.Unicode)
Next
'save_file.FileName.Replace(".txt", ".csv")
End Using
End If
السلام عليكم
اولا كل عام وانت بخير
شكرا على المشاركة
حربت الكود لكن يوجد اخطاء ولا اعرف السبب
الصورة مرفقه
(09-05-22, 12:22 AM)محمد بوقزاحة كتب :
(04-05-22, 08:14 PM)emadtm كتب : عزيزي محمد بوقزاحة هذا الكود
Dim csv As String = String.Empty
Dim save_file As New SaveFileDialog
save_file.Filter = "Csv Files (*.csv)|*.csv"
save_file.FileName = "newsave"
' txtpathfile.Text = fName
If save_file.ShowDialog = Windows.Forms.DialogResult.OK Then
sw.WriteLine(String.Join("|", headers)) ', System.Text.Encoding.Unicode)
For Each r In rows
sw.WriteLine(String.Join("|", r)) ', System.Text.Encoding.Unicode)
Next
'save_file.FileName.Replace(".txt", ".csv")
End Using
End If
السلام عليكم
اولا كل عام وانت بخير
شكرا على المشاركة
حربت الكود لكن يوجد اخطاء ولا اعرف السبب
الصورة مرفقه
(09-05-22, 12:22 AM)محمد بوقزاحة كتب :
(04-05-22, 08:14 PM)emadtm كتب : عزيزي محمد بوقزاحة هذا الكود
Dim csv As String = String.Empty
Dim save_file As New SaveFileDialog
save_file.Filter = "Csv Files (*.csv)|*.csv"
save_file.FileName = "newsave"
' txtpathfile.Text = fName
If save_file.ShowDialog = Windows.Forms.DialogResult.OK Then
sw.WriteLine(String.Join("|", headers)) ', System.Text.Encoding.Unicode)
For Each r In rows
sw.WriteLine(String.Join("|", r)) ', System.Text.Encoding.Unicode)
Next
'save_file.FileName.Replace(".txt", ".csv")
End Using
End If
السلام عليكم
اولا كل عام وانت بخير
شكرا على المشاركة
حربت الكود لكن يوجد اخطاء ولا اعرف السبب
الصورة مرفقه
السلام عليكم ورحمة الله وبركاته اخي الكريم محمد بالنسبة للملف ذو اللاحقة CSV يتم فيه كتابة عناوين الحقول مفصولة بـ (, ) ثم السجلات اسفله ايضا مفصولة بالفاصلة واعتقد من خلال التجربة لايقبل الا اشارة الفاصلة اما ان اردت استخدام اشارات اخرى للفصل بين قيم الحقول فالأمر مختلف وهنا يجب ان تتعامل مع ملف نصي عادي تنشئ شكل الداتا كما تريد وهو اكثر تعقيدا من الملف CSV إليك هذا المثال وهو يجلب البيانات من قاعدة اكسس ويضعها في الداتاغرايد ثم نقوم بالتصدير الى ملف CSV داخل مجلد DDD موجود في مجلد الـ Debug اكتب اسم الملف فقط بدون لاحقة ثم اضغط البوتون تصدير
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات