!ファイル末尾に0Dhがある時、抜けるバグの...

!ファイル末尾に 0Dh がある時、抜けるバグの修正。
!----------------------------------------------
!十進BASIC で、バイナリー・ファイルを、扱いたい方へ
!CHARACTER INPUT を用いる方法が、目次→ファイル→CHARACTER INPUT にありますので、

!LINE INPUT で、読む方法です。(１回のサイズが32KBくらいになると、４～５倍速さが違う。)

!試験用のバイナリーファイルを作る。
!-------
LET file$="test.bin" !　パス名を決める。

!ファイル名の前に何も書かない場合、
!起動したファイル( BASIC.EXE、又は ??.BAS) と同じフォルダーに作られます。

!-------　write binary
OPEN #1: NAME file$
ERASE #1
OPTION CHARACTER BYTE !　目次→文字列→漢字。目次→ファイル→CHARACTER INPUT
FOR w=0 TO BVAL("10D",16)
PRINT #1: CHR$( MOD(w,256) ); !　００ｈ～０ｆｆｈの通しデータ－２５６＋１３バイト。
NEXT w
CLOSE #1

!試験用のバイナリーファイルを、正しく読めるか確かめる。

!-------　ダンプ・リスト
OPEN #1: NAME file$, ACCESS INPUT
PRINT "Dump list"
FOR adr=0 TO BVAL("110",16) STEP 16
CALL readb(16)
LET ww$=right$("000"&BSTR$(adr,16),4)&" "
FOR w=1 TO LEN(db$)
LET ww$=ww$ &" "&right$("0"&BSTR$(ORD( db$(w:w) ),16),2)
NEXT w
LET ww$=ww$ &REPEAT$(" ",55-LEN(ww$))
FOR w=1 TO LEN(db$)
IF " "<=db$(w:w) THEN LET ww$=ww$ &db$(w:w) ELSE LET ww$=ww$ &"."
NEXT w
PRINT ww$ !　１行まとめて書く。テキスト画面のピカつき減少、高速。
NEXT adr
CLOSE #1

!-------　read binary
SUB readb(cx) !　cx=bytes size
OPTION CHARACTER BYTE !　目次→文字列→漢字。目次→ファイル→CHARACTER INPUT
SET #1: ENDOFLINE CHR$(13) !　目次→ファイル→独自の拡張
LET db$=""
DO
LET w9=LEN(w9$)-cx
IF 0=<w9 THEN
LET db$=db$ &left$(w9$,cx)
LET w99=w99+cx
LET w9$=right$(w9$,w9)
EXIT SUB
END IF
LET db$=db$ &w9$
LET w99=w99+LEN(w9$)
LET w9$=""
LET cx=-w9
LINE INPUT #1,IF MISSING THEN EXIT DO :w9$ !　ＥＯＦで、空""の場合 →EXIT DO →w9$ 不変。
ASK #1: POINTER s9$ !　目次→ファイル→その他のSET文とASK文。(参照：目次→ファイル→SET POINTER)
IF s9$<>"END" THEN LET w9$=w9$ &CHR$(13)
LOOP
ASK #1: FILESIZE w9 !　目次→ファイル→独自の拡張
IF w99+1=w9 THEN LET db$=db$ &CHR$(13)
LET w99=0
END SUB

END

!　SET #1: ENDOFLINE で、行末２バイト指定した場合、
!　CHR$(13)&CHR$(10) を指定しても CHR$(13)&CHR$(?) となり、２バイト目は不明で失われる。
!　CHR$(10)&CHR$(13) を指定しても CHR$(10)&CHR$(?) となり、２バイト目は不明で失われる。
!　の不都合があります。
!　CHR$(13)、１つを指定すれば、失われても補足できる。

Re: !十進BASIC で、バイナリー・ファイルを、扱いたい方へ	返事を書くノートメニュー
SECOND <cszcthjjdj> 2007/11/18 09:57:34 ** この記事は1回修正されてます
!ファイル末尾に 0Dh がある時、抜けるバグの修正。 !---------------------------------------------- !十進BASIC で、バイナリー・ファイルを、扱いたい方へ !CHARACTER INPUT を用いる方法が、目次→ファイル→CHARACTER INPUT にありますので、 !LINE INPUT で、読む方法です。(１回のサイズが32KBくらいになると、４～５倍速さが違う。) !試験用のバイナリーファイルを作る。 !------- LET file$="test.bin" !　パス名を決める。 !ファイル名の前に何も書かない場合、 !起動したファイル( BASIC.EXE、又は ??.BAS) と同じフォルダーに作られます。 !-------　write binary OPEN #1: NAME file$ ERASE #1 OPTION CHARACTER BYTE !　目次→文字列→漢字。目次→ファイル→CHARACTER INPUT FOR w=0 TO BVAL("10D",16) PRINT #1: CHR$( MOD(w,256) ); !　００ｈ～０ｆｆｈの通しデータ－２５６＋１３バイト。 NEXT w CLOSE #1 !試験用のバイナリーファイルを、正しく読めるか確かめる。 !-------　ダンプ・リスト OPEN #1: NAME file$, ACCESS INPUT PRINT "Dump list" FOR adr=0 TO BVAL("110",16) STEP 16 CALL readb(16) LET ww$=right$("000"&BSTR$(adr,16),4)&" " FOR w=1 TO LEN(db$) LET ww$=ww$ &" "&right$("0"&BSTR$(ORD( db$(w:w) ),16),2) NEXT w LET ww$=ww$ &REPEAT$(" ",55-LEN(ww$)) FOR w=1 TO LEN(db$) IF " "<=db$(w:w) THEN LET ww$=ww$ &db$(w:w) ELSE LET ww$=ww$ &"." NEXT w PRINT ww$ !　１行まとめて書く。テキスト画面のピカつき減少、高速。 NEXT adr CLOSE #1 !-------　read binary SUB readb(cx) !　cx=bytes size OPTION CHARACTER BYTE !　目次→文字列→漢字。目次→ファイル→CHARACTER INPUT SET #1: ENDOFLINE CHR$(13) !　目次→ファイル→独自の拡張 LET db$="" DO LET w9=LEN(w9$)-cx IF 0=<w9 THEN LET db$=db$ &left$(w9$,cx) LET w99=w99+cx LET w9$=right$(w9$,w9) EXIT SUB END IF LET db$=db$ &w9$ LET w99=w99+LEN(w9$) LET w9$="" LET cx=-w9 LINE INPUT #1,IF MISSING THEN EXIT DO :w9$ !　ＥＯＦで、空""の場合 →EXIT DO →w9$ 不変。 ASK #1: POINTER s9$ !　目次→ファイル→その他のSET文とASK文。(参照：目次→ファイル→SET POINTER) IF s9$<>"END" THEN LET w9$=w9$ &CHR$(13) LOOP ASK #1: FILESIZE w9 !　目次→ファイル→独自の拡張 IF w99+1=w9 THEN LET db$=db$ &CHR$(13) LET w99=0 END SUB END !　SET #1: ENDOFLINE で、行末２バイト指定した場合、 !　CHR$(13)&CHR$(10) を指定しても CHR$(13)&CHR$(?) となり、２バイト目は不明で失われる。 !　CHR$(10)&CHR$(13) を指定しても CHR$(10)&CHR$(?) となり、２バイト目は不明で失われる。 !　の不都合があります。 !　CHR$(13)、１つを指定すれば、失われても補足できる。