پیدا کردن یک کلمه داخل چند فایل متنی؟؟؟

[EHSAN PARASTEGARI]

سلام به همه ی برنامه نویسان باحال
میتونید کمکم کنید؟؟؟؟؟؟
من یک فولدر دارم که توش حدود صدتا فایل TEXT وجود داره
میخوام برنامه ای بنویسم که بتونه یک کلمه رو داخل این فایلها پیدا کنه
درواقع یک فرم ، یک TEXT BOX و یک COMMAND داشته باشه که توی TEXT BOX کلمه رو بنویسم و توی اون پوشه که گفتم داخل فایل هارو بگرده و فایل رو نشونم بده
خیلی برام مهمه ممنون میشم
http://barnamenevis.org/forum/images/statusicon/user_online.gif http://barnamenevis.org/forum/images/buttons/report.gif (http://barnamenevis.org/forum/report.php?p=807669) http://barnamenevis.org/forum/images/misc/progress.gif

[Vahid Wosugy]

کنترل های زیر را در فرم قرار دهید:
File list box , list box , command button , text box
وسپس کد زیر را در command button وارد کنید.

Dim temp As String
File1.Path = "adress folder"
For i = 0 To File1.ListCount - 1
DoEvents
Open File1.Path + "\" + File1.List(i) For Binary As #1
Get #1, , temp
If InStr(1, temp, Text1.Text) <> 0 Then
List1.AddItem File1.List(i)
End If
Close #1
Next

وبه جای adress folder در خط دوم آدرس پوشه را قرار دهید.

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

[butterfly8528]

کد های بالا کار نمیکنه !!

از این کد استفاده کنید :


Dim myfile As String

Private Sub Command1_Click()
List1.Clear
File1.Path = "d:\a"
File1.Pattern = "*.txt"
For i = 0 To File1.ListCount - 1
DoEvents

Open File1.Path + "\" + File1.List(i) For Binary As #1
myfile = Input(LOF(1), 1)
If InStr(1, myfile, Text1.Text) <> 0 Then
List1.AddItem File1.List(i)
End If
Close #1
Next
End Sub

موفق باشید .