!バイナリーのコピーと照合テスト。

!バイナリーのコピーと照合テスト。
!----------------------------------------------

!十進BASIC のヘルプファイル( 154KB バイナリーです。)を、コピーしてみる。

!※ヘルプファイルは、閉じておかないと、読込みの、ＯＰＥＮが、出来ないようです。

LET COPY元$="basic.chm"
LET COPY先$="test.chm"
LET BAT000$="test.bat" ! 照合するときの作業ファイル

!ご注意！ファイル名の前に何も書かない場合、
!　　　　起動したファイル( BASIC.EXE、又は ??.BAS) と同じフォルダー内に、読み書き。

!-------
PRINT "読込み中です。← ";COPY元$
OPEN #1: NAME COPY元$, ACCESS INPUT
LET w9$=""
LET s99=0

LET A$=""
DO
CALL readb(100000) ! 8 秒(98SE 500MHz) 2 秒(winXP 1.7GHz)
!CALL readCI(100000) ! 66 秒(98SE 500MHz) 38 秒(winXP 1.7GHz) CHRACTER INPUT での読込み。
LET A$=A$&db$
LOOP UNTIL db$=""
CLOSE #1

!-------
PRINT "書込み中です。→ ";COPY先$
OPEN #1: NAME COPY先$
ERASE #1
PRINT #1:A$;
CLOSE #1
PRINT "コピーしました。";COPY元$;" → ";COPY先$

!-------
PRINT "DOS で、照合。 FC.exe /b ";COPY元$;" ";COPY先$
OPEN #1: NAME BAT000$
ERASE #1
PRINT #1:"fc/b "+COPY元$+" "+COPY先$
PRINT #1:"pause"
CLOSE #1
Execute BAT000$

!-------
! FILE DELETE BAT000$
PRINT "終了。"

!-------　read binary
SUB readCI(cx) !　cx=bytes size
OPTION CHARACTER BYTE
LET db$=""
FOR i=1 TO cx
CHARACTER INPUT #1,IF MISSING THEN EXIT SUB :w9$
LET db$=db$ &w9$
NEXT i
END SUB

!-------　read binary
SUB readb(cx) !　cx=bytes size
OPTION CHARACTER BYTE
SET #1: ENDOFLINE CHR$(13)
ASK #1: FILESIZE s9
LET db$=""
DO
LET w9=LEN(w9$)-cx
IF 0=<w9 THEN
LET db$=db$ &left$(w9$,cx)
LET s99=s99+cx
LET w9$=right$(w9$,w9)
EXIT SUB
END IF
LET db$=db$ &w9$
LET s99=s99+LEN(w9$)
LET w9$=""
LET cx=-w9
LINE INPUT #1,IF MISSING THEN EXIT DO :w9$
IF s99+LEN(w9$)<s9 THEN LET w9$=w9$ &CHR$(13)
LOOP
END SUB

END

Re: !細部の調整。修正。	返事を書くノートメニュー
SECOND <cszcthjjdj> 2007/11/19 06:17:51 ** この記事は2回修正されてます
!バイナリーのコピーと照合テスト。 !---------------------------------------------- !十進BASIC のヘルプファイル( 154KB バイナリーです。)を、コピーしてみる。 !※ヘルプファイルは、閉じておかないと、読込みの、ＯＰＥＮが、出来ないようです。 LET COPY元$="basic.chm" LET COPY先$="test.chm" LET BAT000$="test.bat" ! 照合するときの作業ファイル !ご注意！ファイル名の前に何も書かない場合、 !　　　　起動したファイル( BASIC.EXE、又は ??.BAS) と同じフォルダー内に、読み書き。 !------- PRINT "読込み中です。← ";COPY元$ OPEN #1: NAME COPY元$, ACCESS INPUT LET w9$="" LET s99=0 LET A$="" DO CALL readb(100000) ! 8 秒(98SE 500MHz) 2 秒(winXP 1.7GHz) !CALL readCI(100000) ! 66 秒(98SE 500MHz) 38 秒(winXP 1.7GHz) CHRACTER INPUT での読込み。 LET A$=A$&db$ LOOP UNTIL db$="" CLOSE #1 !------- PRINT "書込み中です。→ ";COPY先$ OPEN #1: NAME COPY先$ ERASE #1 PRINT #1:A$; CLOSE #1 PRINT "コピーしました。";COPY元$;" → ";COPY先$ !------- PRINT "DOS で、照合。 FC.exe /b ";COPY元$;" ";COPY先$ OPEN #1: NAME BAT000$ ERASE #1 PRINT #1:"fc/b "+COPY元$+" "+COPY先$ PRINT #1:"pause" CLOSE #1 Execute BAT000$ !------- ! FILE DELETE BAT000$ PRINT "終了。" !-------　read binary SUB readCI(cx) !　cx=bytes size OPTION CHARACTER BYTE LET db$="" FOR i=1 TO cx CHARACTER INPUT #1,IF MISSING THEN EXIT SUB :w9$ LET db$=db$ &w9$ NEXT i END SUB !-------　read binary SUB readb(cx) !　cx=bytes size OPTION CHARACTER BYTE SET #1: ENDOFLINE CHR$(13) ASK #1: FILESIZE s9 LET db$="" DO LET w9=LEN(w9$)-cx IF 0=<w9 THEN LET db$=db$ &left$(w9$,cx) LET s99=s99+cx LET w9$=right$(w9$,w9) EXIT SUB END IF LET db$=db$ &w9$ LET s99=s99+LEN(w9$) LET w9$="" LET cx=-w9 LINE INPUT #1,IF MISSING THEN EXIT DO :w9$ IF s99+LEN(w9$)<s9 THEN LET w9$=w9$ &CHR$(13) LOOP END SUB END