القرائة من ملف أسطر معينة

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

اقتباس

س1: كيف أستطيع أن اضيف نص الى ملف نصي (تكست) بعد آخر سطر أو قبل أول سطر؟

بإستخدام دوال API الدالة SetFilePointer لنقل مؤشر الكتابة أو القرائة إلى أي مكان

بإستخدام الثوابت

قبل أول سطر تستخدم FILE_BEGIN

بعد آخر سطر تستخدم FILE_END

اقتباس

س2: اذا كان عندي تكست بوكس واريد أن أجعله يقراء ملف نصي ولكن من السطر الخامس الى العشرين فقط؟

في البداية يجب أن تبحث عن السطر الخامس ؟؟ كيف

في الملف النصي كل 2 بايت ( بالهكس )

0x0D0A

أو نفس الرقم بالهكس داخل الفيجول بيسك

&H0D0A

كل 2 بايت بهذة القيمة تعني سطر جديد ,,

والآن ماعليك إلا أن تقرأ كل الملف ؟ وتبحث عن ال 2 البايت لتعرف أنك تجاوزت سطر

وهكذا

-

أخي العزيز jaas

ممكن توضيح أكثر ولو مثال بسيط

جزاك الله خيرا

لتقرأ من السطر الخامس أليك هذا الكود

Open "c:\test.txt" For Input As #1
 For i = 1 To 4
 Line Input #1, t1
 Next i
 For i = 1 To 20
 Line Input #1, lne
 Next i
 text1.Text = lne

أخي العزيز لبناني

هذا الكود يكتب السطر الخامس فقط وليس من السطر الخامس الى الأخير

شكرا

كان هناك خطأ صغير

جرب هذا

Private Sub Command1_Click()
    Open "c:\test.txt" For Input As #1
    For i = 1 To 4
    Line Input #1, t1
    Next i
    For i = 5 To 20
    Line Input #1, lne
    Text1.Text = Text1.Text & lne & vbNewLine
    Next i
    Close
End Sub

وهذا مثال مرفق

Example.rar

الرجاء مراجعة الملف المرفق حيث انه لايمكن فك ضغط الملف

هناك مشكلة فى الضغط على الارجح

ولكم جزيل الشكر

شكرا لك أخي العزيز لبناني

أخي العزيز Ghader لا توجد مشكلة في الملف اذا كان عندك الون رار