Найти в строке все слова нечетной длины, содержащие букву "о" - VB

Формулировка задачи:

дана произвольная строка символов. все группы символов, отделённые пробелом или несколькими пробелами назовем словом 1. найти в строке все слова нечетной длины, содержащие букву "о" и записать в новую строку через пробел. если их нет - то будет сообщение об отсутствии. 2.строка задается вводом с клавиатуры, не рандомно. спасибо.Добавлено через 13 часов 16 минут а в этом участке можно переделать по vb6.0 ?
Dim strAll As String = "aaoaaoa gggogg  hhohhh yyyo yyyyoyy eeeoeeeeeee"
Dim arAll() As String = strAll.Split(" "c)
Dim arOdd = (From wr In arAll Where wr.Contains("o") AndAlso (wr.Count Mod 2) <> 0 Select wr).ToArray
Dim strOdd As String = String.Join(" "c, arOdd)
MsgBox(strOdd)

Код к задаче: «Найти в строке все слова нечетной длины, содержащие букву "о" - VB»

textual
Private Sub Command1_Click()
    Dim arAll As String, s, st As String
    arAll = InputBox("Введите фразу", "Ввод данных", "aaoaaoa gggogg  hhohhh yyyo yyyyoyy eeeoeeeeeee")
    For Each s In Split(arAll)
        If InStr(1, s, "o") > 0 And Len(s) Mod 2 <> 0 Then st = st & s & " "
    Next s
    MsgBox IIf(Len(st) = 0, "Слов, удовлетворяющих условию нет", Trim$(st))
End Sub

12   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ