پیدا کردن متن

[majidbahrami]

سلام دوستان...

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

ممنون

[SlowCode]

سلام
با فایلت رو باز کن بعد با تابع Instr کلمه password رو جستجو کن بعد اگه نتیجه تابع 0 نبود اون سطر رو نشون بده.

[majidbahrami]

منو اینو نوشتم.... اما نمیدونم چطوری اون خط رو نشون بدم

If InStr(1, Text1.Text, Text2.Text, vbTextCompare) <> 0 Then
MsgBox "found", vbInformation, ""
'inja chi benevisam?
End If

[oYaMaa]

MsgBox Split(Text1.Text, "password", , vbTextCompare)(1)

[majidbahrami]

MsgBox Split(Text1.Text, "password", , vbTextCompare)(1)
اررو میده.. 9
کد بالا رو که من گذاشتمو میتونی ویرایش کنی ؟
کد بالا توی تکس باکس یک هر چی بنویسم همونو جستجو میکنه..یه همچین حالتی داشته باشه
فقط میخوام واسم خط رو نشون بده همین

[oYaMaa]

MsgBox Split(Split(Text1.Text, "password", , vbTextCompare)(1), "payan")(0)
باید محدوده مشخص کنید.
این کد از اولین کلمه password تا کلمه payan رو هرچی باشه بینشون داخل پیغام نمایش میده.

[vbhamed]

سلام

اين كد، به شرط اينكه در متنتون بين خطها Enter زده باشيد و گرنه اگر يك متن بلند باشه نميشه شروع و پايان خط رو تشخيص داد


Dim s() As String

s = Split(text1.Text, vbCrLf)

For i = 0 To UBound(s)
If InStr(s(i), "password") Then MsgBox s(i)
Next