Counting Characters in a text box...

[thegenesi]

I am trying to write an app that will display the number of characters (including spaces) in a text box whose total of characters will be displayed in a label. However, it seems to want to count the Microsoft.VisualBasic.ControlChars.Lf that is generated when I hit enter (or at least I believe that is what is causing the additonal characters).

I would like to remove the additonal characters so that say if i hit enter five times the number of paragraphs will increase by 5 but the characters amount will stay at 0.

Thanks

[MrGTI]

Post the code you already have to count the characters, and we'll see what we can do with it.

[thegenesi]

Option Strict On
Option Explicit On
Imports System.Convert
Imports Microsoft.VisualBasic.ControlChars
Imports Course.StringProcessor

Public Class frmMain
Inherits System.Windows.Forms.Form

Private Sub btnAnalyzeText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnalyzeText.Click
''''''''''''''''''''''''''''''''''''''''''''
'Variables for counting
''''''''''''''''''''''''''''''''''''''''''''
Dim intCharacterCount As Integer
Dim intWordCount As Integer = 0
Dim intSentences As Integer = 0
Dim intParagraphs As Integer = 0

Dim WordsTotal As Integer


Dim intvbL As Integer


Dim count As Integer

''''''''''''''''''''''''''''''''''''''''''''
'Total Characters in text box
''''''''''''''''''''''''''''''''''''''''''''
If txtTextScan.Text = Nothing Then
intCharacterCount = 0
WordsTotal = intCharacterCount - intvbL
lblCharactersTotals.Text = WordsTotal.ToString

Else
intCharacterCount = txtTextScan.TextLength
lblCharactersTotals.Text = intCharacterCount.ToString
End If

''''''''''''''''''''''''''''''''''''''''''''
'Total Words in text box
''''''''''''''''''''''''''''''''''''''''''''

Dim strWords() As String

strWords = Split(txtTextScan.Text, ".")

For count = 0 To UBound(strWords)
If txtTextScan.Text = " " Then
intWordCount = 0
If Len(strWords(count)) > 0 Then
intWordCount = intWordCount + 1
End If
End If
Next

lblWordsTotals.Text = intWordCount.ToString

''''''''''''''''''''''''''''''''''''''''''''
'Total Sentences in text box
''''''''''''''''''''''''''''''''''''''''''''

Dim strLines() As String

strLines = Split(txtTextScan.Text, ".")

For count = 1 To UBound(strLines)
If txtTextScan.Text = " " Then
intSentences = 0
Else
If Len(strLines(count)) > 0 Then
intSentences = intSentences + 1
End If
End If
Next

lblSentencesTotals.Text = intSentences.ToString

''''''''''''''''''''''''''''''''''''''''''''
'Total Sentences in text box
''''''''''''''''''''''''''''''''''''''''''''

Dim strParagraphs() As String

strLines = Split(txtTextScan.Text, Microsoft.VisualBasic.ControlChars.Lf)


For count = 0 To UBound(strLines)
If Len(strLines(count)) > 0 Then
intParagraphs = intParagraphs + 1
End If
Next

lblParagraphsTotals.Text = intParagraphs.ToString

intvbL = intParagraphs

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class

[MrGTI]

Hopefully this will help:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '''''''''''''''''''''''''''''''''''''''''''' 
        'Variable declaration section
        '''''''''''''''''''''''''''''''''''''''''''' 
        Dim intWordCount As Integer = 0
        Dim intSentences As Integer = 0
        Dim intParagraphs As Integer = 0
 
        Dim WordsTotal As Integer
        Dim intvbL As Integer
        Dim count As Integer
 
        '''''''''''''''''''''''''''''''''''''''''''' 
        'Total Characters in text box section
        '''''''''''''''''''''''''''''''''''''''''''' 
        'If InStr(txtTextScan.Text, Microsoft.VisualBasic.ControlChars.Lf) > 0 Then MsgBox("Found LineFeed Character(s).")
        Dim sInputText As String = txtTextScan.Text.Replace(Microsoft.VisualBasic.ControlChars.CrLf, "")
        'Uncomment these lines if you find you need/want them
        'sInputText = sInputText.Replace(Microsoft.VisualBasic.ControlChars.Lf, "")
        'sInputText = sInputText.Replace(Microsoft.VisualBasic.ControlChars.Cr, "")
        Dim iCharacterCount As Integer = 0
        If sInputText = "" Then
            WordsTotal = iCharacterCount - intvbL
            lblCharactersTotals.Text = WordsTotal.ToString
        Else
            iCharacterCount = sInputText.Length
            lblCharactersTotals.Text = iCharacterCount.ToString
        End If
 
        '''''''''''''''''''''''''''''''''''''''''''' 
        'Total Words in text box section
        '''''''''''''''''''''''''''''''''''''''''''' 
        Dim strWords() As String
        strWords = Split(txtTextScan.Text, ".")
 
        For count = 0 To UBound(strWords)
            If txtTextScan.Text = " " Then
                intWordCount = 0
                If Len(strWords(count)) > 0 Then
                    intWordCount = intWordCount + 1
                End If
            End If
        Next
        lblWordsTotals.Text = intWordCount.ToString
 
        '''''''''''''''''''''''''''''''''''''''''''' 
        'Total Sentences in text box 
        '''''''''''''''''''''''''''''''''''''''''''' 
        Dim strLines() As String
        strLines = Split(txtTextScan.Text, ".")
 
        For count = 1 To UBound(strLines)
            If txtTextScan.Text = " " Then
                intSentences = 0
            Else
                If Len(strLines(count)) > 0 Then
                    intSentences = intSentences + 1
                End If
            End If
        Next
        lblSentencesTotals.Text = intSentences.ToString
 
        '''''''''''''''''''''''''''''''''''''''''''' 
        'Total Paragraphs in text box section
        '''''''''''''''''''''''''''''''''''''''''''' 
        Dim strParagraphs() As String
        strLines = Split(txtTextScan.Text, Microsoft.VisualBasic.ControlChars.Lf)
 
        For count = 0 To UBound(strLines)
            If Len(strLines(count)) > 0 Then
                intParagraphs = intParagraphs + 1
            End If
        Next
        lblParagraphsTotals.Text = intParagraphs.ToString
        intvbL = intParagraphs
 
    End Sub

[thegenesi]

Thank you that did it

I'm going to have to examine that code more closely. By the way is Len still considered to be a Vb.NET function? I used it all the time in 6 but just recently discovered VB.Net supports it. Makes alot of counting situations a lot easier.

[MrGTI]

You're welcome. I only changed a few minor things. It's simple enough that i'm sure you'll see the differances quite readily.

The Len function still exists in VB.NET, and it's fine to use it. You have already noticed that you can get the length of a string by using the built in Length function inherant to the .NET string class.

[thegenesi]

Coluld you recommend another way or idea to count the number of characters or such if the Len function didn't exsist?

[MrGTI]

Yes, the built in Length function that is a part of the String class:

Dim iLength As Integer = sText.Length

(obviously sText is a string variable)