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
*(Вопрос) Как автоматически удалить символы подчёркивания в именах переменных?.

*(Ответ) Размещен в SPSSX-L, автор: Raynald Levesque, 12.06.2002.
* http://www.spsstools.net.

*GET FILE='c:\\1991\\data\\mf1991.sav'.
DATA LIST LIST / id var__1 abc_ a_b_c_d.
BEGIN DATA 
1 1 1 1
END DATA.

SAVE OUTFILE= 'c:\\temp\\tempx.sav'.
* Следующая команда полезна, если вы работаете с большим файлом данных.
N OF CASES 1.
flip.

string newname(a8).
COMPUTE newname=case_lbl.
LOOP IF INDEX(newname,'_')>0 .
+	COMPUTE #I = INDEX(newname,'_') .
+	COMPUTE newname=CONCAT(SUBSTR(newname,1,#I-1),SUBSTR(newname,#I+1)).
END LOOP .

DO IF case_lbl<>newname.
WRITE OUTFILE='c:\\temp\\undersco.sps' /'RENAME VARIABLE ('case_lbl'='newname').'.
END IF.

exe.

get file ='c:\\temp\\tempx.sav'.

include 'c:\\temp\\undersco.sps'.

*SAVE OUTFILE= 'c:\\1991\\data\\MF1991b.sav'.