21
Сентябрь
2011
Указать сколько раз встречается буквенное сочетание
Указать сколько раз встречается буквенное сочетание
Private Sub Command1_Click() Dim i As Long, j As Long Dim StText As String, StrTemp As String StText = Text1.Text StrTemp = Text2.Text For i = 1 To Len(StText) If UCase(Mid(StText, i, Len(StrTemp))) = UCase(StrTemp) Then j = j + 1 Next MsgBox "количество буквенных сочетаний ''" & StrTemp & "'' в тексте равно " & j End Sub