文字列"0001"をbyte配列の{0,0,0,1}にするには?

解決


午後ティー  2008-02-28 13:42:39  No: 144490  IP: 192.*.*.*

タイトルの通りですが、

Dim s As String

s = "0001"

とある時、

Dim b() As Byte

の変数に
b(0) = 0
b(1) = 0
b(2) = 0
b(3) = 1

としたいのですが、
どのようにしたら実現できるのか
教えて下さい。

よろしくお願いします。

編集 削除
魔界の仮面弁士  2008-02-28 13:48:52  No: 144491  IP: 192.*.*.*

文字として許容されるのは、"0" と "1" だけなのでしょうか?
(Byte 型は、0〜255 の値をとれますよね)


> どのようにしたら実現できるのか
地道に一文字ずつ変換していくとか…。

ReDim b(s.Length - 1)
For i As Integer = 0 To s.Length - 1
  b(i) = CByte(s.Substring(i, 1))
Next

編集 削除
午後ティー  2008-02-28 14:01:01  No: 144492  IP: 192.*.*.*

ありがとうございます。

数値は0から9を想定しております。

頂いたサンプルソースの方法で実現できそうなので
使わせていただきます。(CByteが思い浮かびませんでした)

編集 削除