جستجو در فایل : خط بعد از خطی که من دنبالش هستم رو نشون میده

[shahab_ksh]

ایراد این کد کجاست خط بعد از خطی که من دنبالش هستم رو نشون میده

برای مثال

خط اول سلام
خط دوم ایران
خط سوم برنامه نویس
خط چهارم ...
...



خوب حالا من میخام مثلا خط دارای رشته "ایران" را پیدا کنم
در حالی که خروجی Label1 من "برنامه نویس میشه"




Dim objReader As New StreamReader("C:\sample.txt")

Do While objReader.Peek() <> -1
If objReader.ReadLine.Contains("ایران") = True Then
Label1.Text = objReader.ReadLine
End If
Loop

در نهایت Label1.Text=" خط سوم برنامه نویس"

[Sharif Lotfi]

دوست عزیز

هر بار استفاده از دستور objReader.ReadLine یک خط از فایل شما را می خواند

بنابر این شما به جای استفاده مجدد از این دستور یکبار در ابتدا حاصل این عبارت را در یک متغیر بذارین و در طول برنامه ازش استفاده کنین تا نوبت خوندن خط بعد بشه و دوباره از objReader.ReadLine استفاده کنین .

یعنی بهتره کدتون رو اینجوری بنویسین :

Dim objReader As New IO.StreamReader("C:\sample.txt")
Dim str As String
Do While objReader.Peek() <> -1
str = objReader.ReadLine
If str.Contains("bbb") = True Then
Label1.Text = str
End If
Loop

[shahab_ksh]

ممنون مشکل حل شد