|
|
2つのファイルを1つに合体させたり、後の部分からファイルを取り出したりします。
手前のファイル(ダミー用)とその後のファイル(隠蔽用)を用意します。
合体させる場合、保存ファイルの拡張子はダミーファイルと同じにします。
取り出す場合は、手前のファイルのサイズ(byte)が必要です。
OPTION CHARACTER BYTE
INPUT PROMPT "ファイル合体(1) or ファイル取出(2) ":SW
SELECT CASE SW
CASE 1
FILE GETOPENNAME F$,"ダミーファイル|*.*"
IF F$="" THEN STOP
FILE GETOPENNAME G$,"隠蔽ファイル|*.*"
IF G$="" THEN STOP
FILE GETSAVENAME N$,"保存ファイル|*.*"
IF N$="" THEN STOP
OPEN #1:NAME F$
OPEN #2:NAME G$
OPEN #3:NAME N$
DO
CHARACTER INPUT #1,IF MISSING THEN EXIT DO:A$
PRINT #3:A$;
LOOP
DO
CHARACTER INPUT #2,IF MISSING THEN EXIT DO:A$
PRINT #3:A$;
LOOP
CLOSE #1
CLOSE #2
CLOSE #3
CASE 2
FILE GETOPENNAME F$,"分離ファイル|*.*"
IF F$="" THEN STOP
FILE GETSAVENAME N$,"保存ファイル|*.*"
IF N$="" THEN STOP
INPUT PROMPT "空読みサイズ(Byte)=":SIZE
OPEN #1:NAME F$
OPEN #2:NAME N$
FOR I=1 TO SIZE
CHARACTER INPUT #1:A$
NEXT I
DO
CHARACTER INPUT #1,IF MISSING THEN EXIT DO:A$
PRINT #2:A$;
LOOP
CLOSE #1
CLOSE #2
CASE ELSE
END SELECT
END
|
|