DpClass1 のバックアップ(No.3)

node-2
program: dim thisTable
program: dim thisRowLabel
program: dim thisColumnLabel
program: dim prevTable
program: dim prevRowLabel
program: dim prevColumnLabel
program: thisPage=ex("connector", "getThisPage")
program: thisPageR=getResultPart(thisPage)
program: parseCsv(thisPageR, thisTable, thisRowLabel, thisColumnLabel)
program: preNodes=countif(thisPageR, thisRowLabel, thisColumnLabel("kind"), "=","preNode")
program: minVal=10000
program: selectedNode=0
program: selectedPath=""
program: for i=1 to preNodes
program:   ii=getindex(thisTable, thisRowLabel, thisColumnLabel("No"), "=", i)  
program:   if thisPage(ii,thisColumnLabel("kind")) = "preNode" then
program:   {
program:      prevPageUrl=thisTable(ii,thisColumnLabel("url"))
program:      prevPage=ex("connector", "getpage "+prevPageUrl)
program:      prevPageR=getResultPart(prevPage)
program:      parseCsv(prevPageR, prevTable, prevRowLabel, prevColumnLabel)
program:      ix=getindex(prevTable, prevRowLabel, prevColumnLabel("kind"),"=","nodeInfo")
program:      prevVal=prevTable(ix,prevColumnLabel("val"))
program:      arcVal=thisTable(ii,thisColumnLabel("arcVal"))
program:      xval=prevVal+arcVal
program:      thisTable(ii,thisColumnLabel("val"))=xval
program:      prevPath=prevTable(ix,prevColumnLabel("path"))
program:      thisTable(ii,thisColumnLabel("path"))=prevPath
program:      if xval<minVal then
program:      {
program:            minVal=xval
program:            selectedNode=i
program:            selectedPath=prevPath
program:      }
program:   } 
program: next i
program: ex("service","clear sendBuffer")
program: controlIndex=getindex(thisTable,thisRowLabel, thisColumnLabel("kind"),"=","control")
program: line="kind=¥"control¥" currentDevice=¥""+thisTable(controlIndex,thisColumnLable("currentDevice")+"¥""
program: line=line+", Date="+getDate()
program: ex("service","println "+line)
program: thisNodeIndex=getindex(thisTable,thisRowLabel, thisColumnLabel("kind"),"=","nodeInfo")
program: thisTable(thisNodeIndex,thisColumnLabel("selectedNode"))=selectedNode
program: thisTable(thisNodeIndex,thisColumnLabel("val"))=minVal
program: if preNodes=0 then
program: {
program:   thisTable(thisNodeIndex,thisColumnLabel("path"))=thisTable(thisNodeIndex, thisColumnLabel("nodeName"))
program: }
program: else
program: {
program:   thisTable(thisNodeIndex,thisColumnLabel("path"))=selectedPath+" - "+thisTable(thisNodeIndex, thisColumnLabel("nodeName"))
program: }
program: line="kind=¥"nodeInfo¥""
program: line=line+",nodeName=¥"+thisTable(thisNodeIndex,thisColumnLabel("nodeName"))+"¥""
program: line=line+",startNode=¥"+thisTable(thisNodeIndex,thisColumnLabel("startNode"))+"¥""
program: line=line+",selectedNode=¥"+thisTable(thisNodeIndex,thisColumnLabel("selectedNode"))+"¥""
program: line=line+",val=¥"+thisTable(thisNodeIndex,thisColumnLabel("val"))+"¥""
program: line=line+",path=¥"+thisTable(thisNodeIndex,thisColumnLabel("path"))+"¥""
program: ex("service","println "+line)
program: for i=1 to preNodes
program:   ii=getindex(thisPageR, thisRowLabel, thisColumnLabel("No"), "=", i)  
program:   if thisPageR(ii,thisColumnLabel("kind")) = "preNode" then
program:   {
program:     line="kind=¥"preNode¥""
program:     line=line+",No=¥"+thisTable(ii,thisColumnLabel("No"))+"¥""
program:     line=line+",url=¥"+thisTable(ii,thisColumnLabel("url"))+"¥""
program:     line=line+",arcVal=¥"+thisTable(ii,thisColumnLabel("arcVal"))+"¥""
program:     line=line+",val=¥"+thisTable(ii,thisColumnLabel("val"))+"¥""
program:     line=line+",path=¥"+thisTable(ii,thisColumnLabel("path"))+"¥""
program:     ex("service","println "+line)
program:  }
program: next i