To scripts som logger verdier til flate tekstfiler, med tidspunktet og verdien eller statusen separert med tab. Kan da enkelt limes inn i f.eks. Excel.
LogValueToFile.vb
Sub Main(parm As Object)
Dim deviceRef As Integer = parm.ToString()
Dim out As String = Now.ToShortDateString & " " & Now.ToLongTimeString & vbTab & hs.DeviceValueEx(deviceRef).ToString("f1")
Try
My.Computer.FileSystem.WriteAllText(hs.GetAppPath & "\Log