自分で書いといてアレだけど ※WHILE-WENDの外はそのままで良い 　WHILE LEN(SAVE$) 　　S$=SHIFT(SAVE$) 　　IF S$=="," THEN BREAK 　　INC NAME$,S$ 　WEND こんな感じで短縮できるのでサイズが気になる場合はどうぞ