مشكلتي مع الفايلات لم تنتهي

السلام عليكم ورحمة الله وبركاته

اخى الفاضل بدون معادلات الطريقة تعتمد على حلقة تكرارية لقراءة الملف وجملة شرطية لتحديد رقم السطر والبيانات المطلوبة.

جرب هذا الكود

Private Sub Form_Load()
Dim A As String, B As String, File As String, C As Integer, Free As Integer
Free = FreeFile
File = "C:\Test.txt"
Open File For Input As #Free
Do While Not EOF(Free)
DoEvents
    Line Input #Free, File
    C = C + 1
    If C = 6 Then A = File
    If C = 11 Then B = File
Loop
Close #Free
End Sub

اتمنى ان يفيدك الكود :rolleyes: