* Разбор строки со значениями, разделёнными слешами ("/"). * Автор: Raynald Levesque. DATA LIST LIST /a(A70). BEGIN DATA C206/E2101254/F210 E206/ABCDP206/ZF210/G210/X210 END DATA. LIST. STRING #(A70). VECTOR b(5A10). COMPUTE #=CONCAT(RTRIM(a),'/'). COMPUTE #cnt=1. LOOP IF INDEX(#,'/')>0. COMPUTE b(#cnt)=SUBSTR(#,1,INDEX(#,'/')-1). COMPUTE #cnt=#cnt + 1. COMPUTE #=SUBSTR(#,INDEX(#,'/')+1). END LOOP. EXECUTE.