Как подсчитать количество символов?

[MasterNIK]

Уважаемые!
Подскажите пожалуйста, как подсчитать количество символов в каждом слове предложения введеного в textbox.
Задача заключаеться в подсчете слов в предложение с проверкой на максимальное и минимальное количество введенных, И подсчет символов в каждом слове предложения, и вывод количества символов в для каждого слова свой label.

Так вот количество слов в предложение я подсчитал и проверку организовал, а вот чтобы каждое слово отдельно считалось не могу сделать. Помогите!!!

[Alexanbar]

Границей слова, как известно, могут быть пробел, запятая, точка с запятой, ... или иной знак препинания.

Чтобы найти любой из этих знаков, нужно использовать ф-ю Instr:

s$="Мама мыла раму"
st&=1


N&=Instr(st&,s," ", vbtextcompare)

If N>0 then
'нашли первое слово
s1$=trim(left(s,N))
'удаляем запятую, если она была
s1=replace(s1,",","")
'удаляем точку с запятой, если она была
s1=replace(s1,";","")
........


st=N+1
else

end if

Далее повторяем поиск для нового st.

[MasterNIK]

Спасибо, разабрался.
Очень благодарен.

Ну как мне заставить считать все слова подряд???

[Alexanbar]

Ну как мне заставить считать все слова подряд???

Объявить новую переменную - счётчик

if N>0 then
....
J=J+1
'если нужно их запомнить, организуем массив:
Redim Preserve Words(1 to j)
Words(j)=s1

....

[MasterNIK]

У меня не получаеться я скорее всего чего то не понимаю, или объяснил я не правильно.

Данный код считает кол-во символов в первом слове предложения.

Код: Выделить всё


s$ = TxtZh.Text
'Из текст бокса беру его содержимое
st& = 1

N& = InStr(st&, s, " ", vbTextCompare)

If N > 0 Then
s1$ = RTrim(Left(s, N))
st = N - 1
Lbl2.Caption = st
End If

А как сделать, что бы считались символы каждого слова в отдельный Label? Слов максимум в предложение может быть 10.
Без точек и запятых.
По пробелам как посчитать количество символов в каждом слове???

[coderx]

Код: Выделить всё

Private Sub Command1_Click()
Dim a
a = Split(Text1.Text, " ")
Cls
For i = 0 To UBound(a)
If a(i) <> "" Then Print Len(a(i))
Next i
End Sub