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

解決

午後ティー 2008-02-28 22:42:39 No: 144490

タイトルの通りですが、

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 22:48:52 No: 144491

文字として許容されるのは、"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 23:01:01 No: 144492

ありがとうございます。

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

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