[smalw]

(18-12-19, 01:53 AM)محمد اسماعيل كتب :

(18-12-19, 01:35 AM)smalw كتب :

(18-12-19, 12:47 AM)محمد اسماعيل كتب : السلام عليكم ورحمة الله وبركاتة

اريد طريقة لتصدير الداتا جريد فيو لملف csv

علما بالاتي تاني عمود بالداتاجريد يحتوي علي فونت مخصص وهو مشفر بالاسم "AlmaFont"


لايظهر الفونت بملف csv عند تصدير البيانات بملف csv علي الرغم من انة موجود بالداتاجريد فيو

وعايز اتجاهل اول عمود بالداتاجريد فيو عند التصدير لملف csv

الكود الخاص بالتصدير مع وجود العمود الاول المراد تجاهلة وبدون فورمات العمود الثاني للفونت المطلوب

كود :

Dim thecsvfile As String = String.Empty
       For Each column As DataGridViewColumn In DATAG_CLIEN.Columns
           thecsvfile = thecsvfile & column.HeaderText & ","
       Next
       thecsvfile = thecsvfile.TrimEnd(",")
       thecsvfile = thecsvfile & vbCr & vbLf
   
       For Each row As DataGridViewRow In DATAG_CLIEN.Rows
                      For Each cell As DataGridViewCell In row.Cells
               thecsvfile = thecsvfile & cell.FormattedValue.replace(",", "") & ","
           Next
                    thecsvfile = thecsvfile.TrimEnd(",")
           'Add the line to the output
           thecsvfile = thecsvfile & vbCr & vbLf
       Next
       My.Computer.FileSystem.WriteAllText("D:\New folder\export.csv", thecsvfile, False)

كود :

Dim thecsvfile As String = String.Empty

' اختر الاعمده التي تريدها
Dim nameHeader = DATAG_CLIEN.Columns(1).HeaderText
Dim dbirthHeader = DATAG_CLIEN.Columns(3).HeaderText

thecsvfile &= String.Join(",", {nameHeader, dbirthHeader}) & vbNewLine

For Each row As DataGridViewRow In DATAG_CLIEN.Rows
   If row.IsNewRow Then Exit For ' الخروج اذا وصل للسطر الجديد اسفل الداتاجريد
   ' اختر الخلايا التي تريد قراءتها الموافقه للاعمده التي اخترتها في الاعلى
   Dim nameValue = row.Cells(1).Value
   Dim dbirthValue = row.Cells(3).Value

   thecsvfile &= String.Join(",", {nameValue, dbirthValue}) & vbNewLine
Next
thecsvfile = thecsvfile.Trim

My.Computer.FileSystem.WriteAllText("D:\New folder\export.csv", thecsvfile, False)

انا بشكر ك علي سرعة الرد والمتابعة .

بالنسبة لجزء حذف الاعمدة تمام ظبط معايا بس الخط لازال لايظهر معايا ويظهر بنفس الخطاء القديم.

في طريقة لموضوع الخط دة .

دة كود تعريف الخط الي بستخدمة للداتاجريد فيو

 Dim f = New Font("AlmaFont", 10, FontStyle.Regular)

هل في طريقة نفرمت العمود الثاني الي فية الخط المشفر

ملف csv هو بيانات نصيه فقط ليس لها علاقه بنوع الفونت المكتوب
الفونت يخص البرنامج الذي يعرض البيانات وليس csv


او اني لم افهم ما تقصده