FreeBasic

Сильно не тестировал данный пример , но на первый взгляд выглядит неплохо. С помощью этого кода можно проанализировать кол-во символов с пробелами, без пробелов, кол-во слов и кол-во параграфов.
Платформы: Windows, Linux
Автор: EJC

''''FreeBasic WordCount function by EJC
''''Designed for use with Windows text box
''''28/05/07

Declare Function Statistics(text As String) As Integer

Function Statistics(text As String) As Integer
    If Len(text) = 0 Then
        Print "There is no text to analyse!"
        Return 0
    End If
    Dim As Integer spaces,words,paras,i,length
    If Len(text) > 0 Then paras = 1
    For i = 0 To Len(text)-1
        If text[i] <> 13 And text[i] <> 10 Then length += 1
        If text[i] <> 13 And text[i-1] = 10 Then paras +=1
        If (text[i-1] = 32 Or text[i-1] = 10 Or text[i-1] = 9) And (text[i] <> 32 And text[i] <> 10 And text[i] <> 9 And text[i] <> 13) Then
            words += 1
        End If
        If text[i] = 32 Or text[i] = 9 Then
            spaces += 1
        End If
    Next i
    If text[i] <> 32 Then words += 1
    Print "Characters (with spaces):" , Str(length)
    Print "Characters (no spaces):" , Str(length-spaces)
    Print "Words:" , , Str(words)
    Print "Paragraphs:" , , Str(paras)
    Return 1
End Function

''''Console input:
Dim As String text
Input "Enter text to analyse: ", text

''''Alternatively, input from other source (eg. Windows text box)

Print
Dim As Integer stats
stats = Statistics(text)
Sleep