سوال: یه مشکل در خواندن فایل txt (‌خیلی ساده‌) [بایگانی]

sajjad_india

دوشنبه 26 بهمن 1388, 10:54 صبح

سلام

من میخوام یه فایل متنی رو باز کنم تو یه تکست باکس نمیدونم چرا نمیشه
اینم کده من

مشکل از کجاست

Dim strText As String
filenum = FreeFile
Open "LogIP.txt" For Input As filenum

Input #filenum, strText

Text1.Text = strText

Close #filenum

تشکر میکنم از همه راهنمایی کنید

ممنون مرسی از شما دوستان عزیز

M.T.P

دوشنبه 26 بهمن 1388, 11:00 صبح

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

Open "c:\LogIP.txt" For Input As filenum

sajjad_india

دوشنبه 26 بهمن 1388, 11:15 صبح

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

Open "c:\LogIP.txt" For Input As filenum

اخه فایل بغل پروژه منه

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

xxxxx_xxxxx

دوشنبه 26 بهمن 1388, 11:44 صبح

سلام،
دستورات صحیح هستند. با این دستورات تنها خط اول از فایل خوانده میشه و به Textbox منتقل میشه.
شاید خط اول از فایل شما خالی هست.

با اجرای مجدد این قطعه کد، فایل مجدداً باز میشه و خط اول خوانده میشه و بعد هم بسته میشه. هیچ وقت به خط دوم فایل نمیره.
شما دقیقاً چی میخواید؟

sajjad_india

دوشنبه 26 بهمن 1388, 11:55 صبح

سلام،
دستورات صحیح هستند. با این دستورات تنها خط اول از فایل خوانده میشه و به Textbox منتقل میشه.
شاید خط اول از فایل شما خالی هست.

با اجرای مجدد این قطعه کد، فایل مجدداً باز میشه و خط اول خوانده میشه و بعد هم بسته میشه. هیچ وقت به خط دوم فایل نمیره.
شما دقیقاً چی میخواید؟

مرسی ممنون

من میخوام محتوای فایل تکست رو به تکست باکس بریزه همین

مرسی از شما

ممنون

xxxxx_xxxxx

دوشنبه 26 بهمن 1388, 12:33 عصر

Dim strText As String
filenum = FreeFile
Open "D:\LogIP.txt" For Input As filenum

strText = Input(LOF(filenum), filenum)

Text1.Text = strText

Close #filenum