رفتن به مطلب
  • 0

قسمتی از متن


amir1999

سوال

سلام

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

8 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

 

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

عذر میخوام

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

عذر میخوام

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 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 هم باشه شرط انجام میشه

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

ممنون

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...