The below script is giving me a mismatch error
sub main()
dim host
dim page
dim strip_tags
dim port
dim Webpage
dim data1
dim f
dim g
dim fs
dim strHTML
dim kindex
host="sec.noaa.gov"
page="/rpc/costello/ace_pkp_15m.txt"
strip_tags=true
port=80
strHTML = hs.GetURL(host, page, strip_tags, port)
Webpage=replace(webpage,"|",":")
i = InstrRev(strHTML,"2004 ")
if i = 0 then
strHTML = ""
else
strHTML = mid(strHTML,i+18)
end if
f= strHTML
kindex=hs.stringItem(f,6," ")
hs.setdevicestring "v25","Geo-magnetic Activity Estimate of " & kindex ,true
hs.setdevicevalue "v25", kindex
end sub
Used to work, now I get this error
"Type mismatch: 'hs.setdevicevalue' in line 32"
I didn't change anything.
Thanx
Tim
sub main()
dim host
dim page
dim strip_tags
dim port
dim Webpage
dim data1
dim f
dim g
dim fs
dim strHTML
dim kindex
host="sec.noaa.gov"
page="/rpc/costello/ace_pkp_15m.txt"
strip_tags=true
port=80
strHTML = hs.GetURL(host, page, strip_tags, port)
Webpage=replace(webpage,"|",":")
i = InstrRev(strHTML,"2004 ")
if i = 0 then
strHTML = ""
else
strHTML = mid(strHTML,i+18)
end if
f= strHTML
kindex=hs.stringItem(f,6," ")
hs.setdevicestring "v25","Geo-magnetic Activity Estimate of " & kindex ,true
hs.setdevicevalue "v25", kindex
end sub
Used to work, now I get this error
"Type mismatch: 'hs.setdevicevalue' in line 32"
I didn't change anything.
Thanx
Tim
Comment