Разбор множественных ответов в виде букв, разделённых запятыми

 

Загрузить как .sps Показать простым текстом

 

 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
58
59
* Две строковых переменных (problem и race) содержат варианты ответов через запятую.
Как можно разобрать эту информацию по разным переменным?.

*(Ответ) Автор: Raynald Levesque, 22.03.2002.

* Пример файла данных.
DATA LIST LIST /sex(F1.0) str(A20).
BEGIN DATA
1,"A" 
2,"A,B,C,D"
1,"A,C,E,F,J,K,L,P" 
1,"F,J,K"
END DATA.
LIST.

SET MPRINT=no.
* Определим рабочий макрос.
*///////////////////.
DEFINE !parse (var=!TOKENS(1) /nbval=!TOKENS(1))
COMPUTE !var=CONCAT(RTRIM(!var),',').
STRING #str(A8).
VECTOR !var (!nbval A3).
COMPUTE #beg=1.
LOOP #cnt=1 TO !nbval.
+COMPUTE #str=SUBSTR(!var,#beg).
+COMPUTE #end=INDEX(#str,',')-1.
+DO IF #end=-1.
+ BREAK.
+END IF.
+COMPUTE !var(#cnt)=SUBSTR(#str,1,#end).
+COMPUTE #beg=#beg+#end+1.
END LOOP IF #end=-1.
EXECUTE.
!ENDDEFINE.
*///////////////////.

SET MPRINT=yes.
* Вызовем макрос.
!parse var=str nbval=10.
SET MPRINT=no.

* Чтобы узнать, сколько записей содержат одновременно A и C, например:.
STRING str11(A3).
IF (INDEX(str,'A')>0 & INDEX(str,'C')>0) str11='AC'.

* Построим таблицу частот.
TABLES
  /FORMAT BLANK MISSING('')  /MRGROUP  $resp  str1 TO str11
  /GBASE=CASES
  /TABLE=$resp.

*Построим перекрёстную таблицу множественного ответа и переменной sex.
* Таблицы множественных ответов.
*(первая строка содержит частоту пустой категории - А.Б.)
TABLES
  /FORMAT BLANK  MISSING('') /MRGROUP  $str  str1 str10 str11 str2 str3 str4
  str5 str6 str7 str8 str9
  /GBASE=CASES
  /TABLE=$str BY sex.
Related pages

...

Navigate from here