Passing Array Names

[Ryan]

Ok, Ill try and explain this without sounding like a retard.

I have a function that I call that has a select statement inside it which can range from 0 to 12, one of the values of the function will be a number between 0 to 12, in each case statement, there is:

Dim MyArray() as String
Dim MyArray2() as String
---------------------------------------------------------
Function LoadMyArrays(Type, IntText As String, Flag As Integer)
Dim strItems() As String
Dim i As Integer
Dim MyString As String
MyString = IntText
strItems = Split(MyString, vbCrLf)
Case 0
 ReDim MyArray(UBound(strItems)) As String
     
     For i = 0 To UBound(strItems)
        MyArray(i) = strItems(i)
        
    If Flag = 1 Then
    retval = Split(MyArray(i), ",")
        For j = 0 To UBound(retval)
            If j = 0 Then
             Set list_item = Form9.ListView1.ListItems.Add(, , retval(j))
            Else
            list_item.SubItems(1) = retval(j)
            End If
            Next j
    End If
    Next

Case 1
 ReDim MyArray2(UBound(strItems)) As String
     
     For i = 0 To UBound(strItems)
        MyArray2(i) = strItems(i)
        
    If Flag = 1 Then
    retval = Split(MyArray2(i), ",")
        For j = 0 To UBound(retval)
            If j = 0 Then
             Set list_item = Form9.ListView1.ListItems.Add(, , retval(j))
            Else
            list_item.SubItems(1) = retval(j)
            End If
            Next j
    End If
    Next

as you can see, each case statement is basiclly alike, cept its a different array thats being redim'd and loaded with values

Now, to the question, would it be possible to get rid of the case statement and just pass in a arrayname, possible code

Dim MyArray() as String
Dim MyArray2() as String
------------------------------------------------
Call LoadMyArrays(MyArray, "some,text,here", 0)
------------------------------------------------
Function LoadMyArrays(MyArrayName, IntText As String, Flag As Integer)
Dim strItems() As String
Dim i As Integer
Dim MyString As String
MyString = IntText
strItems = Split(MyString, vbCrLf)

ReDim MyArrayName(UBound(strItems)) As String
 'do all the rest of the stuff above

I've tried several different ways with no avail.

Any help would be great, if you're confused, ignore me

Thanks.

[Joacim Andersson]

Since your using the Split function I assume you have VB6.
I've tried the following without any problems.

Private MyArray() As String

Public Function LoadMyArray(Arr() As String, sText As String)
    Dim sItems() As String
    Dim i%, iCount%
    
    sItems = Split(sText, vbCrLf)
    iCount = UBound(sItems)
    ReDim Arr(iCount)
    For i = 0 To iCount
        Arr(i) = sItems(i)
    Next
End Function

Private Sub Command1_Click()
    Dim sText As String
    Dim i%, iCount%
    Open "c:\winnt\javainst.log" For Input As #1
    sText = Input(LOF(1), 1)
    Close #1
    LoadMyArray MyArray, sText
    iCount = UBound(MyArray)
    MsgBox iCount
    For i = 0 To iCount
        MsgBox MyArray(i)
    Next
End Sub

Good luck!