پیدا کردن یک کلمه درون یک فایل (متنی) تکست

[R2du-soft]

سلام
دوستان چطور میشه درون یک فایل متنی یک کلمه رو جست و جو کردن و اگه کلمه بود پيغام وجود داشتن و اگه نبود پیغام وجود نداشتن اون کلمه داده بشه؟
نمیخوام فایل درون برنامم (درون تکست باکس) ریخته بشه و از اونجا سرچ بشه.
میخوام متن مستقیم از توی فایلم پیدا بشه.
ممنون

[amin32]

این که خیلی سادست !

i = FreeFile
Open "f:\test.txt" For Input As #i
temp = StrConv(InputB(LOF(i), i), vbUnicode)
Close #i
If InStr(1, temp, "Example", vbTextCompare) Then
MsgBox "Yes"
Else
MsgBox "No"
End If



به جای Example کلمه مورد نظر رو وارد کنید.

[R2du-soft]

ممنون داداش کد کار میکنه،اما من میخوام کلمه توی یک فایل ini سرچ بشه که این کد هنگم اجرا شدن روی فایل ini من از خط


temp = StrConv(InputB(LOF(i), i), vbUnicode)


مشکل میگیره!

چه کنم؟!! :ناراحت:

[سید حمید حق پرست]

ممنون داداش کد کار میکنه،اما من میخوام کلمه توی یک فایل ini سرچ بشه که این کد هنگم اجرا شدن روی فایل ini من از خط


temp = StrConv(InputB(LOF(i), i), vbUnicode)


مشکل میگیره!

چه کنم؟!! :ناراحت:
سلام علیکم
واسه این گیر میده چون encoding فایل ini که دارید unicode هستش
فایل ini خودتونو با notepad باز کن، از منو file روی save as کلیک کن، پایین پنجره encoding رو روی UTF-8 بزار و save بزن.
موفق باشید.

یا علی (ع)

[R2du-soft]

سلام علیکم
واسه این گیر میده چون encoding فایل ini که دارید unicode هستش
فایل ini خودتونو با notepad باز کن، از منو file روی save as کلیک کن، پایین پنجره encoding رو روی UTF-8 بزار و save بزن.
موفق باشید.

یا علی (ع)

درسته داداش اما مشکل من هم اینه که فایل ویندوزی هستش ، و نمیخوام که دستی انجامش بدم!
میخوام خود برنامه اینکارو کنه
راه دیگه ای نیست؟!!!!!!

[R2du-soft]

ممنون برادران
مشکل حل شد با کد زیر:




Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim temp As String
i = FreeFile
Open App.Path & "/Myfile.ini" For Input As #i
temp = StrConv(InputB(LOF(i), i), vbUnicode)
Close #i
If InStr(1, temp, "Example", vbTextCompare) Then
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub





ممنون از عزیزان