جستجوی یک رشته درون رشته ی دیگه

[RAMA2009]

سلام
کسی سورس کد جستجوی یک رشته درون رشته ی دیگه رو داره؟

[جلالی]

dim str1,str2 as string
dim pos as int16
str1 =“The quick brown fox jumped over the lazy dog”
str2 =“the”
Pos =Instr(str1, str2)
pos در نهایت 33 خواهد بود البته در vb.net

[RAMA2009]

من میخوام عینا کلمه ی مورد نظر جستجو بشه اگر پیدا نشد، مقدار 0 بده
ولی تابع instr اینطوری عمل نمیکنه

[Di Di]

استاد می شه بفرمایید پس تابع InStr چطور عمل می کنه؟

[RAMA2009]

کد:

Private Sub Command1_Click()
a = InStr(Text1, "proce")
MsgBox a
End Sub

مقدار process رو به خاصیت text از شی textbox بده و نتیجه رو مشاهده کن.
جستجو به این شکل غلطه! باید کلمه جستجو بشه نه حرف

[Di Di]

این دستور دقیقا کاری رو انجام می ده که شما ازش خواستید

اگر می خواهید کلمه جستجو بشه باید قبل و بعدش Space قرار بدید

کد:

Private Sub Command1_Click()
a = InStr(Text1, " proce " )
MsgBox a
End Sub