Extract Words

[Access]

Code: Select all

            <td align="right">Saudi-Arabien</td>
            <td></td>
            <td>Spanien</td>
          </tr>
          <tr class="ergebnis">
            <td align="right">0</td>

            <td>:</td>
            <td>0</td>
          </tr>
        </table>
      </div>

      

Thats Data i´ve cached from a Webpage....

Now i am to stupid to use regexp i think....

I want the following variables:

$team1 = "Saudi-Arabien"
$team2 = "Spanien"
$score1 = "0"
$score2 = "0"

HOW CAN I DO THIS? Plz help

THX!

[Garp]

http://forum.egghelp.org/viewtopic.php? ... strip+html

[phab]

Quick and REALLY dirty:

Code: Select all

#!/usr/bin/env tclsh
set output {            <td align="right">Saudi-Arabien</td>
            <td></td>
            <td>Spanien</td>
          </tr>
          <tr class="ergebnis">
            <td align="right">0</td>

            <td>:</td>
            <td>0</td>
          </tr>
        </table>
      </div>}

regsub -all -- {<[^>]*>} $output "" output 
regsub -all -- {\n} $output "" output

puts "[lindex $output 0] [lindex $output 2]:[lindex $output 4] [lindex $output 1]"

Output:

Code: Select all

phab@Debian:~$ ./blahblah.tcl
Saudi-Arabien 0:0 Spanien