دریافت rss سایت ها در مولتی پنل

[cloner01001 38]

دوستان سورسی واسه گرفتن و نمایش rss سایت ها در مولتی پنل هست؟ خیلی نیاز دارم

[zartosht 10]

دوستان سورسی واسه گرفتن و نمایش rss سایت ها در مولتی پنل هست؟ خیلی نیاز دارم

دوست عزیز اگر سورسی آماده داشتم و یا فرصت نوشتنشو داشتم حتما تقدیم میکردم ، ولی توضیحی میدم ک بدردت بخوره.

view-source:http://www.tabnak.ir/fa/rss/allnews

به آدرس بالا برو، این یه فایل xml شامل محتوای یه وبسایت خبری، فرمتشو ببین شامل تگ های item زیادیه ما با اونا کار داریم و زیر شاخش ک شامل تیتر و لینک و توضیحات میشه.

ابتدا محتویات فایل رو داخل یه رشته متنی میریزیم بعد با آرگومان index of دنبال تگ های مورد نظر میگردیم و دوباره و دوباره تا محتویات تیتر و لینک هرکدام از نوشته ها مثلا داخل آرایه دو بعدی رشته ای ریخته بشه (با حلقه و پایان حلقه میشه طول رشته) برای مقدار دهی هم با حلقه ای دیگه اینبار فقط با آرایه ها مقدار تمام پنل هارو میدیم..

ببخشید زیادی خلاصه جواب دادم

سوالی داشتید در خدمتم..

[cloner01001 38]

دوست عزیز اگر سورسی آماده داشتم و یا فرصت نوشتنشو داشتم حتما تقدیم میکردم ، ولی توضیحی میدم ک بدردت بخوره.

view-source:http://www.tabnak.ir/fa/rss/allnews

به آدرس بالا برو، این یه فایل xml شامل محتوای یه وبسایت خبری، فرمتشو ببین شامل تگ های item زیادیه ما با اونا کار داریم و زیر شاخش ک شامل تیتر و لینک و توضیحات میشه.

ابتدا محتویات فایل رو داخل یه رشته متنی میریزیم بعد با آرگومان index of دنبال تگ های مورد نظر میگردیم و دوباره و دوباره تا محتویات تیتر و لینک هرکدام از نوشته ها مثلا داخل آرایه دو بعدی رشته ای ریخته بشه (با حلقه و پایان حلقه میشه طول رشته) برای مقدار دهی هم با حلقه ای دیگه اینبار فقط با آرایه ها مقدار تمام پنل هارو میدیم..

ببخشید زیادی خلاصه جواب دادم

سوالی داشتید در خدمتم..

 

 

من با کمک این صفحه:

http://answercenter.ir/topic/6660-%D8%AF%D8%B1%DB%8C%D8%A7%D9%81%D8%AA-rss-%D8%B3%D8%A7%DB%8C%D8%AA-%D9%87%D8%A7-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%AE%D8%A8%D8%B1%DB%8C/

 

برنامه رو ساختم و حالا میخوام به جای اینکه rss تو لیست ویو نمایش داده بشه تو مولتی پنل لود شه که برنامه زیباتر شه ، لطفن کمکم کنید

اینم سورس:

#Region  Project Attributes 
	#ApplicationLabel: تـازه هـا
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
	Dim Parser As SaxParser
	Dim HttpClient1 As HttpClient
	Dim Hr As HttpRequest
    Dim Str1 As String
 Dim p As PhoneIntents
End Sub

Sub Globals
Private Label1 As Label
Dim Font As Typeface
      Dim GetListView As ListView
				Dim Title, Link, PubDate, Description,img As String
				Dim BufferText As String
				Dim NewFeed As String				
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
Font = Typeface.LoadFromAssets("Soltan.ttf")
Label1.Typeface = Font
				GetListView.Width = 100%x
				GetListView.Height = 100%y
	   Parser.Initialize
				HttpClient1.Initialize("HttpClient1")
				Hr.InitializeGet("http://www.alisz.ir/rss.xml")
				HttpClient1.Execute(Hr, 1)
SetDivider(GetListView,Colors.RGB(238, 238, 238) , 15dip)

End Sub
Sub SetDivider(lv As ListView, Color As Int, Height As Int)
   Dim r As Reflector
   r.Target = lv
   Dim CD As ColorDrawable
   CD.Initialize(Color, 0)
   r.RunMethod4("setDivider", Array As Object(CD), Array As String("android.graphics.drawable.Drawable"))
   r.RunMethod2("setDividerHeight", Height, "java.lang.int")
End Sub



Sub HttpClient1_ResponseSuccess(Response As HttpResponse, TaskId As Int)
ProgressDialogShow("لطفا صبر کنید")
    Response.GetAsynchronously("GetGetListView",	File.OpenOutput(File.DirDefaultExternal, "RSS.xml", False), True, TaskId)
End Sub
Sub HttpClient1_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
    If Response <> Null Then
       Msgbox("Error: " & Response.GetString("UTF8"), "Connection Error")
							Response.Release
    End If
End Sub

Sub GetGetListView_StreamFinish(Success As Boolean, TaskId As Int)
ProgressDialogHide
				If Success = False Then
							Msgbox(LastException.Message, "Error")
       Return
				End If			
				Dim In As InputStream
				In = File.OpenInput(File.DirDefaultExternal, "RSS.xml")
				Parser.Parse(In, "Parser")
				In.Close
				NewFeed = File.ReadString(File.DirDefaultExternal, "RSS.xml")
End Sub
Sub Parser_StartElement(Uri As String, Name As String, Attributes As Attributes)

End Sub

Sub Parser_EndElement(Uri As String, Name As String, Text As StringBuilder)				
				If Parser.Parents.IndexOf("item") > -1 Then		
		     If Name = "title" Then			
			       Title = Text.ToString	
		     Else If Name = "link" Then		
			       Link = Text.ToString
			 Else If Name = "img" Then
			 	   img = Text.ToString   	
		     Else If Name = "pubdate" Then			       
										PubDate = Text.ToString								
							Else If Name = "description" Then
							   Description = Text.ToString
		     End If
	   End If
				If Name = "item" Then
	   						
GetListView.AddSingleLine2(Title,Link)
Dim Label2 As Label
Label2 = GetListView.SingleLineLayout.Label
Label2.TextSize = 16
Label2.Left = Label2.width - 5dip
Label2.TextColor = Colors.Black
Label2.Typeface=Typeface.LoadFromAssets("iran sans.ttf")

	   
	   End If 
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub GetListView_ItemClick(Position As Int, Value As Object)
Str1 = Value
    StartActivity(p.OpenBrowser(""&Str1))
End Sub

[zartosht 10]

GetListView.AddSingleLine2(Title,Link)

این که کار نداره شما میای این خط رو جایگزین میکنی..

و بجاش نام ویویی رو مینویسی که در پنل هات داری استفاده میکنی مثلا:

for 'start Ring

   panel1.addview(button1,.......)
   button1.text = ""
   button1.tag = link
' end of ring

sub button1_Click
   button2 = sender
   startactivity(i.openbrowser(link))