| Вопрос: Функция VB для поиска удвоенных букв!!! | Добавлено: 08.12.05 23:43 |
Автор вопроса:  7395
|
| Нужна помощь, кто-нить знает, как можно задать програмный код, чтобы после введения в текстбокс текста, в лейбле показывалось кол-во удвоенных согласных!!!Пожалуйста, кто может!!! |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 09.12.05 01:04 |
|
ну, что-то типа...
Private Sub Text1_Change()
Dim i As Byte, j As Byte Dim count As Byte Const Soglasnie As String = "йчях" 'больше не вспомнил 
For i = 1 To Len(Text1) For j = 1 To Len(Soglasnie) If Mid(Text1, i, 1) = Mid(Soglasnie, j, 1) Then count = count + 1 Next j Next i Label1 = count End Sub |
||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 09.12.05 01:14 |
|
ой, чуть-чуть не то что надо )
От это лучше будет... Private Sub Text1_Change()
Dim i As Byte, j As Byte Dim count As Byte Const Soglasnie As String = "тпбвгджзклмнрсцфхчщш" For i = 1 To Len(Text1) For j = 1 To Len(Soglasnie) If (Mid(Text1, i, 1) = Mid(Text1, i + 1, 1)) And _  Mid(Text1, i, 1) = Mid(Soglasnie, j, 1)) And _
Mid(Text1, i + 1, 1) = Mid(Soglasnie, j, 1)) Then _
count = count + 1 Next j Next i Label1 = count * 2 End Sub |
||
Страница: 1 |