Code: Select all
foreach line [split $body \n] {
if {[string match "*color:blue;\"><b>*" $line]} {
regexp {<b>(.*)</b>} $line - news
}
}
}
Code: Select all
foreach line [split $body \n] {
if {[string match "*color:blue;\"><b>*" $line]} {
regexp {<b>(.*)</b>} $line - news
}
}
}