أهلا وسهلا بكم السادة الافاضل و كل عام وانتم بخير بمناسبة حلول عيد الفطر المبارك أعادة الله عليكم بالخير و اليمن و البركات ....ال csv هي ملفات نصية عادية تحتوي على بيانات بشكل جدولي مثل الاكسل وتخزن البيانات بشكل اعمدة ويفصل بي كل عامود علامة مثل الفاصلة المنقوطة .....درس اليوم عن كيفية حفظ محتوى عنصر التحكم FlexGrid باعتباره ملف CSV من خلال الفجوال بيسك 6 

ثم نقوم بعمل الاجراء التالى :

الكود:

Private Sub SaveCSV(ByVal strFilename As String, ByRef msFlex As MSFlexGrid)
    Const SEPARATOR_CHAR As String = ","

    Dim intFreeFile As Integer
    Dim strLine As String
    Dim r As Integer
    Dim c As Integer

    intFreeFile = FreeFile
   
    Open strFilename For Output As #intFreeFile
   
    With msFlex
        ' Every row
        For r = 0 To .Rows - 1
            strLine = ""
           
            ' Every column
            For c = 0 To .Cols - 1
                strLine = strLine & IIf(c = 0, "", _
                    SEPARATOR_CHAR) & .TextMatrix(r, c)
            Next c
           
            Print #intFreeFile, strLine
        Next r
    End With
   
    Close #intFreeFile
End Sub

وهذا الاجراء يقوم بحفظ محتوى عنصر التحكم FlexGrid باعتباره ملف CSV .....ويمكنك اتدعاء الاجراء بأستخدام الشفرة التالية :

الكود:

SaveCSV("C:\Test.csv", MSFlexGrid1)

حيث أن :

_ C:\Test.csv هو اسم و مسار الملف الذى سيتم الحفظ فيه 

_ MSFlexGrid1 هو الاسم البرمجى لعنصر التحكم  FlexGrid

اية يابنى الغيبة دى كلها .....حمد الله على السلامة

أحمد مناع كتب:اية يابنى الغيبة دى كلها .....حمد الله على السلامة

معلش أصل اليومين اللى فاتوا كنت صايم فيهم