گرفتن فیلد سوم از لیست با get

[mohammade79 127]

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

[mohammade79 127]

در 39 دقیقه قبل، sbr گفته است :

اینطوری ویرگول ها رو حذف کن 

Sub JobDone(job1 As HttpJob)
	
	If job1.Success Then
		
		Dim st As String = job1.GetString
		Dim std() As String = Regex.Split(";",st)
		Dim list As List
		
		For i=0 To std.Length -1
			list.Add(std(i))
		Next
		
	End If
	
	Dim matn As String = list.Get(1)
	
End Sub

 

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

[sbr 233]

در 5 ساعت قبل، mohammade79 گفته است :

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

سلام 

سوالتون مبهم هست مشکلتون توی گرفتن اطلاعات از سرور هست یا استخراج اطلاعات از لیست ؟!

عنوان تایپک میگه مشکلتون با لیست هست 

برای گرفتن ایتم دلخواه از  لیست باید از دستور get استفاده کنید 

list.Get("آیتم مورد نظر")

اما حس میکنم مشکل شما در تجزیه اطلاعاتی هست که از سمت سرور میگیرید 

وقتی اطلاعات رو از سرور میگیرید تجزیه میکنید ؟؟؟ 

مثلا اگه اطلاعاتتون اینطوریه 1,2,3,4,5,6,7,8,9 باید اول با تابع Regex.spilet اون علامت های کاما بینشون رو بردارید بعد هر آیتم رو بریرید توی لیست 

حس میکنم مشکل شما توی این تجزیه باشه 

[mohammade79 127]

در 6 ساعت قبل، sbr گفته است :

سلام 

سوالتون مبهم هست مشکلتون توی گرفتن اطلاعات از سرور هست یا استخراج اطلاعات از لیست ؟!

عنوان تایپک میگه مشکلتون با لیست هست 

برای گرفتن ایتم دلخواه از  لیست باید از دستور get استفاده کنید 

list.Get("آیتم مورد نظر")

اما حس میکنم مشکل شما در تجزیه اطلاعاتی هست که از سمت سرور میگیرید 

وقتی اطلاعات رو از سرور میگیرید تجزیه میکنید ؟؟؟ 

مثلا اگه اطلاعاتتون اینطوریه 1,2,3,4,5,6,7,8,9 باید اول با تابع Regex.spilet اون علامت های کاما بینشون رو بردارید بعد هر آیتم رو بریرید توی لیست 

حس میکنم مشکل شما توی این تجزیه باشه 

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

Sub JobDone(job1 As HttpJob)

	If job1.Success Then
		If job1.JobName = "dl" Then
			Dim parser As JSONParser
			parser.Initialize(job1.GetString)
			Dim root As List = parser.NextArray
			
			For Each colroot As Map In root
				Dim imgname As String = colroot.Get("imgname")
				Dim text As String = colroot.Get("text")
				Dim title As String = colroot.Get("title")
				
				list(1).Add(imgname)
				list(2).Add(text)
				list(3).Add(title)				
			Next
			For il =0 To list(2).Size-1
				Dim p As Panel
				p.Initialize("p")
				p.Tag = il
				scakhbar.Panel.AddView(p,0,topakhbar,100%x,100%y)
				topakhbar = topakhbar + 31%y
				p.LoadLayout("items")
				Dim dl As ImageDller
				dl.Initialize
				dl.Download(imgakhbar,list(1).Get(il))
				labti.Text= list(3).Get(il)
				labtext.Text = list(2).Get(il)
			Next
			scakhbar.Panel.Height = topakhbar
		End If
		End If

End Sub

ser1 = list(4).Get(0)
                 این کد روکه میزنم مرحله به مرحله میگیره فیلد اول بعد فیلد اول ویرگول فیلد دوم بعد فیلد اول ، دوم، سوم همینجوری نشون میده که فقط فیلد اول رو میتونم بگیرم 

[sbr 233]

در 14 ساعت قبل، mohammade79 گفته است :

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

Sub JobDone(job1 As HttpJob)

	If job1.Success Then
		If job1.JobName = "dl" Then
			Dim parser As JSONParser
			parser.Initialize(job1.GetString)
			Dim root As List = parser.NextArray
			
			For Each colroot As Map In root
				Dim imgname As String = colroot.Get("imgname")
				Dim text As String = colroot.Get("text")
				Dim title As String = colroot.Get("title")
				
				list(1).Add(imgname)
				list(2).Add(text)
				list(3).Add(title)				
			Next
			For il =0 To list(2).Size-1
				Dim p As Panel
				p.Initialize("p")
				p.Tag = il
				scakhbar.Panel.AddView(p,0,topakhbar,100%x,100%y)
				topakhbar = topakhbar + 31%y
				p.LoadLayout("items")
				Dim dl As ImageDller
				dl.Initialize
				dl.Download(imgakhbar,list(1).Get(il))
				labti.Text= list(3).Get(il)
				labtext.Text = list(2).Get(il)
			Next
			scakhbar.Panel.Height = topakhbar
		End If
		End If

End Sub

ser1 = list(4).Get(0)
                 این کد روکه میزنم مرحله به مرحله میگیره فیلد اول بعد فیلد اول ویرگول فیلد دوم بعد فیلد اول ، دوم، سوم همینجوری نشون میده که فقط فیلد اول رو میتونم بگیرم 

اینطوری ویرگول ها رو حذف کن 

Sub JobDone(job1 As HttpJob)
	
	If job1.Success Then
		
		Dim st As String = job1.GetString
		Dim std() As String = Regex.Split(";",st)
		Dim list As List
		
		For i=0 To std.Length -1
			list.Add(std(i))
		Next
		
	End If
	
	Dim matn As String = list.Get(1)
	
End Sub