قسمتی از متن

[amir1999 81]

سلام

دوستان من میخوام وقتی کاربر توی ادیت تکستم یه متن فارسی وارد کرد بیاد و چک کنه مثلا اگه کلمه "اول" و "دوم" توی متن بود بیاد یه رویدادی انجام بده(حالا مثلا توست مسیج)

ولی اگه دوتا کلمه ای که گفتم داخلش نبود یا فقط یکیش بود یه رویداد دیگه یا خطا(else)

سرچ کردم و به نتیجه نرسیدم

ممنون میشم راهنمایی کنید

[porya 959]

سلام اینو یه تست کنید...

	Dim edit As EditText
	
	If edit.Text.Contains("اول") And edit.Text.Contains("دوم") Then
		ToastMessageShow("ok",False)
	Else
		ToastMessageShow("null",False)
	End If	

 

[amir1999 81]

در 12 دقیقه قبل، porya گفته است :

سلام اینو یه تست کنید...

	Dim edit As EditText
	
	If edit.Text.Contains("اول") And edit.Text.Contains("دوم") Then
		ToastMessageShow("ok",False)
	Else
		ToastMessageShow("null",False)
	End If	

 

یه دنیا ممنون...

دقیقا همینو میخواستم

[amir1999 81]

در 35 دقیقه قبل، porya گفته است :

سلام اینو یه تست کنید...

عذر میخوام

حالا اگه بخوام به جای کلمه "دوم" بگم مثلا اگه کلمه "دوم" یا "سوم" بود چی؟

[porya 959]

در 10 دقیقه قبل، amir1999 گفته است :

عذر میخوام

حالا اگه بخوام به جای کلمه "دوم" بگم مثلا اگه کلمه "دوم" یا "سوم" بود چی؟

خواهش میکنم به جای اون and از or استفاده کن.

[amir1999 81]

در در 1395/08/06, 12:21:19، porya گفته است :

خواهش میکنم به جای اون and از or استفاده کن.

سلام دوباره

خیلی عذر میخوام تاپیک قدیمی آپ میکنم

من این کد رو میزنم:

	If txt.Contains("a1") Or txt.Contains("a2") And txt.Contains("b1") Or txt.Contains("b2") Then
	Dim i As Intent
	Dim pm As PackageManager
	i = pm.GetApplicationIntent("com.farsitel.bazaar")
	If i.IsInitialized Then
    StartActivity(i) 
	Else
		ToastMessageShow("چنین برنامه ای روی گوشی شما نصب نیست!",False)   
	End If
	End If

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

یعنی حتی اگه یکی از کلمات مثلا a1 هم باشه شرط انجام میشه

خودم فکر میکنم شاید بخاطر پیچیدگی شرط هاست

ممنون

[amir1999 81]

up

[Mr Mansour 325]

If txt.Contains("a1") And txt.Contains("a2") And txt.Contains("b1") And txt.Contains("b2") Then
	Dim i As Intent
	Dim pm As PackageManager
	i = pm.GetApplicationIntent("com.farsitel.bazaar")
	If i.IsInitialized Then
    StartActivity(i) 
	Else
		ToastMessageShow("چنین برنامه ای روی گوشی شما نصب نیست!",False)   
	End If
	End If

 

تست کنین ببینین جواب میگیرین !!!

[softir 459]

در 3 ساعت قبل، amir1999 گفته است :

up

Sub Button1_Click
	If (EditText1.Text.Contains("ali")) Then
		Msgbox("بله درسته","")
	else if (EditText1.Text.Contains("hassan")) Then
		Msgbox("بله حسن","")
	else if (EditText1.Text.Contains("reza") Or EditText1.Text.Contains("babak")) Then
		Msgbox("درست نیست","")
	End If
End Sub

این شکلی نوشتنش درسته .