0

次のように配列を作成しています

  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

タスクの実行方法。私はVBに本当に慣れていないので、この単純なタスクに混乱しています。誰でも助けることができます。

ありがとうございました

4

2 に答える 2

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
于 2012-07-31T10:46:31.883 に答える
0

必要な項目が既にわかっているのに、元の配列から項目を選択する必要がある理由が明確ではないため、質問のその部分には答えません。各項目を独自の行に表示するには、次のようにしますString.Join。

Dim chosenFriends As String() = {"Kate", "Sam", "Bianca"}
Dim output As String = String.Join(Environment.NewLine, chosenFriends)
于 2012-07-31T13:19:12.913 に答える