Fill an array in one operation

[Pentax]

Hello!
Is it possible to fill an array with one line och code?
For instance, if I want an array of strings with the days of the week, I could do it this way:

Dim week(7) as String
week(1) = "Monday"
week(2) = "Tuesday"
week(3) = "Wednesday"
...
week(7) = "Sunday"


But there must be a better way.
Some sort of
Dim week(7) as String
week = "Monday";"Tuesday";"Wednesday"..."Sunday"
or something.

It's possible in C++, allthough I've forgotten how to do it right now, so it must be a way.
Thanks for your help!
Pentax

[Sam Finch]

I don't think so, it's not difficult to code though, even if there was it wouldn't be any faster to use the in built function than your own.

[Aaron Young]

You can use the Split() function in VB6:

    Dim vWeek As Variant
    vWeek = Split("Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday", ",")

Or the Format() Function:

    Dim iDay As Integer
    For iDay = 1 To 7
        Debug.Print Format(CDate("01/" & iDay + 2 & "/2000"), "DDDD")
    Next

[BruceG]

You can use the Array function (the data type of the array must be variant, and it will start at index 0):

Dim week as Variant

week = Array("Sunday", "Monday", "Tuesday", .... "Saturday")

week(0) will refer to "Sunday", week(6) will refer to "Saturday".

If you want your Array to start at 1, use the Option Base 1 statement.

Option Base 1

Private Sub Command1_Click()

    MyAray = Array("Monday", "Tuesday")
    Print MyArray(1)

End Sub

[Pentax]

OK, thanks!

It's not so much for the speed as for my lazyness.
It takes less effort to do it this way.
But can it really not be done with an array of strings?
Pentax

You must declare it as a variant at first, but once you split it, the datatype will then be converted into a String array.