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