حفظ محتوى عنصر التحكم FlexGrid باعتباره ملف CSV
صفحة 1 من اصل 1 • شاطر
حفظ محتوى عنصر التحكم FlexGrid باعتباره ملف CSV
بسم الله الرحمن الرحيم
أهلا وسهلا بكم السادة الافاضل و كل عام وانتم بخير بمناسبة حلول عيد الفطر المبارك أعادة الله عليكم بالخير و اليمن و البركات ....ال 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
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: حفظ محتوى عنصر التحكم FlexGrid باعتباره ملف CSV
اية يابنى الغيبة دى كلها .....حمد الله على السلامة
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: حفظ محتوى عنصر التحكم FlexGrid باعتباره ملف CSV
أحمد مناع كتب:اية يابنى الغيبة دى كلها .....حمد الله على السلامة
معلش أصل اليومين اللى فاتوا كنت صايم فيهم
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
أمس في 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft