My word count function that can do with some re-tweaking.

#include <Array.au3>
#include <Constants.au3>

MsgBox($MB_SYSTEMMODAL, '', WordCount(FileRead(@ScriptFullPath)))

Func WordCount($sString)
    Local $aSRE = StringRegExp($sString, '(?<=\s)\S+?(?=\s)', 3)
    ; _ArrayDisplay($aSRE)
    Return UBound($aSRE) - 1
EndFunc   ;==>WordCount