1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
* Пример того, как можно вызвать через макрос несколько (или несколько сот) разных файлов
 синтаксиса.
* Размещено 10.04.2002 в новостной группе SPSS. Автор: Ray.
* http://www.spsstools.net.

SET MPRINT=no.

*//////////////////////.
DEFINE !runall (stem=!TOKENS(1) /nb=!TOKENS(1))

!DO !cnt=1 !TO !nb

!LET !c1=!LENGTH(!SUBSTR(!stem,!LEN(!CONCAT(!cnt," "))))
/* stem1 - эта та часть имени, которую хотим сохранить для вызова очередного файла */
!LET !stem1=!SUBSTR(!stem,1,!c1)
INCLUDE !QUOTE(!CONCAT('c:\\path\\',!stem1,!cnt,'.sps.')).
!DOEND
!ENDDEFINE.
*//////////////////////.

* Покажем, как макрос может сгенерировать вызов, скажем, 12 файлов синтаксиса.
SET MPRINT=yes.
!runall stem=question0000 nb=12.