egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2007-07-29T07:03:48-04:00 https://forum.eggheads.org/app.php/feed/topic/13835 2007-07-29T07:03:48-04:00 2007-07-29T07:03:48-04:00 https://forum.eggheads.org/viewtopic.php?p=74824#p74824 <![CDATA[Help with regexp/regsub]]> Statistics: Posted by Metuant — Sun Jul 29, 2007 7:03 am

]]> 2007-07-29T03:56:57-04:00 2007-07-29T03:56:57-04:00 https://forum.eggheads.org/viewtopic.php?p=74813#p74813 <![CDATA[Help with regexp/regsub]]>

Code: 

regsub -all "\t" $data "" dataregsub -all "\n" $data "" dataregsub -all "\r" $data "" dataregsub -all "\v" $data "" data
You can use a quantifier to express a range. This snippet should work:

Code: 

      while {[regexp "<!--name--><td class=\'tablebottom\'>(.*?)</td>.*?<!--price--><td class=\"tablebottom\">(.*?)</td>.*?<td class=\"tablebottom\" width=\"20\">" $data junk tname tprice]} {         regsub "<!--name--><td class=\'tablebottom\'>[addslashes $tname]</td>.*?<!--price--><td class=\"tablebottom\">[addslashes $tprice]</td>.*?<td class=\"tablebottom\" width=\"20\">" $data - data         if {$i == 0 || ([string match [string tolower [string range $item 0 1]] [string tolower [string range $tname 0 1]]] && [string length $tname] < [string length $name])} {            set name $tname            set price $tprice

Statistics: Posted by speechles — Sun Jul 29, 2007 3:56 am

]]> 2007-07-28T18:38:27-04:00 2007-07-28T18:38:27-04:00 https://forum.eggheads.org/viewtopic.php?p=74804#p74804 <![CDATA[Help with regexp/regsub]]>
I'm trying to parse some information from a website using regsub and regexp, but i'm completely useless at regexp so now that they've updated their website the regexp no longer works.

The block of information I'm trying to parse (which is sometimes repeated multiple times - hence the while in the code) is:

<tr>
<td class='tablebottom'><img src="/img/member.gif" alt="[M]"/></td>
<!--name--><td class='tablebottom'>Abyssal whip</td>
<td class="tablebottom" title="Former average price: 1,650,000gp [decreased by 50,000gp]"><img src="/img/market/p_d.gif" alt="This price has decreased" /></td>
<!--price--><td class="tablebottom">1,550,000gp - 1,650,000gp</td>
<td class="tablebottom" width="20"><a href="/priceguide.php?report=45&par=" title="Report Incorrect Price"><img src="/img/!.gif" alt="[!]" border="0" /></a></td>
<td class="tablebottom"><a href="/priceguide.php?category=45">Obsidian & Abyssal</a></td>
</tr>

</table></form><br />

I'm trying to grab the item name (Abyssal whip) and its price (1,550,000gp - 1,650,000gp)
Using...

Code: 

                while {[regexp "<!--name--><td class=\'tablebottom\'>(.*?)</td>\n\n<!--price--><td class=\"tablebottom\">(.*?)</td>\n<td class=\"tablebottom\" width=\"20\">" $data junk tname tprice]} {regsub "<!--name--><td class=\'tablebottom\'>[addslashes $tname]</td>\n\n<!--price--><td class=\"tablebottom\">[addslashes $tprice]</td>\n<td class=\"tablebottom\" width=\"20\">" $data - dataif {$i == 0 || ([string match [string tolower [string range $item 0 1]] [string tolower [string range $tname 0 1]]] && [string length $tname] < [string length $name])} {set name $tnameset price $tprice
I'm assuming that you can't just use \n\n to skip the line of useless data as I'd hoped..

Any help is appreciated

Statistics: Posted by Metuant — Sat Jul 28, 2007 6:38 pm

]]>