字符串转换[已解决]

423799223

有一字符串str,里面有5位数,每位数都是在1至5之间
Dim strvar
Dim mynum(5)
strvar="12345"

'如何把str里面的每位数传到mynum数组中去,实现的功能如下
mynum(0)=1      '即strvar中的第1个字符串
mynum(1)=2      '以此类推
mynum(2)=3
mynum(3)=4
mynum(4)=5

谢谢

[ 本帖最后由 423799223 于 2008-7-10 21:18 编辑 ]

zte_boy

不难，利用ReDim和字符串函数就可实现
代码供参考：
Dim Str
Dim i

Str = "12345"

NumOfStr = Len(Str)

ReDim Arr(NumOfStr-1)

For i = 1 To NumOfStr
        temp = Mid(str , i , 1)       
        Arr(i-1) = Temp
Next

[ 本帖最后由 zte_boy 于 2008-7-10 17:48 编辑 ]

假装不在

楼上方法可行，你也可以用正则表达式，不过有点小题大做。

423799223

非常感谢

centurystone

学习学习

centurystone

借鉴二楼的
'定义变量str,i
Dim str,i
str="123456"
'定义动态数组长度与定义的字符串相等
ReDim Arr(len(str)-1)
'循环赋值
For i=0 to len(str)-1
        '使用截取函数从变量中取值
    Arr(i)=Mid(str,i+1,1)
   msgbox(Arr(i))
Next
'循环输出
For i=0 to len(str)-1
        msgbox("Arr("&i&")=="&Arr(i))
Next