1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
*ВОПРОС: Как проверить через синтаксис существование файла?

*ОТВЕТ: размещён в новостной группе SPSS, автор: rlevesque@videotron.ca, 15.05.2001.

* Во-первых, сохраните следующие строки в файл "c:\\temp\\isfile.sps".
*------------ Начало файла "c:\\temp\\isfile.sps".
GET FILE='d:\\temp\\mydatafile.sav'.
* замените путь в команде выше путём к тому файлу, наличие которого хотите проверить.
DEFINE !isfile()'yes'!ENDDEFINE.
*------------ Конец файла "c:\\temp\\isfile.sps".


********************.
* Когда первый раз мы выполним этот синтаксис, файла 'd:\\temp\\mydatafile.sav' не будет.
********************.
DATA LIST LIST /dummy.
BEGIN DATA
1
END DATA.

DEFINE !isfile()'no'!ENDDEFINE.

INCLUDE 'c:\\temp\\isfile.sps'.

STRING mydata(A14).
DO IF !isfile='yes'.
* Файл существует.
COMPUTE mydata="есть".
ELSE.
* Файл не существует.
COMPUTE mydata="нет".
END IF.
EXECUTE.

********************.
* А теперь - создадим этот файл перед запуском синтаксиса чтобы убедиться, что тот работает.
********************.
DATA LIST LIST /dummy.
BEGIN DATA
1
END DATA.

SAVE OUTFILE='d:\\temp\\mydatafile.sav'.
DEFINE !isfile()'no'!ENDDEFINE.

INCLUDE 'c:\\temp\\isfile.sps'.

STRING mydata(A14).

DO IF !isfile='yes'.
* Файл существует.
COMPUTE mydata="есть".
ELSE.
* Файл не существует.
COMPUTE mydata="нет".
END IF.
EXECUTE.