Code:

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

Code:

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

Code:

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

Code:

<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]]

Code:

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

Code:

#This will count total characters than alphabets and words including them alsoset total_characters [string length [string map {" " ""} $text]]set total_characters [string length [string trim $text]]or#This will only count total alphabets and wordsset 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 smiliesset total_smiles [regexp -all {:)} $text]