Создание программы для подсчета символов

@папаКарил · Регистрация: 07.03.2011

Студворк — интернет-сервис помощи студентам

Доброго времени суток! На форме есть текстбокс, кнопка и несколько лейблов:
1. Нужно посчитать кол-во символов, введенных в текстбокс(без пробелов)

VB.NET
1
Label1.Text = TextBox1.TextLength' считает с пробелами

2. Нужно посчитать количество слов, введенных в текстбокс, для этого, я думаю, нужно как-то посчитать пробелы?
Помогите разобраться!

Памирыч · 25.04.2011, 18:22

Используй функцию Split, передавая в качестве параметра делиметра - пробел.
Размер полученного массива и будет количеством слов

@папаКарил · 25.04.2011, 19:14 **[ТС]**

Вот код с msdn немного переделанный, но определяет кол-во символов только последнего слова и не определяет пробелы при переходе на др сточку:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim words As String = TextBox1.Text
        Dim split As String() = words.Split(New [Char]() {" "c, ","c, "."c, ":"c})
 
        For Each s As String In split
            If s.Trim() <> "" Then
                Label1.Text = s.Length
            End If
        Next s
 
    End Sub

Подскажите, как исправить

Памирыч · 25.04.2011, 19:31

папаКарил, Хрень какая-то.
Не по теме:

VB.NET
1
New [Char]() {" "c, ","c, "."c, ":"c}

Что за страсти? Это то же что и:

VB.NET
1
New Char() {" ", ",", ".", ":"}

Так получается, в тексте будут не только пробелы?

Добавлено через 4 минуты
Если нужны не только слова а еще и цифры, то заюзай регулярные выражения (см. форум) с паттерном:

VB.NET
1
\w+

@папаКарил · 25.04.2011, 19:53 **[ТС]**

Спасибо
PS такие страсти взяты с мсдн

Так дело в том, что считает только символы после пробела, например:
ыыыыы - 5символов
ыыы ыы - 2 символа, а должно быть 5
как можно исправить

Eugene22 · 25.04.2011, 21:40

примерно так

VB.NET
1
2
3
4
5
6
7
8
9
10
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kol As Integer = 0
        For i As Integer = 0 To TextBox1.TextLength - 1
            If TextBox1.Text(i) = " " Or TextBox1.Text(i) = "." Then
                Continue For
            End If
            kol += 1
        Next
        MessageBox.Show("Всего символов : " & kol)
    End Sub

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	25.04.2011, 18:22
	Используй функцию Split, передавая в качестве параметра делиметра - пробел. Размер полученного массива и будет количеством слов 1

@папаКарил 10 / 3 / 1 Регистрация: 07.03.2011 Сообщений: 88
	25.04.2011, 19:53 [ТС]
	Спасибо PS такие страсти взяты с мсдн Так дело в том, что считает только символы после пробела, например: ыыыыы - 5символов ыыы ыы - 2 символа, а должно быть 5 как можно исправить 0