feedMe

A simple app that fetches and displays the last 10 items in an RSS feed. Requires the new XML parser in Run BASIC 1.01. 1191889812

code format="vbnet" input "Feed to fetch"; url$ if (url$ <> "") then call feedMe url$ else print "no URL entered!" end if end

sub feedMe url$ xml$ = httpget$(url$) if xml$ = "" then print "error fetching feed!" 'exit sub 'exit sub isn't working for some reason! end end if

div feedMe xmlparser #rss, xml$

#channel = #rss #element(1) #title = #channel #element("title") #link = #channel #element("link") #desc = #channel #element("description")

html "" + #title value$ + " " html " " + #desc value$ + " " html ""

for x = 1 to #channel elementCount if (itemCount = 10) then exit for #item = #channel #element(x) if (#item key$ = "item") then #title = #item #element("title") #desc = #item #element("description") html "" + #title value$ + " " html "" + #desc value$ + " " itemCount = itemCount + 1 if (itemCount < 10) then html "" end if   next x  end div end sub code