Code: Select all
sub main ()
'Get Data from Virtual Weather Station for use with Homeseer
dim f, fs
dim data1, day,month,year,hour,minute,temperature,humidity,dewpoint,barometer,windspeed,gustspeed,direction,rainlastmin,dailyrain,monthlyrain,yearlyrain,heatindex,tempvalue
Set fs=CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile("C:\Program Files\HomeSeer\html\Weather\vws\data.csv")
Do While NOT f.AtEndOfStream
data1 = f.ReadLine
Loop
f.close
day=hs.StringItem(data1,4,",")
month=hs.StringItem(data1,3,",")
year=hs.StringItem(data1,2,",")
hour=hs.StringItem(data1,5,",")
minute=hs.StringItem(data1,6,",")
temperature=hs.StringItem(data1,14,",")
humidity=hs.StringItem(data1,12,",")
dewpoint=hs.StringItem(data1,32,",")
barometer=hs.StringItem(data1,15,",")
windspeed=hs.StringItem(data1,8,",")
gustspeed=hs.StringItem(data1,9,",")
direction=hs.StringItem(data1,10,",")
rainlastmin=hs.StringItem(data1,18,",")
dailyrain=hs.StringItem(data1,17,",")
monthlyrain=hs.StringItem(data1,15,",")
yearlyrain=hs.StringItem(data1,16,",")
heatindex=hs.StringItem(data1,31,",")
windchill=hs.StringItem(data1,29,",")
tempvalue=hs.devicevalue ("W1")
hs.setdevicestring "w1",temperature & " degrees fahrenheit",true
hs.setdevicevalue "w1",temperature
hs.setdevicestring "w2",humidity & " %",true
hs.setdevicevalue "w2",humidity
hs.setdevicestring "w3",barometer & " inches",true
hs.setdevicestring "w4",windspeed & " miles per hour",true
hs.setdevicevalue "w4",windspeed
hs.setdevicestring "w5",gustspeed & " miles per hour",true
hs.setdevicevalue "w5",gustspeed
hs.setdevicestring "w6",direction & " degrees",true
hs.setdevicestring "w7",rainlastmin & " inches",true
hs.setdevicevalue "w7",rainlastmin
hs.setdevicestring "w8",dailyrain & " inches",true
hs.setdevicestring "w10",yearlyrain & " inches",true
hs.setdevicestring "w14",heatindex & " degrees fahrenheit",true
hs.setdevicevalue "w14",heatindex
hs.setdevicestring "w13",hour & ":" & minute,true
hs.setdevicestring "w15",dewpoint & " degrees fahrenheit",true
hs.setdevicevalue "w15",dewpoint
hs.setdevicestring "w17",windchill & " degrees fahrenheit",true
hs.setdevicevalue "w17",windchill
end subCode: Select all
Const destination_device = "%6"
Sub Main(Optional ByVal dummy As String = "")
dim name_dev As String = hs.GetIniSetting("Devices","CID_name_device1","XX","NCID.ini")
dim num_dev As String = hs.GetIniSetting("Devices","CID_number_device1","XX","NCID.ini")
dim new_name As String
dim new_num As String
dim section_items() as String
dim times() as String
dim names() as String
dim nums() as String
dim section as String
dim I as Integer
Dim dev_string as String = ""
' Get the most recent call
new_name = hs.DeviceString(name_dev)
new_num = hs.DeviceString(num_dev)
' Get the current list of calls from the INI file
section = hs.GetIniSection("last_10_calls","RienCallers.ini")
' Clear it out so we can re-write it
hs.ClearIniSection("last_10_calls","RienCallers.ini")
' Put the new call in the list first
hs.SaveIniSetting("last_10_calls",DateTime.Now.ToString("G"),new_name & "|" & new_num,"RienCallers.ini")
' Parse out and re-write the next most recent calls, up to 9
if section <> "" then
section_items = Split(section,chr(0))
For I = 0 to UBound(section_items)
dim name_and_num As String
dim the_time As String
the_time = hs.StringItem(section_items(I),1,"=")
name_and_num = hs.StringItem(section_items(I),2,"=")
hs.SaveIniSetting("last_10_calls",the_time,name_and_num,"RienCallers.ini")
If I = 8 Then
Exit For
End If
Next
End If
' Now read the calls back end, and send them to a device (or whatever)
section = hs.GetIniSection("last_10_calls","RienCallers.ini")
section_items = Split(section,chr(0))
' This loop is on each call in the list, up to the most recent 10
' Each time through the loop is one call, with the newest one read first
For I=0 to UBound(section_items)
Dim name_and_num As String
Dim the_date_time As String
Dim the_date As String
Dim the_time As String
Dim the_name As String
Dim the_num As String
Dim my_DateTime As DateTime
the_date_time = hs.StringItem(section_items(I),1,"=")
my_DateTime = DateTime.Parse(the_date_time)
the_date = my_DateTime.ToString("d")
the_time = my_DateTime.ToString("HH:mm:ss")
name_and_num = hs.StringItem(section_items(I),2,"=")
the_name = hs.StringItem(name_and_num,1,"|")
the_num = hs.StringItem(name_and_num,2,"|")
' Now we have the time, name, and number for the call
dev_string = dev_string & the_name & " (" & the_num & ") " & the_date & " " & the_time & vbCrLf
Next
hs.SetDeviceString(destination_device,dev_string)
End Sub
