| 投稿日 | ： 2003/04/20(Sun) 20:58 |
| 投稿者 | ： nobu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: バイナリ モード でリードしたデータについて。 |
> 4F 52 49 47 47 4E 41 4C をO R I G I N Aとして取得する方法はどうすれば
丸文字は機種依存で文字化けの恐れがあるので使わない方が良いですよ。
例えば
08 00 08 00 18 00 00 00 4F 52 49 47 47 4E 41 4C の１６バイトのみを
"c:\test1.bin" に書いておいて、
Form1 に Label1 と Label2 を置いて下記コード
Private Sub Form_Load()
Dim bStr As String
Dim tmp As String
Dim H As InType
Dim f As Integer
Dim i As Integer
f = FreeFile
Open "c:\test1.bin" For Binary As #1
Get #f, , H
Close #f
tmp = ""
For i = 1 To 7
tmp = tmp & Right("0" & Hex(H.a(i)), 2) & " "
Next i
tmp = tmp & Right("0" & Hex(H.a(8)), 2)
bStr = H.b
Label1.Caption = tmp
Label2.Caption = bStr
End Sub
標準モジュールを作成して下記コード。
Type InType 'Len = 16
a(8) As Byte
b As String * 8
End Type