Question

我正在创建一个数组如下

  Dim strFriends(0 to 6) As String

    strFriends(0) = "Bianca"
    strFriends(1) = "Jeana"
    strFriends(2) = "Sam"
    strFriends(3) = "Jenna"
    strFriends(4) = "Erin"
    strFriends(5) = "Carolyn"
    strFriends(6) = "Kate" 

    Dim myFriends As String

    myFriends = Join(strFriends, ", ")

    MsgBox myFriends

这将产生以下字符串：“Bianca，Jeana，Sam，Jenna，Erin，Carolyn，Kate”

但是我需要检索数组中的特定项并将它们显示为列表，如下所示：

例如：如果我想选择strFriends， Kate ， Sam 和 Bianca

它应该列出

Kate
Sam
Bianca

如何执行任务。我是VB的新手，所以我对这个简单的任务很困惑。任何人都可以提供帮助。

谢谢

Answer 1

    Dim strFriends(0 To 6) As String

    strFriends(0) = "Bianca"
    strFriends(1) = "Jeana"
    strFriends(2) = "Sam"
    strFriends(3) = "Jenna"
    strFriends(4) = "Erin"
    strFriends(5) = "Carolyn"
    strFriends(6) = "Kate"

    Dim objOutput As Text.StringBuilder = New Text.StringBuilder()

    For Each strFriend As String In strFriends
        Select Case strFriend
            Case "Kate", "Sam", "Bianca"
                objOutput.AppendLine(strFriend)
        End Select
    Next

    MessageBox.Show(objOutput.ToString())

或者

    For Each strFriend As String In strFriends
        If MyLogicToDetermineSelected(strFriend) Then
            objOutput.AppendLine(strFriend)
        End If
    Next

Answer 2

当你已经知道你想要哪些物品时，你不清楚为什么你需要从原始阵列中挑选物品，所以我不会回答这部分问题。至于在其自己的行上显示每个项目，您可以使用String.Join：

执行此操作

Dim chosenFriends As String() = {"Kate", "Sam", "Bianca"}
Dim output As String = String.Join(Environment.NewLine, chosenFriends)

使用VB从数组中连接两个项目

2 个答案: