arrays - VB6 - 定义一个字符串数组

Question

我需要使用 VB6，并且正在为一些基本任务而苦苦挣扎。

例如，当我在 C# 中定义一个数组时：

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

但在 VB6 中，我一直在这样做：

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

在 VB6 中定义数组是否有比我上面说明的示例更有效的方法？类似于 C# 方法的方式？

Answer 1

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

Answer 2

Here's another possibility:

Dim S() As String

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

Answer 3

如果你想要一个String数组而不是Variant数组Array()将产生；

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")