投稿日 | : 2003/08/28(Thu) 20:23 |
投稿者 | : 出雲 |
Eメール | : |
URL | : |
タイトル | : ランダムファイルの結果がN88BASICの時と異なるのは? |
いつもこの掲示板で勉強させて頂いております。
さて以前 N88BASICで作成していたものをVB6で再度作り直しているのですがランダムファイルで
(N88BASICの時)
OPEN "DATA" AS #1
FIELD #1,3 AS A$,252 AS B$
LSET A$=CHR$(247)+CHR$(0)+CHR$(1)
LSET B$=STRING$(252,CHR$(0))
PUT #1,1
CLOSE
(VB6の時)
Dim strA As String * 3
Dim strB As String * 252
Dim strAB As String * 256
'
intFreeFileNo = FreeFile
strA = Chr$(247) + Chr$(0) + Chr$(1)
strB = String$(252, Chr$(0))
strAB = strA + strB
'
Open app.path & "DATA" For Random As #intFreeFileNo Len = 256
Put #intFreeFileNo, 1, strAB
Close #intFreeFileNo
と直したのですが
上記で出来上がったファイルの結果がダンプリストで見ると
(N88BASICの時は)
F7 00 01 00 00 ......
(VB6の時は)
00 00 01 00 00 ......
と結果が異なってしまい、何処が悪いのか分からずに困っております。
何方かお知恵をお借りできないでしょうか?
よろしくお願い致します。