Задача по обработке строк

[andrewpalkin]

Сообщение от Diplomnik

andrewpalkin, я заметил =) Я тоже иногда лагаю...

Да и я тоже ошибаюсь иногда . Это не в упрек тебе было написано , просто что бы программа правильно работала

[Malyshka]

Есть программа для поиска слова, начинающегося с заданной буквы. А как посчитать все эти слова-не пойму.

Private Sub CB_Res_Click()
Dim R_Str As String, Res As String
Dim Simb As String, rs As String
Dim N_Let As Integer, i As Integer
Dim k0 As Integer, k1 As Integer
Dim Ok As Boolean
Dim NumberOfWords As Integer
R_Str = TB_Str.Text
R_Str = LTrim(R_Str)
R_Str = RTrim(R_Str)
N_Let = Len(R_Str)
Simb = TB_Simb.Text
Ok = Mid(R_Str, 1, 1) = Simb
If Ok Then
k0 = 1
Else
For i = 1 To N_Let - 1
If (Mid(R_Str, i, 1) = " ") And _
(Mid(R_Str, i + 1, 1) <> " ") Then
rs = Mid(R_Str, i + 1, 1)
Ok = rs = Simb
If Ok Then
k0 = i + 1
Exit For
End If
End If
Next i
End If
If Ok Then
For i = k0 + 1 To N_Let - 1
If Mid(R_Str, i, 1) <> " " And _
Mid(R_Str, i + 1, 1) = " " Then
k1 = i
If Ok Then Exit For
End If
Next i
End If
If Ok Then
If k1 = 0 Then k1 = N_Let
Res = Mid(R_Str, k0, k1 - k0 + 1)
TB_Res.Text = Res
Else
TB_Res.Text = "Нет такого слова"
End If