String в Array VBS

[SlaDER]

Привет всем! Как можно на vbs из String сделать массив.
Например:

Str = "Привет"
Mas = Array("П","р","и","в","е","т")

[Денис]

В VBS?
Наверное, только вручную. Например:

Код: Выделить всё

dim str1
dim mas(100)

Str1 = "Привет"
for i = 1 to 6
    Mas(i) = mid(str1, i, 1)
next

msgbox "Array(" & chr(34) & Mas(1) & chr(34) & "," _
                & chr(34) & Mas(2) & chr(34) & "," _
                & chr(34) & Mas(3) & chr(34) & "," _
                & chr(34) & Mas(4) & chr(34) & "," _
                & chr(34) & Mas(5) & chr(34) & "," _
                & chr(34) & Mas(6) & chr(34) & ")", vbinformation, "Test"


[trash]

Тогда уж так:

dim mas()
Redim mas(Len(Str1)-1)
for i = 0 to Len(Str1)-1

[CodeNoob]

A Split не подойдет?