1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
*(Вопрос) У меня есть строковая переменная вида "120/90".
* Мне нужно числа, разделённые "/", записать в 2 разные переменные.
* Какие будут предложения?

*(Ответ) Размещён в SPSSX-L 5.1.2002. Автор: Ray.

DATA LIST FIXED /nb 1-10 (A).
BEGIN DATA
120/90
1425/1
1/2
/3
23/
END DATA.
LIST.

* находим позицию символа "/".
COMPUTE #pos=INDEX(nb,"/").

* Разносим 2 подстроки по числовым переменным.
COMPUTE nb1=NUMBER(SUBSTR(nb,1,#pos-1),F8.0).
COMPUTE nb2=NUMBER(SUBSTR(nb,#pos+1),F8.0).
EXECUTE.