Проблема такая: в данной программе вычисляется кол-во слов с удвоенными согласными, написанными через пробел...Все хорошо, кроме одного - когда я нажимаю пробел более одного раза, программа его распознает как слово без удвоенных согласных...ВОПРОС: Как сделать так, чтобы один и более пробелов не распознавались как слова, а лишь средство связи слов в тексте! ПРОСЬБА: Помогите доработать код, чтобы не было такой проблемы...Заранее СПАСИБО!!!
| Код |
Private Sub txt1_Change()
Dim Word As String
Dim Schetchik%, j%, i%, count%, flag As Boolean
Const soglasnie$ = "бвгджзйклмнпрстфхцчшщ"
For i = 1 To Len(txt1)
Word = Trim(Mid(txt1, i, InStr(i, txt1, " ", vbBinaryCompare)))
If Trim(Word) <> "" Then
j = 1
flag = False
Do While j <= Len(Word$) And flag = False
If Mid(Word, j + 1, 1) = Mid(Word, j, 1) And _
InStr(soglasnie, Mid(Word, j, 1)) <> 0 Then Schetchik = Schetchik + 1: flag = True
j = j + 1
Loop
count = count + 1
i = InStr(i, txt1, " ", vbBinaryCompare)
End If
Next i
On Error Resume Next
lbl1 = Format(Schetchik / count * 100, "0.00") & "%"
If txt1.Text = "" Then lbl1.Caption = ""
End Sub
|
|