16進数のコードが入った文字列をバイト変数に変換

解決

---

初めて、投稿致します。
VB6が良く分らず、困っています。
多分・・簡単な事だと思うのですが・・・

以下、実現したい事です。

dim aa as string
dim bb() as byte

''文字列aaには、十六進数の文字列が格納されています。
aa = "65E0B115"

aaから、2バイトずつ切り出して、バイナリ変数であるbbに
入力したいのですが、どのような処理を行なえばよいでしょうか？

for  i to len(aa)
bb(i) = mid(aa,i, 2)

next i

---

2 文字ごとに切り出した文字列を CByte で Byte 型に変換...かな？
試してないけどこんな感じになると思う。

for i = 1 to Len(aa) Step 2
    bb(i) = CByte(Mid$(aa,i,2))
next i

---

>    bb(i) = CByte(Mid$(aa,i,2))
元が１６進文字列なので&Hと連結してあげれば。
bb(i) = CByte("&H" & Mid$(aa, i, 2))

#あとForでStep 2するならbbの添え字に注意が必要かと。

---

>#あとForでStep 2するならbbの添え字に注意が必要かと。
し、しまった (^^;; 。
"&H" はともかく bb の添え字は致命的ミスですね。

GOD さん、フォローありがとうございました m(__;)m 。

---

むしろ＆ｈが重要だと思うんだけど

---

皆様  ご回答ありがとう御座います。
すんなり、解決いたしました。

真にありがとう御座いました。

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

※返信する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。

ツイート