'Michael Ogden Codenquilts.com.au
'Oct 2018
'Weather.com.au RSS feed recovery

'
'version 0.5 ,

dim integer a(1000)
dim l%
dim xp
system "curl http://rss.weather.com.au/vic/moe",a()
for i=1 to llen(a())
print lgetstr$(a(),i,1);
next i
l%=0
xp=1

'"script" for Weather.com.au feed
print xml$(a(),"title",xp)
print xml$(a(),"description",xp)
print xml$(a(),"pubDate",xp)
print xml$(a(),"ttl",xp)
print xml$(a(),"title",xp)
print xml$(a(),"<b>",xp)
print xml$(a(),"<b>",xp)
print xml$(a(),"<b>",xp)
print xml$(a(),"<b>",xp)
print xml$(a(),"<b>",xp)
print xml$(a(),"<b>",xp)
print xml$(a(),"<b>",xp)
print xml$(a(),"<b>",xp)
print xml$(a(),"<p>",xp)
print xml$(a(),"<p>",xp)
print xml$(a(),"<p>",xp)
print:xp=1
print xml$(a(),"<w:current",xp)
print xml$(a(),"<w:current",xp)
print xml$(a(),"<w:current",xp)
print xml$(a(),"<w:forcast",xp)
print xml$(a(),"<w:forcast",xp)
print xml$(a(),"<w:forcast",xp)
end



function xml$(xaray%(),xstr$,xp)
local xstart,xend,xlen,xreturn
local xstr1$
xlen=len(xstr$)
' extract required string
if xstr$="<b>" then
xlen=len(xstr$)
xstart=linstr(xaray%(), xstr$ ,xp)
xend=linstr(xaray%(),"<br />",xstart+xlen)
xreturn=xend-(xstart+xlen)
xp=xend+7
elseif xstr$="<p>" then
xlen=len(xstr$)
xstart=linstr(xaray%(), xstr$ ,xp)
xend=linstr(xaray%(),"</p>",xstart+xlen)
xreturn=xend-(xstart+xlen)
xp=xend+4
elseif xstr$="<w:current" or xstr$="<w:forcast" then
xlen=len(xstr$)
xstart=linstr(xaray%(), xstr$ ,xp)
xend=linstr(xaray%(),"/>",xstart+xlen)
xreturn=xend-(xstart+xlen)
xp=xend+2
else
xlen=len(xstr$)+2
xstart=linstr(xaray%(),"<" + xstr$ +">",xp)
xend=linstr(xaray%(),"</" + xstr$ +">",xstart+xlen)
xreturn=xend-(xstart+xlen)
xp=xend+xlen+4
end if
if xstart>0 then
'print "Total";xreturn
if xreturn > 255 then
xx=xstart+xlen+256
'get just 255 bytes and exit
on error skip
xstr1$=lgetstr$(xaray%(),xstart+xlen,255)
'remove any html tags etc
xml$=tags$(xstr1$)
else
on error skip
xml$=lgetstr$(xaray%(),xstart+xlen,xreturn)
'remove any html tags etc
xml$=tags$(xml$)
end if
end if
exit_xml:
'print xstart;" ";xend;" ";xlen;" ";xreturn;" ";xp
end function

'replaceString$(string$, replaceWhat$, replaceWith$)
FUNCTION replace$(R$, a$, b$)
local integer i,j,c,d
d=1
replace$=R$
i = LEN(a$) : j = LEN(b$)
do while INSTR(d,replace$, a$) > 0
c = INSTR(d,replace$, a$)
replace$ = LEFT$(replace$, c-1) + b$ + MID$(replace$, c+i)
d = c+j
loop
END FUNCTION

function tags$(t$)
t$=replace$(t$,"<![CDATA[","") 'remove cdata open tag
t$=replace$(t$,"<b>","") 'remove <b> open tag
t$=replace$(t$,"</b>"," ") 'replace <b> close tag with space
t$=replace$(t$,"&","") 'remove & Char
t$=replace$(t$,";","") 'remove ; Char
t$=replace$(t$,"<br />",chr$(13)) 'replace <br /> tag with LF
t$=replace$(t$,"]]>","") 'remove cdata close tag
t$=replace$(t$,"<","") 'remove open tag
t$=replace$(t$,">","") 'remove close tag
tags$=t$
end function

Weather.com.au - Moe Weather
Current conditions and forecast for Moe, Victoria.
Thu, 04 Oct 2018 06:45:00 GMT
15
Moe Current Conditions
Temperature: 11.9degC
Dew Point: 9.6degC
Relative Humidity: 86%
Wind Speed: 14.8km/h
Wind Gusts: 24.1km/h
Wind Direction: E
Pressure: 1022.1hPa
Rain Since 9AM: 0.0mm

Friday:
img src="//m6e6i3k5.stackpathcdn.com/images/icons/12.gif" alt="Early Fog Followed by Sun" /
Early Fog Followed by Sun. Mild.
7 - 18


Saturday:
img src="//m6e6i3k5.stackpathcdn.com/images/icons/2.gif" alt="Mostly Sunny" /
Mostly Sunny. Mild.
6 - 22


Sunday:
img src="//m6e6i3k5.stackpathcdn.com/images/icons/4.gif" alt="Afternoon Clouds" /
Afternoon Clouds. Mild.
8 - 24


temperature="11.9" dewPoint="9.6" humidity="86" windSpeed="14.8" windGusts="24.1" windDirection="E" pressure="1022.1" rain="0.0"

temperature="11.9" dewPoint="9.6" humidity="86" windSpeed="14.8" windGusts="24.1" windDirection="E" pressure="1022.1" rain="0.0"