23-08-13, 04:40 AM
السلام عليكم
- أهلا أخي الكريم ، إستخدم هذا الكود في تصدير محتوى الفليكس قريد إلى ملف نصي :
- تحياتي .
- أهلا أخي الكريم ، إستخدم هذا الكود في تصدير محتوى الفليكس قريد إلى ملف نصي :
كود :
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- تحياتي .

