کار کردن با فایلها

[roya_hh]

سلام. ممنون میشم کمکم کنید.
من یک txtfile در برنامه ایجاد کردم و بعد از ایجاد، یکسری اطلاعات به صورت خط به خط درون آن ریختم.
حالا میخواهم تمام فایل را از ابتدا شروع به خواندن کرده و اطلاعاتی را که بین دو خط مشخص وجود دارد را پیدا کند. این کار را چطور انجام بدهم؟

[#target]

سلام
قطعه برنامه زیر خطی که بین دو خط که محتوی عبارت Line هستند رو نشان میده بصورت Msgbox
در اول برنامه وارد کن
import system.io
و کد :


Dim s1, s2, s3 As String
Dim mystr As System.IO.StreamReader = File.OpenText("C:\Test.txt")
While Not mystr.EndOfStream
s1 = mystr.ReadLine()
If s1 = "Line" Then
s2 = mystr.ReadLine()
s3 = mystr.ReadLine()
If s3 = "Line" Then
MsgBox(s2)
End If
End If
End While