پیدا کردن متن در فایل تکست

[green_mask2]

با سلام
سوال من اینه که من چطوری می تونم تمام فایلهای تکست یک فولدر رو برای پیدا کردن
یک کلمه خاص جستجو کنم و زمانی که جستجو شد خروجی رو به صورت اینکه کلمه در کدوم فایل و خط چندم است نشان دهد.
ممنون

[h_sadeghynejad]

خودت جواب خودت رو دادی بایت کل فایلهای داخل اون پوشه رو باز کنی و داخل اون رو جست و جو کنی و وقتی پیداش کرد نام فایل و آدرس اون رو به کاربر بدی

[green_mask2]

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

[CodeMasterX]

توی سایت جستجو کن،تو همین بخش مثال هایی از کار با فایل ها و جستجو رشته ها هست.

[green_mask2]

میشه لینک بدی آخه اینجا 278 صفحه است

[green_mask2]

کسی نیست جواب ما رو بده؟

[o0_Amin_0o]

http://www.barnamenevis.org/forum/showthread.php?t=65098

[green_mask2]

ممنون
حالا یه دستور می خوام که برنامه خودش دونه دونه فایل های فولدر رو پیدا و بعد توشونو
سرچ و بعد از پیدا شدن کلمه مورد نظر اعلام کنه که کلمه در کدام فایل و در خط چندم
است.

[green_mask2]

یکی جواب ما رو هم بده

[__siavash__]

ممنون
حالا یه دستور می خوام که برنامه خودش دونه دونه فایل های فولدر رو پیدا و بعد توشونو
سرچ و بعد از پیدا شدن کلمه مورد نظر اعلام کنه که کلمه در کدام فایل و در خط چندم
است.
این کد کلیه فایل های تکست درون دایرکتوری که براش مشخص میکنی پیدا میکنه بعد با Open Statement دونه دونه بازشون کن !

Dim MyFile, MyPath
MyPath = "F:\Test\"
MyFile = Dir(MyPath & "*.TXT")
Debug.Print MyFile
Do Until MyFile = ""
MyFile = Dir
Debug.Print MyFile
Loop

[green_mask2]

ممنون حالا هم یه کد می خوام که نتیجه سرچ رو در خروجی به صورت نام فایل و خط چندم بودن کلمه مشخص کنه

[green_mask2]

آقا اینم بگید ممنون میشم

[h_sadeghynejad]

عزیزم اون بالا یه دکمه هستش به نام جست و جو کلیک میکنی بعد هم گزینه جست و جوی پیشرفته رو میزنی و مطلب مورد نظرت رو جست و جو میکنی این مسائل توی سایت قبلا مطرح شدن

[green_mask2]

خب عزیز چه متنی رو سرچ کنم تا به جواب برسم؟؟

[__siavash__]

من که الان نفهمیدم چی میخوای !
اگه کار با Open Statment رو میخوای تا یه مثال برات بذارم ؟
با Open Statment میتونی یه فایل تکست رو باز کنی و خط به خط بخونی!
خوب حالا تو هر خطی که خوندی کلمه مورد نظرت رو پیدا میکنی!

[__siavash__]

اینم یه مختصری از کار با Open Statment :


Open (App.Path & "\Test.txt") For Input As #1
Do Until EOF(1) = True
Line Input #1, ReadedLine 'هر خط خوانده میشه و در این متغییر ذخیره میشه حالا با این متن هر کاری بخوای میتونی انجام بدی
c = c + 1 'میتونی بفهمی خط چندمی
MyText = MyText & ReadedLine & vbCrLf
Loop 'تا اینجا تمام خطوط خوانده شده و در متغییر MyText قرار گرفته
Close #1

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

[S_VB.max]

با تابع InStr می تونی بررسی کنی که آیا کلمه مورد نظر در متن وجود دارد یا نه ، مثل این کد :

Private Sub Command1_Click()
If InStr(1, "Visual Basic is very simple", "basic", vbTextCompare) Then MsgBox "کلمه مورد نظر در این متن وجود دارد"
End Sub

[CodeMasterX]

green_mask شما دونه به دونه مراحل کار رو سوال میکنی.
شما توی سایت جستجو کن،رو اینترنت جستجو کن و خودت برنامه رو بنویس.اینجوری که میشه لقمه آماده.
روی آی دی من جستجو کن یه برنامه کوچولو گذاشته بودم برای جستجوی فولدر ها و فایل ها.با اون توابع میتونی فایل ها رو دونه دونه جستجو کنی و عملیات مورد نظرت رو روی فایل ها انجام بدی،بعد هم گزارشات مورد نظر رو نشون بدی.

[__siavash__]

green_mask شما دونه به دونه مراحل کار رو سوال میکنی.
شما توی سایت جستجو کن،رو اینترنت جستجو کن و خودت برنامه رو بنویس.اینجوری که میشه لقمه آماده.
روی آی دی من جستجو کن یه برنامه کوچولو گذاشته بودم برای جستجوی فولدر ها و فایل ها.با اون توابع میتونی فایل ها رو دونه دونه جستجو کنی و عملیات مورد نظرت رو روی فایل ها انجام بدی،بعد هم گزارشات مورد نظر رو نشون بدی.
من یه جستجو کردم اما پیداش نکردم!
اسم برنامه یا اسم اون تاپیک یادت نیست ؟

[S_VB.max]

فکر کنم منظور ایشون این صفحه باشه :
تعداد کل فایلها و فولدرهای یک فولدر (http://www.barnamenevis.org/forum/showthread.php?t=65774)