منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاتة

اريد طريقة لتصدير الداتا جريد فيو لملف 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)

(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)

(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)

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

(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

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

طيب لو افترضنا ان عندي داتاجريد وشفرت مدخلات العمود رقم 2 تمام بالفونت السابق مثلا .

لما اصدر البيانات من الداتاجريد الي الملف النصي لازم ارجع اديلة نفس الخط او لو في طريقة نغيرة الي utf8 يمكن لما بفتح يفرمط الخط

ثانيا انا بفتح الملف بالاكسيل ومسطب الفونت علي الجهاز .

[url=https://onlineutf8tools.com/url-decode-utf8][/url]

(18-12-19, 02:07 AM)محمد اسماعيل كتب : [ -> ]طيب لو افترضنا ان عندي داتاجريد وشفرت مدخلات العمود رقم 2 تمام بالفونت السابق مثلا .

لما اصدر البيانات من الداتاجريد الي الملف النصي لازم ارجع اديلة نفس الخط او لو في طريقة نغيرة الي utf8 يمكن لما بفتح يفرمط الخط

ثانيا انا بفتح الملف بالاكسيل ومسطب الفونت علي الجهاز .

[url=https://onlineutf8tools.com/url-decode-utf8][/url]

عشان يكون القارئ في الصوره ممكن تشرح :
(شفرت مدخلات العمود رقم 2 بالفونت السابق)

(18-12-19, 02:09 AM)smalw كتب : [ -> ]
(18-12-19, 02:07 AM)محمد اسماعيل كتب : [ -> ]طيب لو افترضنا ان عندي داتاجريد وشفرت مدخلات العمود رقم 2 تمام بالفونت السابق مثلا .

لما اصدر البيانات من الداتاجريد الي الملف النصي لازم ارجع اديلة نفس الخط او لو في طريقة نغيرة الي utf8 يمكن لما بفتح يفرمط الخط

ثانيا انا بفتح الملف بالاكسيل ومسطب الفونت علي الجهاز .

[url=https://onlineutf8tools.com/url-decode-utf8][/url]

ممكن تشرح عشان يكون القارئ في الصوره:
(شفرت مدخلات العمود رقم 2)

نعم شفرت مدخلات العمود رقم 2 بالفونت بالاسم دة "AlmaFont"

لما بيظهر بالملف csv لايظهر نفس الفونت بالعمود الثاني عشان يظهر بفتح الملف بالاكسيل وحدد العمود كلة وعملة تغير فونت بالاسم دة "AlmaFont"

(18-12-19, 02:13 AM)محمد اسماعيل كتب : [ -> ]
(18-12-19, 02:09 AM)smalw كتب : [ -> ]
(18-12-19, 02:07 AM)محمد اسماعيل كتب : [ -> ]طيب لو افترضنا ان عندي داتاجريد وشفرت مدخلات العمود رقم 2 تمام بالفونت السابق مثلا .

لما اصدر البيانات من الداتاجريد الي الملف النصي لازم ارجع اديلة نفس الخط او لو في طريقة نغيرة الي utf8 يمكن لما بفتح يفرمط الخط

ثانيا انا بفتح الملف بالاكسيل ومسطب الفونت علي الجهاز .

[url=https://onlineutf8tools.com/url-decode-utf8][/url]

ممكن تشرح عشان يكون القارئ في الصوره:
(شفرت مدخلات العمود رقم 2)

نعم شفرت مدخلات العمود رقم 2 بالفونت بالاسم دة "AlmaFont"

لما بيظهر بالملف csv لايظهر نفس الفونت بالعمود الثاني عشان يظهر بفتح الملف بالاكسيل وحدد العمود كلة وعملة تغير فونت بالاسم دة "AlmaFont"

حتى الان
لم افهم ما تقصد بالتشفير
لوتضع صور توضح المقصود

لكن ملف cvs هو نص فقط مثل الملف txt الخاص بالمفكره
فهل تستطيع ان تغير سطر محدد بالمفكره بفونت معين!

عشان كدة !

يعني يعتبرcsv ملف txt .

كل الي جهة في بالي انة مدام بيفتح بالاكسيل يبقي اقدر اتحكم بالفونت .

الخطاء من قلة التركيز اسف علي الخطا وبشكرك مرة اخري علي الرد.

(18-12-19, 02:21 AM)محمد اسماعيل كتب : [ -> ]عشان كدة !

يعني يعتبرcsv ملف txt .

كل الي جهة في بالي انة مدام بيفتح بالاكسيل يبقي اقدر اتحكم بالفونت .

الخطاء من قلة التركيز اسف علي الخطا وبشكرك مرة اخري علي الرد.

سعدت بك جدا وتقديرك لجميع الاعضاء دون تخصيص

ملاحظه: اعتقد ان ملف csv يستخدم الفاصل ; وليس ,