* Две строковых переменных (problem и race) содержат переменное число значений, * разделённых запятыми. Как мне разобрать эти значения по отдельным переменным?. * Ответ размещён в конференции usenet. Автор: rlevesque@videotron.ca. * Модель данных. DATA LIST LIST /problem(A12) race(A12). BEGIN DATA '1,2' '4,5' '10,11,3,15' '5' END DATA. LIST. * Определяем рабочий макрос. DEFINE !parse (var=!TOKENS(1) /nbval=!TOKENS(1)) COMPUTE !var=CONCAT(RTRIM(!var),','). STRING #str(A8). VECTOR !var (!nbval F8.0). 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)=NUMBER(SUBSTR(#str,1,#end),F8.0). +COMPUTE #beg=#beg+#end+1. END LOOP IF #end=-1. EXECUTE. !ENDDEFINE. * Теперь вызываем макрос. !parse var=problem nbval=5. !parse var=race nbval=4.