Как узнать количесво слов, знаков....

[Александр80]

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

Как сделать чтобы выводилось общее количество знаков (с пробелами) я знаю. А вот все остальное не получается...

Если можно покажите пример (код).

Пожалуйста помогите.....

[Nord777]

Подсчет количества слов

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'строка из которой нужно узнать количество слов
        Dim str As String
        str = TextBox1.Text
        MsgBox(NumberWords(str).ToString)
    End Sub

    Public Function NumberWords(ByVal str As String) As Integer
        Dim pattern As String
        Dim strmas() As String
        Dim Number As Integer

        If str = "" Then Return 0

        'в качестве разделителей слов испльзуем любые пробельные символы ( "\s" )
        'к ним относятся символы пробела, табуляции и возврата каретки
        ' знак + соответствует одному или более появлениям шаблона
        pattern = "\s+"

        'разбиваем строку на слова
        strmas = System.Text.RegularExpressions.Regex.Split(str, pattern)

        Number = strmas.GetLength(0)

        If strmas(0) = "" Then Number -= 1
        If strmas(UBound(strmas)) = "" Then Number -= 1
        Return Number
    End Function

[Александр80]

Nord77-СПАСИБО....