* Макрос для удаления перечня файлов. * Размещено в SPSSX-L 11.02.2004. Автор: Raynald Levesque. * Создадим сначала несколько файлов для примера. DATA LIST LIST /a. BEGIN DATA 1 END DATA. SAVE OUTFILE='c:\\temp\\part1.sav'. SAVE OUTFILE='c:\\temp\\part2.sav'. SAVE OUTFILE='c:\\temp\\share table.sav'. SAVE OUTFILE='c:\\temp\\part3.sav'. * Определим макрос для удаления файлов по списку. DEFINE !dump (vlist = !ENCLOSE('(',')')). !DO !z !IN (!vlist) ERASE FILE = !QUOTE(!CONCAT("C:\\temp\\",!UNQUOTE(!z),".sav")). !DOEND !ENDDEFINE. NEW FILE. SET MPRINT=yes. !dump VLIST (part1 part2 'share table' part3). SET MPRINT=no.