* Чтение текстовых файлов, в которых надо пропустить n столбцов. * (число n может меняться от файла к файлу). *(Вопрос) >Я составляю программу импорта данных в SPSS, которая будет исполняться >на разных файлах данных. Они практически идентичны за тем исключением, >что число столбцов, которые требуется пропустить (не импортировать), различно в разных файлах. >В остальном файлы идентичны.. > >Я бы хотел составить программу, где пользователю надо было бы указать в начале >число столбцов, которые следует пропустить (т.е. начальную позицию) чтения, а остальное >бы чтобы сделала программа. Тут я вижу две проблемы: >a) не ясно, как указать начальную позицию чтения и b) не ясно, как сделать так, чтобы >программа сама адаптировалась к начальной позиции и вычислила номер последнего столбца, который следует >прочитать. Если бы вы сделали так, чтобы пример программы, которая приведена ниже, заработал, >думаю, дальше я бы сам справился. > >В примере программы ниже я пытаюсь передать значение 6 из макроса (DEFINE) в команду DATA LIST. >Затем, уже в DATA LIST, пытаюсь скорректировать это значение ,чтобы получить координаты последнего >столбца для чтения. Разумеется, этот вариант не работает. Я открыт для всех предложений. > > >*********** Со стыдом привожу сей неработающий вариант... >new file. >define !start ()'6'!enddefine. >DATA LIST /Age 1-2 SEX 4 (A) bday !start - (!start + 5). >BEGIN DATA >28 M 25000 >26 F 28500 >25 M 30000 >END DATA. >LIST. *(Ответ) Размещено в новостной группе SPSS 5.2.2002. Автор: Raynald Levesque. * http://www.spsstools.net. * Следующий синтаксис решает вашу задачу:. new file. set mprint=no. define !dlist(col=!TOKENS(1)) !LET !endcol=!LENGTH(!CONCAT(!BLANK(!col),!BLANK(5))) DATA LIST /Age 1-2 SEX 4 (A) bday !col - !endcol. !enddefine. set mprint=yes. !dlist col=6. BEGIN DATA 28 M 25000 26 F 28500 25 M 30000 END DATA. LIST. ***********. * ОДНАКО этот вариант будет довольно неудобен, если после переменной bday у вас в файле есть ещё много переменных. * Думаю, следующее решение будет ПРОЩЕ: DATA LIST FIXED /col1 TO col20 1-20 (A). BEGIN DATA 28 M xxx25000 26 F xxx28500 25 M xxx30000 END DATA. LIST. * Число 9 в следующей строке вы меняете в зависимости от вашего файла. WRITE OUTFILE='c:\\temp\\data.txt' /col1 TO col5 col9 TO col20. EXECUTE. * А следующая строка уже не зависит от конкретного файла. DATA LIST FILE='c:\\temp\\data.txt' FIXED /Age 1-2 SEX 4 (A) bday 6 - 11. LIST.