-4

我如何将 2 到 3 个元素从数组 1 复制到另一个数组

宠物

狗 1
狗 2
狗 6
猫 1
猫 2

Dim pet as String = "dog"

我想使用名为 pet 的字符串将数组元素从数组 1 复制到数组 2,只复制带有“dog”LIKE 的元素

狗 1
狗 2
狗 6

4

1 回答 1

7

以下是@rynah 的示例本质上的作用:

    Dim array1() As String = {"dog 1", "dog 2", "dog 6", "cat 1", "cat2"}

    Dim tmpList As New List(Of String)
    For Each value As String In array1
        If value.Contains("dog") Then
            tmpList.Add(value)
        End If
    Next

    Dim array2() As String = tmpList.ToArray
    For Each value As String In array2
        Debug.Print(value)
    Next
于 2013-05-05T16:18:30.040 回答