دوستان من یک فایل txt به نام 1.txt توی سیستمم دارم. اما نمی دونم کجاست.
راهی هست که برنامه بره پیداش کنه و محتویاتشو برام در تکست باکس منتقل کنه ؟
Printable View
دوستان من یک فایل txt به نام 1.txt توی سیستمم دارم. اما نمی دونم کجاست.
راهی هست که برنامه بره پیداش کنه و محتویاتشو برام در تکست باکس منتقل کنه ؟
سلام عليکمنقل قول:
نوشته شده توسط xrezax
راهنمايي:سورسهايي تو سايت براي جستجو در درايو هست با اون فايل رو پيدا کنيد و سپس با دستور open فايل رو تو تکست باکس لود کنيد.
موفق باشيد
خودم براتون با همون نمونه ها نوشتم:
(پس از کليک بر روي Search کمي صبر کنيد و سپس بر روي فايلهاي پيدا شد کليک کنيد تا محتوياتش در تکست باکس لود شود)
موفق باشيد
این یه مشکلی داره اونم اینه که باید روش کلیک بشه تا نشون بده. من میخوام خودش بگرده و محتویاتو کامل نشون بده تو تکست باکس بدون کلیک کردن روی چیزی
سلام عليکمنقل قول:
نوشته شده توسط xrezax
خب سورس رو که دادم بهتون با کمي تغييرات ساده اين رو ميشه حل کرد!!!!!!!!
يک تايمر اضافه کنيد با اينتروال 2000 ، سپس Enable اون رو False کنيد و کدهاي زير را داخلش بنويسيد:
On Error Resume Next
Dim yy As String
yy = Text1.Text + "\" + Text2.Text
Open yy For Input As 2#
While EOF(2#) = False
Input #2, fileline
Load Form2
Form2.Text1.Text = Form2.Text1.Text + vbCrLf + fileline
Wend
Close 2#
Timer1.Enabled = False
Form2.Show
سپس روي دکمه ي Search کليک کنيد و در آخر کد نويسي اين رو بنويسيد(که پس از تکميل جستجو تايمر رو فعال کنه):
Timer1.Enabled = True
کار نمیکنه
شما اين کارهايي که گفتم رو تو همون پروژه اعمال کرديد؟!!نقل قول:
نوشته شده توسط xrezax
پست شماره 5 رو تو همون فايل ضميمه شده ي پست 3 اعمال کنيد...
خوب همه چیزش خوبه فقط یک مشکل کوچولو داره اونم اینه که باید داریو تعریف کنیم براش تا بگردهو
من می خوام کل هاردو سرچ کنه و آن فایل را پیدا کنه. چون نمی دونم کجاست.
نقل قول:
نوشته شده توسط xrezax
سلام دوست عزیز با اجازه آقا محمد
کد بالا یه اشکال کوچیک داره کد بالا رو به صورت زیر تغییر بده ببین کار میکنه یا نه ؟
به این صورت :
On Error Resume Next
Dim yy As String
yy = Text1.Text + "\" + Text2.Text
Open yy For Input As #2
While EOF(0) = False
Input #2, fileline
Load Form2
Form2.Text1.Text = Form2.Text1.Text + vbCrLf + fileline
Wend
Close #2
Timer1.Enabled = False
Form2.Show
اگه این کار نکرد میتونی از این روش استفاده کنی برای باز کردن فایها :
Open "d:\a.txt" For Input As #1
While Not EOF(1)
Input #1, a
Text1.Text = Text1.Text + vbCrLf + a
Wend
Close #1
موفق و پیروز باشید .... یا علی
سلام عليکم، خواهش ميکنم...نقل قول:
نوشته شده توسط program2vb
ببينيد براي اينکار يه راهنمايي ميکنم؛ ميتونيد کاري کنيد که پس از جستجوي درايو سي بره به درايو بعدي و همينجور ادامه بده تا فايل رو پيدا کنه.نقل قول:
نوشته شده توسط xrezax
موفق باشيد
خوب چطوری اینکارو انجام بدمنقل قول:
نوشته شده توسط MohammadGh2011
سلام خدمت شما دوست عزیز معذرت دیر ج دادم والا وقت نداشتم برنامه بنویسم بزور تونستم اینو براتون جور کنم امیدوارم همونی که شما میخواین همون باشه و بدردتون بخورهنقل قول:
نوشته شده توسط xrezax
موفق و پیروز باشی ... یاعلی
اگه سوالی اشکالی چیزی داشتی من در خدمتم
ممنون از پاسختون. اما این چیزی که شما دادین باید آدرس فایل را بهش بدم. در صورتی که من نمی دونم کجای هارد این تکست ذخیره شده.
می خوام برنامه برام پیداش کنه و مسیرشو بهم بده
بفرما عزیز اینم دیگه کامل کاملش امیدوارم بدردت بخورهنقل قول:
نوشته شده توسط xrezax
موفق و پیروز باشی در پناه خدا ..... یا علی
20 :بوس:
مثل ساعت کار می کنه
دلم نیومد ازت تشکر کنم.
مرسی ، خدایی زحمت کشیدی.
تشکر :قلب: