انتخاب یک خط در فایل متنی

برای خوندن خط 38 از فایل متنی...//// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***********************

کد:

FileName = "C:\File.txt" FileNum = FreeFile Open FileName For Input As #FileNum FileData = Input$(LOF(FileNum), FileNum) Close #FileNum While ln <> 38 - 1 num = InStr(num + 1, FileData, Chr(13)) ln = ln + 1 Wend MsgBox Mid(FileData, num, InStr(num + 1, FileData, Chr(13)) - num)

********************************
این برنامه غیراصولی نوشته شده اما کاری که می خواید رو انجام میده../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
********************
اول کل فایل رو باز باز می کنه و بعد محتویات خط 38 رو نمایش میده.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**************************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]