حفظ محتوى عنصر التحكم FlexGrid باعتباره ملف CSV

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

حفظ محتوى عنصر التحكم FlexGrid باعتباره ملف CSV

مُساهمة من طرف NEXT في الأربعاء أغسطس 07, 2013 3:41 pm

 بسم الله الرحمن الرحيم 

أهلا وسهلا بكم السادة الافاضل و كل عام وانتم بخير بمناسبة حلول عيد الفطر المبارك أعادة الله عليكم بالخير و اليمن و البركات ....ال 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


تحياتى لكم  

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: حفظ محتوى عنصر التحكم FlexGrid باعتباره ملف CSV

مُساهمة من طرف أحمد مناع في الأربعاء أغسطس 07, 2013 5:14 pm

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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 809
النقاط : 1478
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: حفظ محتوى عنصر التحكم FlexGrid باعتباره ملف CSV

مُساهمة من طرف NEXT في الأربعاء أغسطس 07, 2013 5:21 pm

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

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

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى