|
投稿者：NANO
投稿日：2016年 2月 5日(金)16時36分44秒
|
|
|
|
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文でも同じように出力することは可能でしょうか？
|
|
|
|
投稿者：しばっち
投稿日：2016年 2月 5日(金)22時15分3秒
|
|
|
|
> 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
|
|
|
|
投稿者：NANO
投稿日：2016年 2月 8日(月)11時13分47秒
|
|
|
|
> No.3973[元記事へ]
しばっちさんへのお返事です。
> 以下のようなことでよろしいのでしょうか?
>
> 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
>
遅い返事になってしまって申し訳ありません。
,の使い方がよくわかっていませんでした…
本当に助かりました！ありがとうございました！
|
|
|
戻る