|
|
> No.3972[元記事へ]
NANOさんへのお返事です。
> FOR i=1 TO 3
> PRINT #1:i;
> PRINT #1:X;
> FOR j=1 TO 4
> PRINT #1:A(I,J);
> NEXT j
> PRINT
> NEXT i
>
> 上のプログラムを実行すると、
>
> 1,100,5,3,6,8
> 2,300,6,1,6,9
> 3,500,9,1,2,8
>
> といった形で出力されます。
>
> これを内部形式ファイルへの出力におけるWRITE文でも同じように出力することは可能でしょうか？
以下のようなことでよろしいのでしょうか?
DIM A(3,4),X(3)
MAT READ A
DATA 5,3,6,8
DATA 6,1,6,9
DATA 9,1,2,8
MAT READ X
DATA 100,300,500
OPEN #1:NAME "sample.txt",RECTYPE INTERNAL
ERASE #1
FOR I=1 TO 3
WRITE #1:I,
WRITE #1:X(I),
FOR J=1 TO 3
WRITE #1:A(I,J),
NEXT J
WRITE #1:A(I,4)
NEXT I
CLOSE #1
END
|
|