تشخیص وجود یک کلمه در تکست

[xrezax]

فرض کنیم توی یک تکستی یک جمله ای داریم که ( آسمان ابری است. )

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

[mpmsoft]

If Instr(1,Text1.Text,"aseman") > 0 then
'Do it
End If

[Saman_12]

اینم یه روش دیگه(البته من همون روش Mpmsoft رو پیشنهاد می کنم.) :


Dim Str As String
Dim i As Integer
Str = "آسمان ابری و زیبا"
For i = 1 To Len(Str)
If Mid(Str, i, Len("ابری")) = "ابری" Then
MsgBox "Find The String", vbInformation, "Find"
End If
Next

[sohrab o]

If Instr(1,Text1.Text,"aseman") > 0 then
'Do it
End If


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

[xrezax]

حالا اگه بخوام براش تعریف کنم که اگه یکی از کلمه های ( آسما ، است ، رضا ) را داشت برنامه یک اررور بزنه و ok بزنه ( یعنی هر کدوم توی جمله بود برنامه ok بده )

[M.T.P]

If InStr(1, Text1.Text, "Aseman") > 0 Then
MsgBox "Text Found."
End If

[xxxxx_xxxxx]

قبل از ایجاد تاپیک جستجو کنید:
پیدا کردن یک رشته خاص در TextBox با تابع InStr (http://barnamenevis.org/forum/showthread.php?t=224621)
پیدا کردن و کپی قسمت خاصی از متن (http://barnamenevis.org/forum/showthread.php?t=244174)
جستجو یک کلمه در TextBox (http://barnamenevis.org/forum/showthread.php?t=210528)
جدا کردن حروف بعد از کلمه ی مورد نظر|visual basic (http://barnamenevis.org/forum/showthread.php?t=193548)


تاپیک قفل شد/