نسبت دادن یک رشته به یک آرایه؟

[mohsen57]

Dim str as string
Dim strArr() as string
str = "abcdef"

در کدبالا چجوری میتونم str رو به strArr نسبت بدم؟ یعنی می خوام هر یک از کارکترهای str در یکی از خانه های strArr قرار بگیره.

[VB.SOS]

روش كار به اين صورته:



Dim str As String
Dim strArr() As String
str = "abcdef"

ReDim strArr(1 To Len(str)) As String

For i = 1 To Len(str)
strArr(i) = Mid(str, i, 1)
Next

[drwatson]

میتونی اینکارو هم بکنی


Dim a()
a = Array("h", "e", "l", "l", "o")

For i = LBound(a) To UBound(a)
MsgBox a(i)
Next i
End Sub