VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2007/01/23(Tue) 15:19 |
| 投稿者 | ： お願いします。 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： バイナリコードの表示方法について |
はじめまして。VBの初心者で、不慣れな者ですので、どなたかお助け願います。
データをバイナリファイルとして読み込み、漢字の16進コード（80A1等）のみを別リストに
まとめたいのですが、バイナリデータの扱い方で不明な点がありますので、どなたか分かればで
お教え願います。（初心者ですので、できるだけ分かりやすくお教え願います。）
開発環境はVB6.0です。
本に載っていたのを改良して試したのが次のですが、MSGBOXには希望する80、A1などが表示されません。
表示させる場合などはそのままでは無理なのでしょうか？
Dim buf(1) As Byte
Open "c:\test.txt" For Binary As #1
Get #1, , buf
Do Until EOF(1)
i = i + 1
If i < 30 Then
MsgBox buf ←←← 16進コードで表示等をしたい。
End If
Get #1, , buf
Loop
Close #1
Exit Sub
説明が足りない場合は補足を入れますので、どなたかお教え願います。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）