folder = "C:\tmp\Calc\"
file = "C:\tmp\Smzu_calc.csv"

set tblGen = Rastr.Tables("Generator")
set numCol = tblGen.Cols("Num")
set pgCol = tblGen.Cols("P")
set stateCol = tblGen.Cols("sta")

set fso = CreateObject("Scripting.FileSystemObject")
set csvFile = fso.CreateTextFile(file, True)

For p=1 to 24
  File_name="mdp_debug_"& p
  FN=folder & File_name
  Rastr.Load  1, FN,""
  Rastr.rgm ("")
  kod=Rastr.rgm("")
  if kod<>0 then
     Rastr.printp "–ежим не сбалансирован"
  else
      For i = 1 to 459
        'Rastr.printp i
         num=Rastr.Calc("sum","Generator","Num","Num="&i)
         pg=Rastr.Calc("sum","Generator","P","Num="&i)
         st=Rastr.Calc("sum","Generator","sta","Num="&i)
         k = p & ";" & i & ";" & st & ";" & pg
         Rastr.printp k
         csvFile.WriteLine(k)
      next
  end if
next

csvFile.Close