VBA- How to split text to second dimension of an array

[Legacy 143009]

I wonder if is there a syntax for spilling out a split function among the second dimension of an array:

Redim myArr(i, 1)
myArr(i, 0) = Split("A,B", ",")

I expect the text will be spilled as myArr(i, 0)=A and myArr(i, 1)=B since the dimension lengths was predefined.

 

[Peter_SSs]

Question is not at all clear to me. Can you give us more of the code and more detailed explanation of what you have and what you are trying to achieve?

 

[Legacy 143009]

Thanks @Peter_SSs

Infact that's all. To be more precise when you input like [myArr = Split("A,B", ",")] normally it spreads A and B as [myArr(0) = A] and [myArr(1) = B] automatically.

What I am asking is, if I keep the first dimension fixed, let say "n", how can I split the string across second dimension as [myArr(n, 0)=A] and [myArr(n, 1)=B] automatically?

I hope it is clear..

 

[Peter_SSs]

Infact that's all.

So the variable i has no value?

What is the reason for wanting to do this? There may be other, simpler, ways to achieve the end goal.

 

[Legacy 143009]

I want to create couples. I have a code that keeps couples in a one-dimensional array. Maybe I have to fix that code but I don't want to go back.
Currently my one-dimensional array looks like this:

namesArr(0) = "A,B"
namesArr(1) = "C,D"
namesArr(2) = "E,F"

I am seeking for a short cut to create:

couplesArr(0, 0) = "A"
couplesArr(0, 1) = "B"
couplesArr(1, 0) = "C"
couplesArr(1, 1) = "D"
couplesArr(2, 0) = "E"
couplesArr(2, 1) = "F"

I am asking only for a short hand. If there is no such short hand syntax, I can split them one by one. No problem.

 

[Fluff]

For that example you could use

   Dim couplesArr As Variant
   couplesArr = [{"A","B";"C","D";"E","F"}]

Note. This will be a 1 based array

 

[Legacy 143009]

Thanks @Fluff
As you know when you have have code like this it is ok to split text directly to an array:

Sub test()
  Dim names() As String

  names = Split("A,B;C,D;E,F", ";") 'You can directly index 3 items into 1 based array at once.
  'At this point, you don't have to do anything extra like pointing an index number.

  For i = 0 to 2
    Debug.Print names(i)
  Next
End Sub
'Debug console will print the following without a problem:
'A,B
'C,D
'E,F

But you can't apply the same method in line 4 above to a 2 based array. In this example code will give an error:

Sub test()
  'Resume to previous code
  Dim couples() As String

  For i = 0 to 2
    couples(i) = Split(names(i), ";") 'I am asking for this line. The code will throw an error at this point
    'At this point what would I expect is A and B values could be directly indexed as couples(i, 0) and couples(i, 1), let's say, "automatically".
    'But it will need index number for the second base.
  Next
End Sub

That I expect a result as below. Maybe I am setting the wrong model in my mind, I don't know.

Briefly what I am asking for is, is there a shorthand way to split a string to the second base of a 2-base array?
If it is not clear still, never mind. I was just curious about it...

 

[Fluff]

Both those codes are using 1D arrays, so will not create a 2D array.
If you are trying to create a 2D array form a 1D array, then you will need to loop through both dimensions.

 

[Legacy 143009]

OK, thank you so much for your time

 

[Fluff]

You're welcome.