If the two strings have words separated by a dot, comma or just space you would need to turn the string into a list by splitting them by that element, in your case that dot. We achieve this by using the split function.
Code:
set texta [split $texta .]set textb [split $textb .]We achieve this by using foreach to loop, lsearch to see if a element is in a list and by using incr will be incrementing the count variable when a match was found.
Code:
set count 0foreach ele $texta {if {[lsearch -nocase $textb $ele] != -1} {incr count}}After the foreach loop has finished you will have in $count the total number of matches it found. Notice the lack of $ in front of the count at the incr line. There's no need for it there, but when you want to see it's value you would need that dollar sign in front of it.
If you want to see how long is the second list and how many of the words it matched then you could use llength to get it's length and expr to do the math calculation of the exact percentage.
Code:
set size [llength $textb]set percentage [expr $count*100/$size]Something worth checking: lists and strings
Edit: After a bit of thinking I've come with a different approach that's a bit more straight forward than the above method by using lmap, but would still need to split those two strings.
Code:
set texta [split $texta .]set textb [split $textb .]set matches [lmap x $texta {expr {[lsearch -nocase $textb $x] !=1 ? $x : [continue]}}]Code:
set size [llength $textb]set count [llength $matches]set percentage [expr $count*100/$size]Code:
set matches [list]foreach ele $texta {if {[lsearch -nocase $textb $ele] != -1} {incr countlappend matches $ele }}If you got any questions don't hesitate to ask.
Statistics: Posted by caesar — Tue Mar 10, 2015 8:15 am
]]>