FOR X6=41 TO E;LET V1=L%X6; /* V1は行データ。このページを調べるので４３からとしています */ IF V1="=*:*" THEN BREAK;/* 見つけたらループを抜ける。Ｖ１が目的行データ */ NEXT; LET V2=FORM$(V1,3);/* 目的行データの空白を削除した文字列を得る */ MESSAGE V2; LET X1=KLEN(V2);/* Ｖ２の文字数を得る */ FOR X6=1 TO X1;/* Ｖ２の文字数だけループを回す */ IF KMID$(V2,X6,1)=":" THEN BREAK; /* Ｖ２の中で"："が見つかったらループを抜ける */ NEXT; LET X2=X6; FOR X6=X2+1 TO X1;/* 「：」の次の桁数から最後までループを回す */ IF KMID$(V2,X6,1)="年" THEN BREAK; /* 「：」以下の文字列で「年」が何桁目にあるかを求める */ NEXT; LET X3=X6; /* 同様の手法で「月」まで、「日」までの桁数を調べる。 */ FOR X6=X3+1 TO X1; IF KMID$(V2,X6,1)="月" THEN BREAK; NEXT; LET X4=X6; FOR X6=X4+1 TO X1; IF KMID$(V2,X6,1)="日" THEN BREAK; NEXT; LET X5=X6; LET V7=KMID$(V2,(X2+1),(X3-1-X2)); LET V8=KMID$(V2,(X3+1),(X4-1-X3));IF VAL(V8)<10 THEN LET V8="0"+V8; LET V9=KMID$(V2,(X4+1),(X5-1-X4));IF VAL(V9)<10 THEN LET V8="0"+V9; LET V10=V7+V8+V9; MESSAGE V10; STOP;