[VB_Coder]

السلام عليكم

- أهلا أخي الكريم ، إستخدم هذا الكود في تصدير محتوى الفليكس قريد إلى ملف نصي :

كود :

Private Sub Command1_Click()

Dim MaxLen(MSFlexGrid1.Cols - 1) As Integer
Dim I As Long
Dim N,F As Integer
Dim CurrentLine As String

For I = 0 To MSFlexGrid1.Rows - 1

For N = 0 To MSFlexGrid1.Cols - 1
IF Len(Trim(MSFlexGrid1.TextMatrix(I,N))) > MaxLen(N) Then
MaxLen(N) = Len(Trim(MSFlexGrid1.TextMatrix(I,N)))
End IF
Next

Next

F = FreeFil
Open App.Path & "\MSFlexGrid1.Txt" For Append As #F

For I = 0 To MSFlexGrid1.Rows - 1

CurrentLine = ""

For N = 0 To MSFlexGrid1.Cols - 1
IF Len(Trim(MSFlexGrid1.TextMatrix(I,N))) < MaxLen(N) Then
CurrentLine = CurrentLine & Trim(MSFlexGrid1.TextMatrix(I,N)) & Space(MaxLen(N) - Len(Trim(MSFlexGrid1.TextMatrix(I,N)))) & Space(5)
Else
CurrentLine = CurrentLine & Trim(MSFlexGrid1.TextMatrix(I,N)) & Space(5)
End IF
Next

Print #F , CurrentLine
DoEvents

Next

Close #F
DoEvents

MsgBox "تم التصدير بنجاح"

End Sub

- تحياتي .