Solved

How can I convert a 1D array into a 2d array

Posted on 2011-03-18
8
2,383 Views
Last Modified: 2012-05-11
I have an one dimensional array of comma delited values.  Does any know in VBA how I would turn this into a 2 dimensional array?

So if I have
arry(1)="a,b,c"
arry(2)="x,4,3"

I need it to be

arry(1,1)="a"
arry(1,2)="b"
arry(1,3)="c"

arry(2,1)="x"
arry(2,2)="4"
arry(2,3)="3"

I tried using split and a For loop but nothing seems to work.?
0
Comment
Question by:drhamel69
8 Comments
 
LVL 22

Expert Comment

by:plusone3055
ID: 35168026
0
 
LVL 74

Expert Comment

by:käµfm³d 👽
ID: 35168093
Try this:
Dim arry(2) As String
Dim target(,) As String

arry(0) = "alpha,beta,gamma"
arry(1) = "a,b,c"
arry(2) = "x,4,3"

For i As Integer = 0 To arry.Length - 1
    Dim parts() As String = arry(i).Split(","c)

    ReDim Preserve target(arry.Length - 1, parts.Length - 1)

    For j As Integer = 0 To parts.Length - 1
        target(i, j) = parts(j)
    Next
Next

Open in new window

0
 
LVL 74

Accepted Solution

by:
käµfm³d   👽 earned 500 total points
ID: 35168110
Sorry...  that was .NET. This should be VBA friendly  : )
Dim arry(2) As String
Dim target(,) As String

arry(0) = "alpha,beta,gamma"
arry(1) = "a,b,c"
arry(2) = "x,4,3"

For i As Integer = 0 To arry.Length - 1
    Dim parts() As String = Split(arry(i), ",")

    ReDim Preserve target(UBound(arry), UBound(parts))

    For j As Integer = 0 To parts.Length - 1
        target(i, j) = parts(j)
    Next
Next

Open in new window

0
Free Gift Card with Acronis Backup Purchase!

Backup any data in any location: local and remote systems, physical and virtual servers, private and public clouds, Macs and PCs, tablets and mobile devices, & more! For limited time only, buy any Acronis backup products and get a FREE Amazon/Best Buy gift card worth up to $200!

 
LVL 74

Expert Comment

by:käµfm³d 👽
ID: 35168118
*Ugh*

Change line 13 to:
For j = 0 To UBound(parts)

Open in new window

0
 
LVL 44

Expert Comment

by:GRayL
ID: 35168359
You need a module in which you set the option base to 1

Option Base 1

'code here that creates the one dimension array Arry()

Dim Arry2D (3,2) as Variant, i as integer, j as integer

For i = 1 to 2
  For j = 1 to 3
    Arry2D(i,j) = Split Arry(i)(j)
  Next j
Next i
0
 
LVL 27

Expert Comment

by:Ark
ID: 35502568
One line of code :) 'OK, 2 lines with Dim

'Note - to access arrNew items, use arrNew(i)(j) instead of arrNew(i,j) like:
    Dim i, j
    For i = 0 To 1
        For j = 0 To 2
            Debug.Print i; ","; j, arrNew(i)(j)
        Next j
    Next i
Dim arrNew As Variant
arrNew = Array(Split(arry1(1), ","), Split(arry1(2), ","))

Open in new window

0
 
LVL 100

Expert Comment

by:mlmcc
ID: 35688056
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
0

Featured Post

Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Join & Write a Comment

Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now