space count ! Help

Use this code.

txt = "This is Riz writing the code :)"
SpaceCount = 0
for x = 1 to len(txt)
if Mid(txt,x,1)=" " then SpaceCount = SpaceCount + 1
next
msgbox SpaceCount & " spaces found."

You guys really helped, thx again.
What i am trying to make is a word counter, and i thought the only way to count the words are to count the spaces between the words, so thats why i asked how to count the spaces.

I made the word counter, but theres only 1 problem :confused: , it counts the spaces too. :eek: For example if i type 3 spaces and no words, it says there are 3 words... lol
so now i am just trying to make this "word counter" into an actual word counter. :)

I think this might work. Try this I haven't tested it :)
THe program seems to be counting the characters, not words. but it does'nt count the spaces anymore :)

Try this:

Function WordCount(ByVal Text As String) As Integer

Dim MultiSpaces As Boolean
Dim Words() As String

Text = Trim(Text)
Do
Text = Replace(Text, " ", " ")
MultiSpaces = InStr(Text, " ")
Loop While MultiSpaces

Words = Split(Text)
WordCount = UBound(Words) + 1

End Function

I'm afraid i dotn know how to use the "Function" yet, so i dont understand the above codes, please use strings if possible. Thx.
I got to the point where everything works fine except, the program counts the extra spaces between words.

Hi EveryBody...
As you are checking for single space check for double space.

for i = 1 to len(txt)
if mid(txt,i,1)=" " and mid(txt,i+1,1)<>" " Then
i = i + 1
end if
next

i = i + 1 is the number of words.
hope this helps you.

Regards
AJ...

dim d() as string
d = split(myText, " ") '' <- only one space!
dim k as long
dim count as long
for k = 0 to ubound(d)
if len(d(k)) > 0 then count = count+1
next

split() returns an array splitting the string at every space, so it is possible to get empty words when there are more then ona space in between words, this is why I check for the length of the word to increase the word counter. The code works fine for any sequence of spaces, BUT:

this code works ONLY with spaces, and NOT if the words are separated by TAB o Return. In that case, one way is to scan the string char by char

actually, if the string is ""Hello how are you? " (any tailing spaces) the output is 5 and not 4, as well as the string " Hello how are you?" (any trailing spaces)
To fix this problem it is sufficient to Trim() the input string:
txt = Trim(txt)

Marco

hi mstraf,

I am talking about a string where there is more than one spaces between two words. i.e incase string "Hello World" is written with mulitple spaces between them. words are still 2, but with multiple spaces between them. Trim won't get rid off such spaces. To deal them the logic specified by me is capable to handle this situation.

Hope this time I am clear. One notified by you in example will work for all leading and trailing spaces. but what about spaces in middle of words.

Regards
AJ