Nick
If there are always spaces between each category you might try something like this:
for lcnt=1 to occurs(' ',' '+alltrim(col7))
ltype=substR(' '+alltrim(col7),at(' ',' '+alltrim(col7),lcnt)+1)
ltype=left(ltype,at(' ',ltype+' ')-1)
lcolumn='col'+alltrim(str(occurs(' ',;
left(' '+alltrim(col7),at(ltype,' '+alltrim(col7)))))
lvalue=eval(lcolumn)
...some code to save the info
endfor
Make sure to get rid of any double spaces first.
HTH