-PR-
締切済み

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

  • すぐに回答を!
  • 質問No.62435
  • 閲覧数36
  • ありがとう数4
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 7% (1/14)

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
上のプログラムでどこで変換してるのかがわからないんです。誰か教えてください。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル11

ベストアンサー率 34% (139/407)

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

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

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


このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


専門家があなたの悩みに回答!

-PR-

ピックアップ

-PR-
ページ先頭へ