Подсчёт...
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 2
• Страница 1 из 1
- Человек
- Обычный пользователь
- Сообщения: 57
- Зарегистрирован: 02.01.2004 (Пт) 15:34
- Откуда: Russia. Saint-Petersburg
Подсчёт...
Человек » 09.02.2004 (Пн) 21:02
Как мне подсчитать сколько букв и слов в TextBox'e?
--<Более мощный компьютер глючит быстрее и точнее>--
- Kostyan
- Постоялец
- Сообщения: 439
- Зарегистрирован: 20.09.2002 (Пт) 4:14
- Откуда: Россия, Уссурийск
Kostyan » 10.02.2004 (Вт) 1:24
Добавь на форму TextBox, Label и кнопку, в кнопку помести этот код:
Разделителем слов считается пробел (или несколько пробелов), остальные сочетания символов считаются словами.
- Код: Выделить всё
Label1.Caption = "Букв = " & Len(Text1.Text)
k = 0: n = 0
For i = 1 To Len(Text1.Text)
If Mid$(Text1.Text, i, 1) = " " Then
k = 0
ElseIf k = 0 Then
k = 1: n = n + 1
End If
Next
Label1.Caption = Label1.Caption & " Слов = " & n
Разделителем слов считается пробел (или несколько пробелов), остальные сочетания символов считаются словами.
Нет ничего невозможного для человека с интеллектом.
Сообщений: 2
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: SemrushBot и гости: 4