مشکل کوچک در رابطه با فایل های مستقیم

[tom riddle]

سلام.
میخواستم بدونم از تابع ()eof میشه تو فایل های مستقیم(رندوم) هم استفاده کرد.
من که استفاده میکنم فقط مقداره فالس میده.

[301]

سلام
از تابع 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]

سلام.
دستت درد نکنه.
من یه یوسر تایپ درست کردم و رکورد های فایل مستقیم را با اطلاعاتش پر کرده و فایل رو بستم.
وقتی خواستم از فایل بخونم از EOF , و حلقه do استفاده کردم,حلقه بینهایت شد.
وقتی دیباگ کردم دیدم EOF فقط مقدار فالس بر میگردونه.