regexp X times

[t3ch^]

I got this code

Code: Select all

<a href="/Sections/Genres/Fantasy/">Fantasy</a> / <a href="/Sections/Genres/Adventure/">Adventure</a> / <a href="/Sections/Genres/Action/">Action</a>

This can vary in number and genres but the code is still the same.
How would i fetch all betwean > < ?
i figured somthing like this

Code: Select all

foreach [regexp -nocase {<a href=\"/Sections/Genres/[a-z]*/\">([a-z]*)</a>} $string string match] $string {
puthelp "NOTICE $nick :$match"
}

with this i get, in this case

Code: Select all

Fantasy
Fantasy

[user]

Check out the -all and -inline options (http://tcl.tk/man/tcl8.4/TclCmd/regexp.htm) and make sure you know how they work before writing the loop (you can't avoid reporting the entire match, so you need a variable for that value which will be discarded in most cases)