Oil per Barrel Price Script

[HomeTech]

Any one have a script to track the oil per barrel price? and put it into a device?or speak it?

[Stuart]

this will give you a start...
Stuart

[HomeTech]

Thanks Stuart could not have do it with out you. Here is the script works fine.

[MeSteve]

Question, what is the purpose of replacing "" with ""? And why 3 times?

Strdata = Replace(Strdata,"","")
Strdata = Replace(Strdata,"","")
Strdata = Replace(Strdata,"","")

[Rupp]

Steve,
The script posted doesn't have those lines. Maybe it was updated.

Dim startint
Dim Endint
Dim Strdata

Sub main()
	
	Strdata = hs.GetURL("www.quoteoil.com", "" & strZip, true, 80)

        Strdata = Replace (Strdata, chr(9), "")
        Strdata = Replace (Strdata, chr(10),"")
        Strdata = Replace (Strdata, chr(13), "")
        Strdata = Replace(Strdata,"<b>","")
        Strdata = Replace(Strdata,"<br >","")
        Strdata = Replace(Strdata,"</b>","")
        	
	startint = InStr(Strdata, "$")
	Endint = InStr(startint, Strdata, "per barrel") + 10
	strquote = Trim(Mid(Strdata, startint, Endint - startint ))
	
        Strquote= "Oil is " & strquote
        
	hs.speak strquote
        end sub

[MeSteve]

The second version does.

[Stuart]

Hi,
when i first posted the script, I had to make the file an attachment, it didnt like the format.
Stuart

[HomeTech]

Don't know how I did that cut and past is all I did to start. Thanks Rupp (Hawk eye)
I have corrected the previous post.

Works great

[tman1]

Oil is $ per barrell

Anyone else getting the above string when going to quoteoil.com?

Just wondering, Later Terry

[sqhughes]

Anyone else getting the above string when going to oilquote.com?

Just wondering, Later Terry

Yes, just got it this morning.


Scott

[HomeTech]

The site that the script gets its info from has no price present.
www.quoteoil.com

[HomeTech]

Oil Price Script stopped working

This was working but now when the script runs I get bellow:

Speak ():Oil is $(document).ready(function() { $("#responsecontainer").fadeOut(75).load("reload.php").fadeI n(75); $("#responsecontainer2").fadeOut(75).load("reload2.php").fad eIn(75); var refreshId = setInterval(function() { $("#responsecontainer").fadeOut(75).load('reload.php?randval ='+ Math.random()).fadeIn(75); $("#responsecontainer2").fadeOut(75).load('reload2.php?randv al='+ Math.random()).fadeIn(75); }, 7500);});en ar es fr de ru zhPrice of OilLight sweet crude oil-->$91.69 per barrel

I believe the web page changed a bit. Is there a fix that some one can offer? Thank you

The script I am running is attached.

[mrhappy]

This is a quick way (there may be better ways),

Dim Strdata
Dim LenStr

Sub main()

Strdata = hs.GetURL("www.quoteoil.com", "" & strZip, False, 80)

LenStr = (Instr(strData, "< strong >") + 8) - (Instr(strData, "< /strong >") - 9)

strQuote = Mid(StrData, Instr(strData, "< strong >") + 8, LenStr + 1)

Strquote = "Oil is " & strquote
system.speak "C:\program files\HomeSeer HS2\wave\ToneAnnounce.wav",False
hs.WaitSecs 1
hs.system.speak strquote
virtualdevice = "N91"
hs.SetDeviceString virtualdevice,"" & Strquote, True 

End Sub

Hopefully it works if the price goes above $100/barrel, thats the only problem I see - unless they change the page again

The board has a problem as it tries to parse the < strong > tags, please take the spaces out when you copy it into a script...

[Stuart]

This works now

[HomeTech]

YES that fixed it THANKS!!!