さっきのバイナリ→テクスト

質問

FP1 = FreeFile
Open Text1.Text For Binary As #FP1
FP2 = FreeFile
Open Text3.Text For Output As #FP2
Do While (Not (EOF(FP1)))
For i = 1 To 128
Get #FP1, , Bwk(i)
Next i
flg = 0
If j(1) <> "" Then
Swk = Right("00" & Trim(Hex(Bwk(1))), 2) & Right("00" & Trim(Hex(Bwk(2))), 2)
For i = 1 To 5
If j(i) <> "" Then
If j(i) = Swk Then
flg = 1
Exit For
End If
End If
Next i
Else
flg = 1
End If

If flg = 1 Then
Swk = ""
For i = 1 To 128
Swk = Swk & Right("00" & Trim(Hex(Bwk(i))), 2)
Next i
Print #FP2, Swk
End If
Loop
Close
MsgBox "完了"
End Sub
上のプログラムでどこで変換してるのかがわからないんです。誰か教えてください。

回答No.1

don_cha

変換している箇所は、二箇所
一つは、
Swk = Right("00" & Trim(Hex(Bwk(1))), 2) & Right("00" & Trim(Hex(Bwk(2))), 2)
もう一つは
Swk = Swk & Right("00" & Trim(Hex(Bwk(i))), 2)
です。

ただ、一つ一つの命令をヘルプかリファレンスマニュアルで見ていけば、すぐに分かると思いますよ。

#以下お節介(^^;
学校の宿題なのか、それとも会社での研修なのかわかりませんが、出来るだけ自分で調べてみてから質問されるようにしたほうがご自身のためにもいいと思います。