daily
command: set readInterval=3600000
command: program daily
program: dim dataTable
program: dim columnLabel
program: dim rowLabel
program: output=""
program: url="http://www.yama-lab.org/adk-wiki-1/index.php?pir-1-"
program: for i=0 to 1
program: page=ex("connector" , "getpage "+url+i)
program: rpart=getResultPart(page)
program: ex("service","println "+rpart)
program: parseCsv(rpart,dataTable,rowLabel,columnLabel)
program: y0=sumif(dataTable,rowLabel,columnLabel("device"),"=","a-0",columnLabel("sdv"))
program: c0=countif(dataTable,rowLabel,columnLabel("device"),"=","a-0")
program: ave0=1.0*y0/c0
program: dataline="device=a-0, Date="+dataTable(0,columnLabel("Date"))+",ave="+ave0
program: ex("service","println "+dataline)
program: ex("service","putSendBuffer "+dataline)
program: y1=sumif(dataTable,rowLabel,columnLabel("device"),"=","a-1",columnLabel("v"))
program: c1=countif(dataTable,rowLabel,columnLabel("device"),"=","a-1")
program: ave1=1.0*y1/c1
program: dataline="device=a-1, Date="+dataTable(0,columnLabel("Date"))+",ave="+ave1
program: ex("service","println "+dataline)
program: ex("service","putSendBuffer "+dataline)
program: y2=sumif(dataTable,rowLabel,columnLabel("device"),"=","a-2",columnLabel("v"))
program: c2=countif(dataTable,rowLabel,columnLabel("device"),"=","a-2")
program: ave2=1.0*y2/c2
program: dataline="device=a-2, Date="+dataTable(0,columnLabel("Date"))+",ave="+ave2
program: ex("service","println "+dataline)
program: ex("service","putSendBuffer "+dataline)
program: ex("service","sendResults.")
program: next i
program: ' ex("service","sendResults.")
command: end daily
command: set pageName="daily-1-<day>"
command: set result=""
command: run daily
result:
device=a-0, Date=2013/3/22/ 23:41:24,ave=33.278748260028145
device=a-1, Date=2013/3/22/ 23:41:24,ave=291.625
device=a-2, Date=2013/3/22/ 23:41:24,ave=284.1333333333333
device=a-0, Date=2013/3/23/ 0:41:24,ave=33.18264069855129
device=a-1, Date=2013/3/23/ 0:41:24,ave=279.4375
device=a-2, Date=2013/3/23/ 0:41:24,ave=282.625