READ MID$() FOR〜NEXT あたりを使ってみては?