Simple word count

[Jonesgj]

Hi,

Whats the best way to do a word count of the content of a rich text box?

Thanks in advance

Jones GJ

[Liz]

"Jonesgj" <[e-mail]> wrote in message news:If********************@bt.com...

Hi,

Whats the best way to do a word count of the content of a rich text box?

Thanks in advance

this is NOT the best way (it's actually an embarassing way) ... but you did
say "simple" and it may be good enough for your purposes:

dim wordcount as integer

dim a as string() = RichText.Text.Split(" ")

wordcount = a.length

[Jonesgj]

Thanks Liz,

I tried counting spaces before, and, even after checking for double spaces
found the accuracy decreased with the length of text being analysed
(dependent on quality of typing!)

Just wondered if there was something a liitle more accurate.

Thanks again
"Liz" <li*@no-spam.org> wrote in message
news:vi********************@fe04.news.easynews.com ...

"Jonesgj" <[e-mail]> wrote in message news:If********************@bt.com...

Hi,

Whats the best way to do a word count of the content of a rich text box?

Thanks in advance

this is NOT the best way (it's actually an embarassing way) ... but you
did say "simple" and it may be good enough for your purposes:

dim wordcount as integer

dim a as string() = RichText.Text.Split(" ")

wordcount = a.length

[Göran Andersson]

Another simple way that creates way less number of objects:

wordcount = RichText.Text.Length - RichText.Text.Replace(" ",
string.Empty).Length

Liz wrote:

"Jonesgj" <[e-mail]> wrote in message news:If********************@bt.com...

Hi,

Whats the best way to do a word count of the content of a rich text box?

Thanks in advance

this is NOT the best way (it's actually an embarassing way) ... but you did
say "simple" and it may be good enough for your purposes:

dim wordcount as integer

dim a as string() = RichText.Text.Split(" ")

wordcount = a.length

[Cor Ligthert [MVP]]

Jonesgj,

If I had not seen the method from Goran, I would have uses the overloaded
split (at the end there is no whitespace by instance).

http://msdn.microsoft.com/library/de...plittopic1.asp

Now I think that even the great method as Goran shows, but than more times
done, will be much more efficient.

http://msdn.microsoft.com/library/de...lacetopic1.asp

Be aware that you use this char method " "c because that is for sure much
faster than the replace string string method.

I hope this helps,

Cr

"Jonesgj" <[e-mail]> schreef in bericht news:vZ********************@bt.com...

Thanks Liz,

I tried counting spaces before, and, even after checking for double spaces
found the accuracy decreased with the length of text being analysed
(dependent on quality of typing!)

Just wondered if there was something a liitle more accurate.

Thanks again
"Liz" <li*@no-spam.org> wrote in message
news:vi********************@fe04.news.easynews.com ...

"Jonesgj" <[e-mail]> wrote in message
news:If********************@bt.com...

Hi,

Whats the best way to do a word count of the content of a rich text box?

Thanks in advance

this is NOT the best way (it's actually an embarassing way) ... but you
did say "simple" and it may be good enough for your purposes:

dim wordcount as integer

dim a as string() = RichText.Text.Split(" ")

wordcount = a.length

[Jonesgj]

Hi Cr,

Followed the first link and yes, that is certainly million times better than
my previous efforts

Many thanks

Jonesg

"Cor Ligthert [MVP]" <no************@planet.nl> wrote in message
news:%2***************@TK2MSFTNGP02.phx.gbl...

Jonesgj,

If I had not seen the method from Goran, I would have uses the overloaded
split (at the end there is no whitespace by instance).

http://msdn.microsoft.com/library/de...plittopic1.asp

Now I think that even the great method as Goran shows, but than more times
done, will be much more efficient.

http://msdn.microsoft.com/library/de...lacetopic1.asp

Be aware that you use this char method " "c because that is for sure much
faster than the replace string string method.

I hope this helps,

Cr

"Jonesgj" <[e-mail]> schreef in bericht
news:vZ********************@bt.com...

Thanks Liz,

I tried counting spaces before, and, even after checking for double
spaces found the accuracy decreased with the length of text being
analysed (dependent on quality of typing!)

Just wondered if there was something a liitle more accurate.

Thanks again
"Liz" <li*@no-spam.org> wrote in message
news:vi********************@fe04.news.easynews.com ...

"Jonesgj" <[e-mail]> wrote in message
news:If********************@bt.com...
Hi,

Whats the best way to do a word count of the content of a rich text
box?

Thanks in advance
this is NOT the best way (it's actually an embarassing way) ... but you
did say "simple" and it may be good enough for your purposes:

dim wordcount as integer

dim a as string() = RichText.Text.Split(" ")

wordcount = a.length

[cj]

I'd like to take credit for it but this is found on page 3 of the
article at http://www.ftponline.com/vsm/2003_01...atures/balena/

..... the \w+ regular expression matches any word, so you count the words
in a source string with only two statements:

Dim text As String = "Here is a sample sentence"
Dim re As New Regex("\w+")
Console.WriteLine( _
re.Matches(text).Count) ' => 5

Jonesgj wrote:

Hi,

Whats the best way to do a word count of the content of a rich text box?

Thanks in advance

Jones GJ