counter

[sith]

Where can I find a counter for counting number of words letters, smilies which was sent on the chanel by every user?

[awyeah]

I don't beleive you can find a counter, but here a simple examples:

Code: Select all

#This will count total characters than alphabets and words including them also
set total_characters [string length [string map {" " ""} $text]]
set total_characters [string length [string trim $text]]
or
#This will only count total alphabets and words
set total_characters [regexp -all -nocase {[A-Z][0-9]} $text]

set total_alphabets [regexp -all -nocase {[A-Z]} $text]
set total_numbers [regexp -all {[0-9]} $text]

set total_words [llength $text]

#To count smilies
set total_smiles [regexp -all {:)} $text]

[Sir_Fz]

Edit: Bogus info.

[awyeah]

These 2 seem to work:

Code: Select all

<awyeah> .tcl regexp -all {[A-Z]} "QWRDFGDSGER86574575HDFGF"
<adapter> Tcl: 16

<awyeah> .tcl regexp -all {[0-9]} "QWRDFGDSGER86574575HDFGF"
<adapter> Tcl: 8

This one doesn't

Code: Select all

<awyeah> .tcl regexp -all -nocase {[A-Z][0-9]} "QWRDFGDSGER86574575HDFGF"
<adapter> Tcl: 1

#But you can count [A-Z] and [0-9] seperately above and add them with expr.

set total_characters [expr [regexp -all {[A-Z]} $text] + [regexp -all {[0-9]} $text]]

And this works too:

Code: Select all

<awyeah> .tcl regexp -all {:\)} "QWRDFGDSGER86574575HDFGF:):):)"
<adapter> Tcl: 3

[Sir_Fz]

Oh yeah, the '-all' switch (sorry for my stupidity).

for the second one, you can use:

Code: Select all

set total_characters [regexp -all -nocase {[A-Z]|[0-9]} $text]

or you can remove the -nocase switch and use:

Code: Select all

set total_characters [regexp -all {[A-z]|[0-9]} $text]