数値配列に格納

環境/言語:[WindowsXPX]
分類:[.NET]

複数桁の数値を、1桁ずつ数値の配列に格納したいのですが、
やり方がわかりません。どなたか助けてください

Dim moto as String = 123456789
Dim aryInt as Integer()

For i As Integer = 0 To moto.Length - 1
aryInt(i) = moto.Substring(i, 1)
Next

でもエラーとなりますし、Splitでも区切ることができません・・・。

こんにちは、じゃんぬ＠デスマ中 です。

■No10750に返信(ぢゅすさんの記事)
> 複数桁の数値を、1桁ずつ数値の配列に格納したいのですが、
> やり方がわかりません。どなたか助けてください
> 
> Dim moto as String = 123456789

文字列に int を代入?

> Dim aryInt as Integer()

これでは、空の配列ができるだけですよね?

> For i As Integer = 0 To moto.Length - 1
>      aryInt(i) = moto.Substring(i, 1)
> Next

これも int = string です。

> でもエラーとなりますし、Splitでも区切ることができません・・・。

インデックスが存在しないのですから、例外が発生しますよね。

    Dim moto   As String = "123456789"
    Dim aryInt As Integer()

    ReDim aryInt(moto.Length - 1)

    For i As Integer = 0 To moto.Length - 1
        aryInt(i) = Int32.Parse(moto.Chars(i))
    Next i

ReDim ですか、ありがとうございます。
あほな質問してすいません。


■No10751に返信(じゃんぬねっとさんの記事)
> こんにちは、じゃんぬ＠デスマ中 です。
>
> ■No10750に返信(ぢゅすさんの記事)
>>複数桁の数値を、1桁ずつ数値の配列に格納したいのですが、
>>やり方がわかりません。どなたか助けてください
>>
>>Dim moto as String = 123456789
>
> 文字列に int を代入?
>
>>Dim aryInt as Integer()
>
> これでは、空の配列ができるだけですよね?
>
>>For i As Integer = 0 To moto.Length - 1
>> aryInt(i) = moto.Substring(i, 1)
>>Next
>
> これも int = string です。
>
>>でもエラーとなりますし、Splitでも区切ることができません・・・。
>
> インデックスが存在しないのですから、例外が発生しますよね。
>
> Dim moto As String = "123456789"
> Dim aryInt As Integer()
>
> ReDim aryInt(moto.Length - 1)
>
> For i As Integer = 0 To moto.Length - 1
> aryInt(i) = Int32.Parse(moto.Chars(i))
> Next i