| |
▼yaya さん、Jakaさん、こんばんは。
>早速トライしてみました
>その結果 ﾊﾞｲﾅﾘﾃﾞｰﾀｰがセルに書きこまれ
>ﾊﾞｲﾅﾘﾃﾞｰﾀｰの中身（今読もうとしているものは数値です）
>を見ることが出来ませんでした
バイナリファイルをLine Inputステートメントで読み込むのですか？
う〜ん、これは無理だと思いますが・・・。
例えば、以下のコード実行してみて下さい。
これは、"123"という文字列を書き込むコード
'===================================================
Sub mk_txt()
flno = FreeFile
Open "D:\My Documents\test.txt" For Output As #flno
' 適当なパスに直して下さい
Print #flno, "123"
Close #flno
End Sub
次いで以下のコードを実行してみて下さい
これは、作成したtest.txtからデータを読み込むコード
'=====================================================
Sub read_txt()
flno = FreeFile
Open "D:\My Documents\test.txt" For Input As #flno
Line Input #flno, txt$
Cells(1, 1).Value = txt$
Close #flno
End Sub
セルには、123と表示されていますよね？
実際のtest.Txtには、Hexコード（16進数）で表すと、
31 32 33 0D 0A
という5バイトのデータが格納されています。
Line Inputステートメントは、0D0Aを取得しません。
でも、バイナリファイルの場合、この0D0Aも立派なデータですから、
取得できないと困ってしまいますよね？
>ﾊﾞｲﾅﾘﾃﾞｰﾀｰの中身（今読もうとしているものは数値です）
>を見ることが出来ませんでした
バイナリファイルの中身を仮にLine Inputステートメントで
取得できたとしてもそのまま、セルに放り込んでは殆ど、表示されないと思いますよ。
例えば、データとして（16進数）で
00 01 02
なんてデータは、セル代入しても表示されません。
文字として表示可能なコードではないですから・・・。
で、私がわからないのは、
>読もうとしているものは数値です
とありますが、どういう結果を希望しているのかがわからないんです。
ダンプリストのような結果がほしいのでしょうか？
例えば、上記のtest.txtだと
31 32 33 0D 0A
という結果を表示するのならば、私も作った事がありますが・・・。
|
|
ichinose
- 05/2/2(水) 21:23 -
