خواندن و نوشتن خط به خط فایل

[r0ot$harp]

سلام بچه ها خوبید من یه راهنمایی می خوام در مورد خوندن یه فایل TXT که خط به خط باشه یعنی مثلا بیاد خط 5 رو به خونه یا مثلا خط10 و به همین صورت در خط مورد نظر یه متنی رو بنویسه .


خط 1
خط 2
خط 3
خط 4
خط 5
خط 6
خط 7
خط 8
خط 9
خط 10
خط 11
خط 21



با تشکر

[bobrus]

دستوری هست به نام inputline که با دادن شماره فایل باز شده (با دستور open) خط به خط فایل شمارو می خونه

[HjSoft]

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

[man.inam]

f1 = FreeFile
Open "s.txt" For Input As #f1
Text1.Text = Input(LOF(f1), #f1)
Close #f1

یا

open "s.txt" for input as #f1
do while not(eof(f1))
input #f1,i
list1.additem i
loop
close

[r0ot$harp]

f1 = FreeFile
Open "s.txt" For Input As #f1
Text1.Text = Input(LOF(f1), #f1)
Close #f1

یا

open "s.txt" for input as #f1
do while not(eof(f1))
input #f1,i
list1.additem i
loop
close


دوست عزیز این کار نمی کنه من می خوام فقط محتوای خط اول مثلا بیاد یا خط 51
با تشکر

[HjSoft]

اونی که من فرستادم رو تست کردی

[bobrus]

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

دستوری هست به نام inputline که با دادن شماره فایل باز شده (با دستور open) خط به خط فایل شمارو می خونه

[Mbt925]

نمونه زیر رو دانلود کنید:

دانلود (http://soda.parsaspace.com/MBT925/Learn-Sample/Read%20Line.rar)