PDA

View Full Version : خواندن log فایل (text file)



amolpc
دوشنبه 12 اردیبهشت 1390, 23:10 عصر
سلام

من یه سیستم گزارش گیری دارم که اطلاعات رو داخل یه فایل متنی میریزه حالا میخوام اون فایلو بخونم و متنی خاص رو ازش بخونم ،تا این مرحله رو انجام دادم ولی حالا نشکل اینه که فایل آپدیت میشه و من باید از خط آخر اون فایل متنی رو بخونم تا آخرین تغییرات رو ببینم حالا باید چجوری بخونم ؟

محسن واژدی
سه شنبه 13 اردیبهشت 1390, 08:04 صبح
سلام علیکم
خواندن سطری یک متن در وهله اول مشکلی نیست و این فقط برای فایل های کم حجم و چند خطی سریع است اما همزمان با افزایش حجم فایل مشکلاتی از قبیل افزایش زمان خواندن را ایجاد میکند

پیشنها بنده این است که داده هایتان را از نوع باینری ذخیره کنید تا در زمان مورد نیاز فقط به رکورد مورد نظر ارجاع داده شوید،
گشودن و خواندن فایل باینری:
Private Sub Command1_Click()
Dim frfle%, rec_dat$
frfle = FreeFile
Open "c:\1.txt" For Binary As frfle
Get #frfle, 100, rec_dat$
MsgBox rec_dat$
Close #frfle
End Sub

موفق باشید