Please discuss the Snevl Weather Warnings (Senvl_WW) package in this thread. The ZIP of the entire package is posted in the Script Library thread here: http://board.homeseer.com/showthread.php?t=147339 .
Steve
Steve
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
sub main() dim s s=RemoveHTML(hs.DeviceString("A72")) Set LEDAM = hs.GetPlugins("LEDAM") 'need to fix the html coding and remove it from the string below LEDAM.SendMessage "WX1", "Weather warning 1 " & s , "start", 60, 4, 5, 1 'LEDAM.SendMessage "WX warning 1", "Weather warning 2 " &s , "start", 15, 4, 5, 0 end sub Function RemoveHTML(strText) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True RemoveHTML = RegEx.Replace(strText, ".") End Function
LEDAM.SendMessage "WX1", "Weather warning 1 " & s , "start", 60, 4, 5, 1
Comment