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

مقایسه یک عدد با یک لیست ای دی


majid08

سوال

سلام

من یه سری ای دی از سرور میگیرم و در یک لیست ذخیره میکنم 

میخام لیست رو با یک ای دی دیگه مقایسه کنم اگر با یکی از ایتم های لیست برابر بود یه کاری انجام بده اگه نبود یه پیام بده

 

کدها

Select Case job.JobName
		

		Case "star_chak"
			Try	
			If job.Success Then
					Dim total033() As String
		total033=Regex.Split("<hr>",star_chak.GetString)
		
	For i = 0 To total033.Length -1
	Dim json033 As JSONParser
	json033.Initialize(total033(i))
	
	Dim list033 As List
	list033=json033.NextArray
	
		Dim user033  As String
		user033= list033.Get(0)
		star_cheks.add(user033)
		
				Next
	
		Else
			ToastMessageShow("error Download..!",False)
			End If
		Catch
				Log(LastException)
			End Try

اینم بقیه کدها

	Dim pe As ImageView
	
pe=Sender
		Dim ide1() As String
	ide1=Regex.Split("<br>" ,pe.Tag)
	For i=0 To ide1.Length-1
		
	Next
	
	For n = 0 To star_cheks.Size-1
				
	If ide1(0) = star_cheks.Get(n)   Then
	Dim bb2 As BitmapDrawable
	bb2.Initialize(LoadBitmap(File.DirAssets,"favicon1.png"))
    pe.Background=bb2
Else
ToastMessageShow("پیام",False)
		End If
Next
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

اینجوری میشه همه آیتم هارو تست کرد اگه متنش برابر فلان بود کاری انجام شه 


For i=0 To list1.Size-1
	If l.Get(i)="felan" Then
		'felan
	End If
Next
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

اینجوری میشه همه آیتم هارو تست کرد اگه متنش برابر فلان بود کاری انجام شه 


For i=0 To list1.Size-1
	If l.Get(i)="felan" Then
		'felan
	End If
Next

داداش منم همین کار رو انجام دادم به کدهام نگاه کنید  ولی جواب نمیده وقتی رو باتن کلیک میکنم میره و همه کدها رو اجرا میکنه 


	Dim pe As ImageView
	pe=Sender
	
	
	Dim ide1() As String
	ide1=Regex.Split("<br>" ,pe.Tag)
	For i=0 To ide1.Length-1
		
	For n = 0 To star_cheks.Size-1
		
				If  star_cheks.Get(n) =ide1(0)   Then
	Dim bb2 As BitmapDrawable
	bb2.Initialize(LoadBitmap(File.DirAssets,"favicon1.png"))
    pe.Background=bb2
	
		Else 
			
					adad= ide1(1) + 1
	
	 Dim bb2 As BitmapDrawable
	 bb2.Initialize(LoadBitmap(File.DirAssets,"favicon1.png"))
    pe.Background=bb2
			
	lickup.Initialize("lickup",Me)
	lickup.PostString("http://xxxx/xx/xxx/likep.php","id_up=" & ide1(0) & "&like_up=" & adad )
		
	add_star.Initialize("add_star" , Me)
	add_star.PostString("http://xxxx/xx/xxx/add_star.php","user_1=" & username_me & "&user_2="& ide1(2) & "&post_ids="& ide1(0))
	
	
	
	
	End If	

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

بایگانی شده

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

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

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