1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
* Как на автомате сохранить несколько файлов с последовательной нумерацией.
* Например, file1, file2, file3, и т.д.
* Суть решения находится в строке "save out".

DEFINE !Chart (!POS !CMDEND).
!LET !x=!NULL
!DO !vari !IN (!1).
!LET !x=!CONCAT(!x,"x")
compute NEWVAR=SQRT(!varI).
save out=!CONCAT("TEMP",!LENGTH(!x),".sav") / KEEP !vari newvar . !DOEND.
!ENDDEFINE.

!Chart A B C D .

*Автор: David Marso.
*Консультант SPSS.