ارسال به سرور

vahid_2231 · 9 خرداد، ۱۳۹۵

سلام دوستان امیدوارم که امتحانات رو به خوبی پشت سر گذاشته باشید .

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

Sub Globals
	Dim WebView1 As WebView
	Dim WebViewExtras1 As WebViewExtras
	Dim HttpJob1 As HttpJob
	Dim spinner1 As Spinner
	Dim get As String
	Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("Lay")
   HttpJob1.Initialize("HttpJob1",Me)
   WebView1.LoadUrl("http://www.time.ir/")
   HttpJob1.Download("http://www.time.ir/")
 
  
End Sub
Sub jobdone(job As HttpJob)
	If  job.Success=True Then
		get=job.GetString	
		get=get.Replace("""","'")
			Dim k() As String=Regex.Split("<div",get)
		For i=0 To k.Length-1
			Log(k(i))
		
			If k(i).Contains("form-control selectProvince") Then

				Dim str As String=k(i)
				Dim str1 As String=k(i)
				Dim str2 As String=k(i)
				Dim str3 As String=k(i)
				Dim str4 As String=k(i)
				Dim str5 As String=k(i)
				Dim str6 As String=k(i)
				Dim str7 As String=k(i)
				Dim str8 As String=k(i)
				Dim str9 As String=k(i)
				Dim str10 As String=k(i)
				Dim str11 As String=k(i)
				Dim str12 As String=k(i)
				Dim str13 As String=k(i)
				Dim str14 As String=k(i)
				Dim str15 As String=k(i)
				Dim str17 As String=k(i)
				Dim str18 As String=k(i)
				Dim str19 As String=k(i)
				Dim str20 As String=k(i)
				Dim str21 As String=k(i)
				Dim str22 As String=k(i)
				Dim str23 As String=k(i)
				Dim str24 As String=k(i)
				Dim str25 As String=k(i)
				Dim str26 As String=k(i)
				Dim str27 As String=k(i)
				Dim str28 As String=k(i)
				Dim str29 As String=k(i)
			    str=str.SubString(str.IndexOf("'1'")+4)
				str=str.SubString2(0,str.IndexOf("</option>")-0)
				str1=str1.SubString(str1.IndexOf("'2'")+4)
				str1=str1.SubString2(0,str1.IndexOf("</option>")-0)
			    str2=str2.SubString(str2.IndexOf("'3'")+4)
				str2=str2.SubString2(0,str2.IndexOf("</option>")-0)
				str3=str3.SubString(str3.IndexOf("'4'")+4)
				str3=str3.SubString2(0,str3.IndexOf("</option>")-0)
				str4=str4.SubString(str4.IndexOf("'5'")+4)
				str4=str4.SubString2(0,str4.IndexOf("</option>")-0)
				str5=str5.SubString(str5.IndexOf("'6'")+4)
				str5=str5.SubString2(0,str5.IndexOf("</option>")-0)
				str6=str6.SubString(str6.IndexOf("'8'")+4)
				str6=str6.SubString2(0,str6.IndexOf("</option>")-0)
				str7=str7.SubString(str7.IndexOf("'9'")+4)
				str7=str7.SubString2(0,str7.IndexOf("</option>")-0)
				str8=str8.SubString(str8.IndexOf("'10'")+5)
				str8=str8.SubString2(0,str8.IndexOf("</option>")-0)
				str9=str9.SubString(str9.IndexOf("'11'")+5)
				str9=str9.SubString2(0,str9.IndexOf("</option>")-0)
				str10=str10.SubString(str10.IndexOf("'12'")+5)
				str10=str10.SubString2(0,str10.IndexOf("</option>")-0)
				str11=str11.SubString(str11.IndexOf("'13'")+5)
				str11=str11.SubString2(0,str11.IndexOf("</option>")-0)
				str12=str12.SubString(str12.IndexOf("'14'")+5)
				str12=str12.SubString2(0,str12.IndexOf("</option>")-0)
				Log(str1)
				Log(str2)
				Log(str3)
				Log(str4)
				Log(str5)
				Log(str6)
				Log(str7)
				Log(str8)
				Log(str9)
				Log(str10)
				Log(str11)
				Log(str12)
				spinner1.Add(str)
				spinner1.Add(str1)
				spinner1.Add(str2)
				spinner1.Add(str3)
				spinner1.Add(str4)
			    spinner1.Add(str5)
				spinner1.Add(str6)
				spinner1.Add(str7)
				spinner1.Add(str8)
				spinner1.Add(str9)
				spinner1.Add(str10)
				spinner1.Add(str11)
				spinner1.Add(str12)
				End If
				Next
		End If
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub Spinner1_ItemClick (Position As Int, Value As Object)


End Sub

پژمان نیکروان · 11 خرداد، ۱۳۹۵

سلام

تو این تاپیک در مورد وصل کردن اسپینر توضیح داده شده شاید به نتیجه برسید.

http://answercenter.ir/topic/2410-%D9%85%D8%B4%DA%A9%D9%84-%D8%AF%D8%B1-%DA%AF%D8%AA-%D8%A7%D9%84%D9%85%D9%86%D8%AA/

vahid_2231 · 10 خرداد، ۱۳۹۵

سلام دوستان من کدم رو عوض کردم و به این کد که در اسپینر نوشتم رسیدم حالا وقتی من انتخابم انجام میشه اسپینر داخل سایت خالی میشه علتشو نمیدونم خواهشا اونایی که گت المنت کار کردن جواب بدن ( اقای ایزدی ).

Sub Globals

	Dim WebView1 As WebView
	Dim WebViewExtras1 As WebViewExtras
	Dim HttpJob1 As HttpJob
	Dim spinner1 As Spinner
	Dim get As String
	Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("Lay")
   HttpJob1.Initialize("HttpJob1",Me)
   WebView1.LoadUrl("http://www.time.ir/")
   HttpJob1.Download("http://www.time.ir/")

  
End Sub
Sub jobdone(job As HttpJob)


	If  job.Success=True Then
		get=job.GetString	
		get=get.Replace("""","'")
			Dim k() As String=Regex.Split("<div",get)
		For i=0 To k.Length-1
			Log(k(i))
			
			If k(i).Contains("form-control selectProvince") Then

				Dim str As String=k(i)
				Dim str1 As String=k(i)
				Dim str2 As String=k(i)
				Dim str3 As String=k(i)
				Dim str4 As String=k(i)
				Dim str5 As String=k(i)
				Dim str6 As String=k(i)
				Dim str7 As String=k(i)
				Dim str8 As String=k(i)
				Dim str9 As String=k(i)
				Dim str10 As String=k(i)
				Dim str11 As String=k(i)
				Dim str12 As String=k(i)
				Dim str13 As String=k(i)
				Dim str14 As String=k(i)
				Dim str15 As String=k(i)
				Dim str17 As String=k(i)
				Dim str18 As String=k(i)
				Dim str19 As String=k(i)
				Dim str20 As String=k(i)
				Dim str21 As String=k(i)
				Dim str22 As String=k(i)
				Dim str23 As String=k(i)
				Dim str24 As String=k(i)
				Dim str25 As String=k(i)
				Dim str26 As String=k(i)
				Dim str27 As String=k(i)
				Dim str28 As String=k(i)
				Dim str29 As String=k(i)
			    str=str.SubString(str.IndexOf("'1'")+4)
				str=str.SubString2(0,str.IndexOf("</option>")-0)
				str1=str1.SubString(str1.IndexOf("'2'")+4)
				str1=str1.SubString2(0,str1.IndexOf("</option>")-0)
			    str2=str2.SubString(str2.IndexOf("'3'")+4)
				str2=str2.SubString2(0,str2.IndexOf("</option>")-0)
				str3=str3.SubString(str3.IndexOf("'4'")+4)
				str3=str3.SubString2(0,str3.IndexOf("</option>")-0)
				str4=str4.SubString(str4.IndexOf("'5'")+4)
				str4=str4.SubString2(0,str4.IndexOf("</option>")-0)
				str5=str5.SubString(str5.IndexOf("'6'")+4)
				str5=str5.SubString2(0,str5.IndexOf("</option>")-0)
				str6=str6.SubString(str6.IndexOf("'8'")+4)
				str6=str6.SubString2(0,str6.IndexOf("</option>")-0)
				str7=str7.SubString(str7.IndexOf("'9'")+4)
				str7=str7.SubString2(0,str7.IndexOf("</option>")-0)
				str8=str8.SubString(str8.IndexOf("'10'")+5)
				str8=str8.SubString2(0,str8.IndexOf("</option>")-0)
				str9=str9.SubString(str9.IndexOf("'11'")+5)
				str9=str9.SubString2(0,str9.IndexOf("</option>")-0)
				str10=str10.SubString(str10.IndexOf("'12'")+5)
				str10=str10.SubString2(0,str10.IndexOf("</option>")-0)
				str11=str11.SubString(str11.IndexOf("'13'")+5)
				str11=str11.SubString2(0,str11.IndexOf("</option>")-0)
				str12=str12.SubString(str12.IndexOf("'14'")+5)
				str12=str12.SubString2(0,str12.IndexOf("</option>")-0)
				Log(str1)
				Log(str2)
				Log(str3)
				Log(str4)
				Log(str5)
				Log(str6)
				Log(str7)
				Log(str8)
				Log(str9)
				Log(str10)
				Log(str11)
				Log(str12)
				spinner1.Add(str)
				
				spinner1.Add(str1)
				spinner1.Add(str2)
				spinner1.Add(str3)
				spinner1.Add(str4)
			    spinner1.Add(str5)
				spinner1.Add(str6)
				spinner1.Add(str7)
				spinner1.Add(str8)
				spinner1.Add(str9)
				spinner1.Add(str10)
				spinner1.Add(str11)
				spinner1.Add(str12)
				End If
				Next
		End If
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub Spinner1_ItemClick (Position As Int, Value As Object)

WebViewExtras1.executeJavascript(WebView1,"document.getElementById('ctl00_cphTop_Sampa_Web_View_EphemerisUI_EphemerisByCity11cphTop_3414_ddlProvince').innerHTML='"&Value&"';") 
Log(Value)
End Sub

ورود

ارسال به سرور

سوال

vahid_2231 6

لینک ارسال

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

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

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

پژمان نیکروان 6,055

لینک ارسال

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

vahid_2231 6

لینک ارسال

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

بایگانی شده

کاربران آنلاین در این صفحه 0 کاربر

فهرست بخش ها

فعالیت ها

فروشگاه