vbscriptで配列の数値の要素を転送する方法は？

Question

数値を入力すると、その数値は任意の長さの数値に対して配列で決まるはずです。

数値の長さが変わる可能性があるため、手動で行うのではなく、下記のように配列に転送する方法は固定されていません。

n = 454512 
'*****how no should store in array*********** 
    a(0) = 4 
    a(1) =5 
    a(2) =4 
    a(3) = 5 
    a(4) = 1 
    a(5) = 2 

Answer 1

数字を文字列に変換します。 （Re）配列の長さを文字列の長さに合わせる。 Mid（）を使用して数字を取得します。コード内：

>> n = 454512 
>> s = CStr(n) 
>> l = Len(s) 
>> ReDim a(l - 1) 
>> For p = 1 To l 
>>  a(p - 1) = CInt(Mid(s, p, 1)) 
>> Next 
>> WScript.Echo TypeName(a(0)), Join(a, "*") 
>> 
Integer 4*5*4*5*1*2 
>>