Добавление слова «и» в список в окне сообщения - PullRequest
Новая
       56

Добавление слова «и» в список в окне сообщения

0 голосов
/ 22 января 2020

Мне нужна помощь по началу работы с кодом для добавления слова «и» в окно сообщения после того, как пользователь выбрал элементы из списка, чтобы сделать окно сообщения грамматически правильным. Возможно удаление последней запятой тоже. 

Private Sub cmdSelect_Click()
Dim IntIndex As Integer, strSelectedHHItems As String
For IntIndex = 0 To lstHouseHoldItems.ListCount
    If lstHouseHoldItems.Selected(IntIndex) Then
        strSelectedHHItems = strSelectedHHItems & "," & " " & lstHouseHoldItems.Column(0, IntIndex)
    End If
Next
strSelectedHHItems = Right(strSelectedHHItems, Len(strSelectedHHItems) - 1)'remove beginning space
MsgBox "You have selected" & (strSelectedHHItems)
End Sub

Message box needs to read Chair, Couch **AND** Nighstand.

Я - любитель, я знаю, что это потребует использования некоторых встроенных c функций как Мид или Лен, но я не могу придумать, как это сделать. Ваша помощь очень ценится.

1 Ответ

1 голос
/ 22 января 2020

Как только вы узнаете местоположение последней запятой, просто объедините новую строку: 

loc = InStrRev(strSelectedHHItems, ",")
strSelectedHHItems = Mid(strSelectedHHItems, 1, loc - 1) & " and " & Mid(strSelectedHHItems, loc + 2)
...