View Full Version : سوال: یه مشکل در خواندن فایل txt (خیلی ساده)
sajjad_india
دوشنبه 26 بهمن 1388, 11: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, 12:00 عصر
شما باید آدرس دقیق فایل رو واسه باز شدن بدین در کد بالا شما فقط اسم فایل رو دادین و موقعیت فایل معلوم نیست
Open "c:\LogIP.txt" For Input As filenum
sajjad_india
دوشنبه 26 بهمن 1388, 12:15 عصر
شما باید آدرس دقیق فایل رو واسه باز شدن بدین در کد بالا شما فقط اسم فایل رو دادین و موقعیت فایل معلوم نیست
Open "c:\LogIP.txt" For Input As filenum
اخه فایل بغل پروژه منه
ببین بعد از کد ارور نمیده بهم فقط چیزی نشون نمیده تو تکست باکس
xxxxx_xxxxx
دوشنبه 26 بهمن 1388, 12:44 عصر
سلام،
دستورات صحیح هستند. با این دستورات تنها خط اول از فایل خوانده میشه و به Textbox منتقل میشه.
شاید خط اول از فایل شما خالی هست.
با اجرای مجدد این قطعه کد، فایل مجدداً باز میشه و خط اول خوانده میشه و بعد هم بسته میشه. هیچ وقت به خط دوم فایل نمیره.
شما دقیقاً چی میخواید؟
sajjad_india
دوشنبه 26 بهمن 1388, 12:55 عصر
سلام،
دستورات صحیح هستند. با این دستورات تنها خط اول از فایل خوانده میشه و به Textbox منتقل میشه.
شاید خط اول از فایل شما خالی هست.
با اجرای مجدد این قطعه کد، فایل مجدداً باز میشه و خط اول خوانده میشه و بعد هم بسته میشه. هیچ وقت به خط دوم فایل نمیره.
شما دقیقاً چی میخواید؟
مرسی ممنون
من میخوام محتوای فایل تکست رو به تکست باکس بریزه همین
مرسی از شما
ممنون
xxxxx_xxxxx
دوشنبه 26 بهمن 1388, 13: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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.