Найти в строке слова, которые содержат сочетание "из" - VBA

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

Помогите пожалуйста! Дана строка текста. Найти слова, которые содержат сочетание "из". Для ввода исходного текста и вывода результата на окне формы установить два поля ввода TextBox. Не могу понять как отделять слова и какой функцией сравнивать с сочетанием "из". Смогла только это сделать

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim i As Integer, s, s1, s2 As String
Dim Shablon As String
s1 = TextBox1.Text
s3 = "из"
For i = 1 To Len(s1)
s2 = Mid(s1, i, 1)
If InStr(s1, s3) Then TextBox2.Text = s1
    Next i
End Sub

Решение задачи: «Найти в строке слова, которые содержат сочетание "из"»

textual
                            Листинг программы 
                        
for each s in split(TextBox1.Text)
  if s like "*из*"then TextBox2.Text=TextBox2.Text & s
next

Оцени полезность:

11 голосов , оценка 3.818 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы