VBNet - Форум - Помогите убрать 2 и более пробелов!!!

Вопрос: Помогите убрать 2 и более пробелов!!! Добавлено: 19.12.05 20:20

Автор вопроса: 7395

Проблема такая: в данной программе вычисляется кол-во слов с удвоенными согласными, написанными через пробел...Все хорошо, кроме одного - когда я нажимаю пробел более одного раза, программа его распознает как слово без удвоенных согласных...ВОПРОС: Как сделать так, чтобы один и более пробелов не распознавались как слова, а лишь средство связи слов в тексте! ПРОСЬБА: Помогите доработать код, чтобы не было такой проблемы...Заранее СПАСИБО!!!

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
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: HOOLIGAN Вопросов: 0 Ответов: 1066	Профиль \| \| #1	Добавлено: 19.12.05 21:43
	Прежде чем считать согласные, удали двойные пробелы. Примерно так: Do While InStr(1, MyString, " " MyString = Replace(MyString, " ", " " Loop Ответить

Номер ответа: 2 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182	Профиль \| \| #2	Добавлено: 19.12.05 22:34
	Или тройные )) Ответить

Номер ответа: 3 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #3	Добавлено: 20.12.05 11:12
	А какая разница? Пост N1 убирает все повторяющиеся пробелы, сколько бы их не было По принципу фишки ворда. Ответить

Страница: 1 |