طلب كيفيه ادراج محتوى ملف داخل MSFlexGrid

السلام عليكم

هذه دالة مطورة لتحميل نص من ملف txt إلى حقل النص في VB

Function FileText(ByVal filename As String) As String
    Dim handle As Integer

    ' ensure that the file exists
    If Len(Dir$(filename)) = 0 Then
        Err.Raise 53   ' File not found
    End If

    ' open in binary mode
    handle = FreeFile
    Open filename$ For Binary As #handle
    ' read the string and close the file
    FileText = Space$(LOF(handle))
    Get #handle, , FileText
    Close #handle
End Function

و لإستعمالها فقط أكتب مثلا

Text1.Text = FileText("c:\myfile.txt")

تصلح مع ملفات أخرى غير txt مثل bat

و لحفظ في ملف txt جرب هذا

dim FF as Long
dim FilePath as String

FF=FreeFile()
FilePath = "C:\Output.txt"
open FilePath for Output as #ff
  print #ff, Text1.Text
close #ff

لكنه يقوم بحفظ النص كاملا و ليس عدد مععين من الأسطر ، آسف.

إذا وجدت طريقة سأقوم بعرضعا.

شكرا

*************خطأ***************

لم أنتبه إلى أنك طلبت طريقة وضعه في flexgrid :blush:

كنت أعتقد بأنك تريده في textbox

سأعيد المحاولة قريبا :)

*******************************

السلام عليكم...

المثال في المرفقات.

نرجو الاستفادة و السلام.

FlexGrid ReadWrite.rar