مشاهده نسخه کامل
: مشکل کوچک در رابطه با فایل های مستقیم
tom riddle
30-08-2007, 18:19
سلام.
میخواستم بدونم از تابع ()eof میشه تو فایل های مستقیم(رندوم) هم استفاده کرد.
من که استفاده میکنم فقط مقداره فالس میده.
سلام
از تابع eof میتونی تو فایل های رندوم هم استفاده کنی.
دلیل این که فقط مقدار false میده اینکه تو هنوز به آخر فایل نرسیدی
تابع eof نشون میده که به آخر فایل رسیدی یا نه.
این پایین یه مثال نوشتم که فایل راندوم رو تا آخر می خونه و رو فرم چاپ میکنه
منظورتو دقیق تر بگو تا مثال دقیق تر واست بزنم.
Private Sub Command1_Click()
Dim str As String
Open "c:\1.txt" For Random As #1
Get #1, 1, str
Print str
Do While Not (EOF(1))
Get #1, , str
Print str
Loop
Close #1
End Sub
این یکی از کاریرد های eof بود
tom riddle
02-09-2007, 11:20
سلام.
دستت درد نکنه.
من یه یوسر تایپ درست کردم و رکورد های فایل مستقیم را با اطلاعاتش پر کرده و فایل رو بستم.
وقتی خواستم از فایل بخونم از EOF , و حلقه do استفاده کردم,حلقه بینهایت شد.
وقتی دیباگ کردم دیدم EOF فقط مقدار فالس بر میگردونه.
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.