Count How Many Words

[Thatsgreat2345 0]

well im working on some homework and i have to have atleast 100 words and since im typing it all on one document i cant check to see how many for each i have so is there any way to make like a GUI with an edit box , i can just paste the text in press go and it will tell me how many words i have, dont have autoit installed so i cant look at the help file

Edited January 15, 2006 by thatsgreat2345

[Oxin8 1]

maybe this will work instead? http://www.javascriptkit.com/script/script2/countwords.shtml

[GrungeRocker 0]

maybe try to do it with stringsplit, an then check the arry oO

[Thatsgreat2345 0]

THANKS SMOKEN just IMed him and he helped me

Edited January 15, 2006 by thatsgreat2345

[SmOke_N 199]

maybe try to do it with stringsplit, an then check the arry oO

If you did a StringSplit() why would you check the array?

Func FindWords($s_Text)
    Return Ubound(StringSplit(StringStripWS($s_Text, 7), ' ') - 1
EndFunc

[Thatsgreat2345 0]

|

v yes thanks SMOKEN

$MainGui = GuiCreate('Test GUI', 215, 160)

$edit = GUICtrlCreateEdit('', 10, 10, 195, 110)

$start = GUICtrlCreateButton('Convert', 80, 120, 60, 30)
$sclear = GUICtrlCreateButton('clear', 80, 150, 60, 30)
GUISetState()

While 1

    $MainMsg = GUIGetMsg()

    Select

        Case $MainMsg = - 3

            Exit

        Case $MainMsg = $start

            $TotalWords = CountWords(GUICtrlRead($edit))

            MsgBox(0, '', $TotalWords)
    EndSelect

WEnd

 Func CountWords($s_All_Text)

    Local $SplitSpaces = StringSplit(StringStripWS($s_All_Text, 7), ' ')

    Return UBound($SplitSpaces) - 1

EndFunc

Edited January 15, 2006 by thatsgreat2345

[GrungeRocker 0]

If you did a StringSplit() why would you check the array?

Func FindWords($s_Text)
    Return Ubound(StringSplit(StringStripWS($s_Text, 7), ' ') - 1
EndFunc

i meant it that way ^.^'