この関数を追加して 12行めは下記のようにする S$=FORMAT$("GRP%D:%S",S,TRIM(A[J*4+S]))