* Требуется добавить в конец файла записи вида * 4 d * 5 e * и т.д. * Автор: Raynald Levesque, 7.4.2004. DATA LIST LIST /var1(F8) var2(A1). BEGIN DATA 1 a 2 b 3 c END DATA. * Находим последнюю запись файла. COMPUTE nobreak=1. ADD FILES FILE=* /BY=nobreak /LAST=last. STRING #alpha(A26). COMPUTE #alpha="abcdefghijklmnopqrstuvwxyz". * Добавим 3 записи в конец файла (можно использовать любое число вместо 3). LOOP #cnt=1 TO 1 + 3*last . - DO IF #cnt > 1. - COMPUTE var1=var1 + 1. - COMPUTE var2=SUBSTR(#alpha,var1,1). - END IF. - XSAVE OUTFILE='c:\\temp\\extended file.sav' /DROP=nobreak last. END LOOP. EXECUTE. GET FILE='c:\\temp\\extended file.sav'. LIST.