Join all items in multidimensional array

[jaryszek]

Hi,

i have ArrayTest(1 to 3):
ArrayTest(1,1): "Ok"
ArrayTest(1,2): "Ok2"
ArrayTest(1,3): "Ok3"
ArrayTest(1,n): "Okn"

In can be here ifinity of elements in 2nd dimension.

How can i join them?

join(array(ArrayTest(1,1),ArrayTest(1,2),ArrayTest(1,3),ArrayTest(1,n), "/")

Thank you for help,
Jacek

[nilem]

Hi jaryszek,
maybe something like this

Please Login or Register  to view this content.

[xlnitwit]

It would be helpful to see the code that declares and populates the array. You may be able to use Index to extract the entire 'row' into an array and join it that way, or you could simply loop.

[AlphaFrog]

Please Login or Register  to view this content.

[jaryszek]

Thank you Guys,

your code AlphaFrog is working but i can not use split function here:

MyString = Split(MyString, "/") throws error.

Mystring will be added as item into dictionary key and to get easy item from here i will be using split function.

Maybe xlnitwit index function will be better?

MyString = Application.WorksheetFunction.Index(MyArray, 1, 1)

equals Test1...

Jacek

[AlphaFrog]

MyString = Split(MyString, "/")

MyString is a String type variable. The Split function returns an array. Try something like this...

Dim MySplit As Variant
MySplit = Split(MyString, "/")

[jaryszek]

thank you AlphaFrog!
It is working like a charm.

What about

You may be able to use Index to extract the entire 'row' into an array

thank you!

[jaryszek]

Hello,

any pther solutions with index function?

Jacek

[jindon]

You mean like this?

Please Login or Register  to view this content.

[jaryszek]

Wow jindon Master!

thank you my friend,
exactly it was what i meant

Jacek

[jindon]

You are welcome and thanks for the rep.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.