سرچ در پیامک ها

[Neco Me 0]

سلام من با این کد تمام پیامک های گوشیمو میگیرم چطور براش شرط بزارم وقتی داخل یه پیامی مثلا کلمه مشترک گرامی بیاد حلقه رو متوقف کنه و اون پیام رو تو یه متغییر بریزه ؟

	Dim allsmss As String = ""
	Dim li As List
	Dim sms2 As SmsMessages
	Dim sms As Sms

	li.Initialize
	li = sms2.GetAll
	For i = 0 To li.Size -1
		sms = li.Get(i)
		

		allsmss = allsmss & CRLF & "Text:" & sms.Body & CRLF 
	Next
	Log(allsmss)

 

[Neco Me 0]

ممنون جواب داد حالا چطور 10 پیامک اخری که توش کلمه مشترک گرامی داره رو بگیرم یعنی همون چطور وقتی 10 تا رو گرفت حلقه رو متوقف کنه ؟

 

[امیرحسین قاسمی 610]

راه های مختلفی وجود داره. یکیش اینه که داخل حلقه شرط بزارید اگه i برابر ۹ شد از حلقه با دستور Exit خارج بشه.

[امیرحسین قاسمی 610]

سلام

	Dim MySmsMessages As SmsMessages
	Dim MySms As Sms
	
	Dim MyList As List : MyList.Initialize
	MyList=MySmsMessages.GetAll
	
	For i = 0 To MyList.Size -1
		MySms = MyList.Get(i)
		If MySms.Body.Contains("مشترک گرامی") Then
			LogColor(MySms.Body,Colors.ARGB(255,Rnd(0,255),Rnd(0,255),Rnd(0,255)))
			Exit
		End If
	Next

اگه Exit رو بردارید تا از حلقه خارج نشه، کل پیام های دارای "مشترک گرامی" چاپ خواهد شد.