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
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