Count Words

[BrettF]

How could i count words in an gui edit control???? Jus tpoint me in the right direction...

[MHz]

Here is a idea

$var = GUICtrlRead($edit)
$var = StringStripWS($var, 7)
StringReplace($var, ' ', '') ; check @extended + 1 = word count

you may also need to check for carriage returns or line feeds in the result as they are also whitespace.

[MrCreatoR]

Somthing like that:

Dim $Count = 0

GUICreate("Count Words GUI", 300, 200)
$IdControl = GUICtrlCreateEdit("my words count", 50, 10)
$Button1 = GUICtrlCreateButton("Count", 120, 170, 60)

GUISetState()

While 1
    $Msg = GUIGetMsg()
    Select
        Case $Msg = -3
            Exit
        Case $Msg = $Button1
            $ReadCtrl = StringStripWS(StringReplace(GUICtrlRead($IdControl), @CRLF, " "), 3)
            $ReadCtrlArr = StringSplit($ReadCtrl, " ")
            If IsArray($ReadCtrlArr) And $ReadCtrl <> "" Then $Count = $ReadCtrlArr[0]
            If $Count <> 0 Then
                $WordsMsg = "word"
                If $Count > 1 Then $WordsMsg = "words"
                MsgBox(64, "", "There is <" & $Count & "> " & $WordsMsg & " in the edit Ctrl")
                $Count = 0
            Else
                MsgBox(48, "Error", "There is no words in the Edit Ctrl")
            EndIf
    EndSelect
WEnd

Edited February 7, 2007 by MsCreatoR

[SmOke_N]

#include <array.au3>
$sString = "How could i count the words."
$aArray = StringRegExp($sString, "[\s\.:;,]*([a-zA-Z0-9-_]+)[\s\.:;,]*", 3)
MsgBox(0, 'Word Count', UBound($aArray))
_ArrayDisplay($aArray, '')

[BrettF]

@all: Thanks guys. I'll see what works best.

[BrettF]

Wow! All of your scripts work perfectly thanks alot. I think i'll have to SmokeNs (I'll reference this time:D) because it's easy to read and works the best. Thanks all.