/* ВОПРОС: для импорта в некоторую программу мне надо конвертировать файл SPSS в ASCII-файл, где столбцы разделены запятой и пробелом. Кроме этого, для каждого покупателя первая строка в файле должна содержать его номер (Buoy_ID), а последняя строка - слово "End". */. * ОТВЕТ. Автор: rlevesque@videotron.ca. DATA LIST LIST /Buoy_ID Buoy_Obs Lat Long. BEGIN DATA 1 1 1 1.234 1 2 2 22.3561 1 3 3 3 2215 10.2521 4 4 2215 2 5 5 2215 3 625.3265 6 2215 4 7 7 END DATA. LIST. * Если файл ещё не отсортирован по переменной Buoy_ID, снимите комментарий (*) со следующей строки. *SORT CASES BY Buoy_ID. MATCH FILES FILE=* /BY Buoy_ID /FIRST=first /LAST=last. STRING outvar(A80). * Используйте свой формат записи: измените числа 10, 8 и 4 в следующей строке так, как вам нужно. COMPUTE outvar=CONCAT(LTRIM(STRING(Buoy_Obs,F10.0)),", ",LTRIM(RTRIM(STRING(Lat,F8.4))),", ",LTRIM(STRING(Long,F8.4))). VECTOR d(3F8.0). DO IF first. WRITE OUTFILE='c:\\temp\\tmp.txt' TABLE/ Buoy_ID. WRITE OUTFILE='c:\\temp\\tmp.txt' TABLE/ outvar. ELSE IF ~last. WRITE OUTFILE='c:\\temp\\tmp.txt' TABLE/ outvar. ELSE IF last. WRITE OUTFILE='c:\\temp\\tmp.txt' TABLE/ outvar. WRITE OUTFILE='c:\\temp\\tmp.txt' TABLE/ "End". END IF. EXECUTE.