VB6 - Definiowanie macierzy ciągów

Question

Robię projekt i muszę użyć VB6. Mam problem z kilkoma podstawowymi zadaniami, częściowo z powodu (jak sądzę) braku dokumentacji i częściowo dlatego, że zazwyczaj używam języków ze składnią opartą na C.

Kiedy zdefiniować tablicę w języku C#, to zwykle następująco:

string[] s = {"a", "b", "c", "d" }; 

chcę zrobić to w VB6.

Ale w VB6, wszystko robiłem tak:

Dim s(0 To 3) As String 
s(0) = "a" 
s(1) = "b" 
s(2) = "c" 
s(3) = "d" 

Czy jest bardziej efektywny sposób definiowania tablicę w VB6 niż przykładzie I przedstawionego powyżej? Sposób podobny do podejścia C#?

Answer 1

Dim s 
s = Array("a", "b", "c", "d") 

Answer 2

Jeśli chcesz String tablicy w przeciwieństwie do wariantu tablica Array() przyniesie;

Function ArrayString(ParamArray tokens()) As String() 
    ReDim arr(UBound(tokens)) As String 
    Dim i As Long 
    For i = 0 To UBound(tokens) 
     arr(i) = tokens(i) 
    Next 
    ArrayString = arr 
End Function 

... 

Dim a() As String 
a = ArrayString("foo", "bar", ..., "qux") 

Answer 3

Oto kolejna możliwość:

Dim S() As String 

S = Split("a|b|c|d", "|")