egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-10-17T23:29:07-04:00 https://forum.eggheads.org/app.php/feed/topic/8424 2004-10-17T23:29:07-04:00 2004-10-17T23:29:07-04:00 https://forum.eggheads.org/viewtopic.php?p=41968#p41968 <![CDATA[striping html tags]]>
% puts $html
text <a href="http://host.tld/">desc</a> test text <a href="http://host.tld/">desc</a> test
% regexp {<a href=\"(.*?)\">(.*?)</a>} $html a b
1
% puts $a
<a href="http://host.tld/">desc</a>
% puts $b
http://host.tld/
%
verry nice

Statistics: Posted by Ofloo — Sun Oct 17, 2004 11:29 pm

]]> 2004-10-11T14:30:40-04:00 2004-10-11T14:30:40-04:00 https://forum.eggheads.org/viewtopic.php?p=41758#p41758 <![CDATA[striping html tags]]>

Statistics: Posted by user — Mon Oct 11, 2004 2:30 pm

]]> 2004-10-10T22:28:32-04:00 2004-10-10T22:28:32-04:00 https://forum.eggheads.org/viewtopic.php?p=41747#p41747 <![CDATA[striping html tags]]>

it didn't returned the url from href="<here>" but thats ok ..

Statistics: Posted by Ofloo — Sun Oct 10, 2004 10:28 pm

]]> 2004-10-10T21:16:58-04:00 2004-10-10T21:16:58-04:00 https://forum.eggheads.org/viewtopic.php?p=41746#p41746 <![CDATA[striping html tags]]>
this code should remove all the html tags

Code: 

regsub -all {<(.|\n)*?>} $html {} clean

Statistics: Posted by greenbear — Sun Oct 10, 2004 9:16 pm

]]> 2004-10-10T17:37:46-04:00 2004-10-10T17:37:46-04:00 https://forum.eggheads.org/viewtopic.php?p=41742#p41742 <![CDATA[striping html tags]]>
% set html {text <a href="http://host.tld/">desc</a> test text <a href="http://host.tld/">desc</a> test}
text <a href="http://host.tld/">desc</a> test text <a href="http://host.tld/">desc</a> test
% regexp {<a href=\"(.*)\">(.*)</a>} $html a b
1
% puts $a
<a href="http://host.tld/">desc</a> test text <a href="http://host.tld/">desc</a>
% puts $b
http://host.tld/">desc</a> test text <a href="http://host.tld/
%
see i need only the urls .. so i can remove them ..

a string can contain more then one url tag ..

Code: 

proc tagRemove {arg} {  set arg [string map {\\ \\\\ \[ \\\[ \] \\\] \{ \\\{ \} \\\} \( \\\( \) \\\) \" \\\"} $arg]  regexp {<a href=\"(.*)\">(.*)</a>} $arg a b  set arg [string map [list $a $b] $arg]}
the string above didn't do that as well but tnx for tyring..

Statistics: Posted by Ofloo — Sun Oct 10, 2004 5:37 pm

]]> 2004-10-10T17:09:08-04:00 2004-10-10T17:09:08-04:00 https://forum.eggheads.org/viewtopic.php?p=41739#p41739 <![CDATA[striping html tags]]>

Code: 

set html {text <a href="http://host.tld/">desc</a>}regexp {(.*).<a.*="(.*)">(.*)</a>} $html garbage text url desc

Statistics: Posted by greenbear — Sun Oct 10, 2004 5:09 pm

]]> 2004-10-10T16:42:51-04:00 2004-10-10T16:42:51-04:00 https://forum.eggheads.org/viewtopic.php?p=41736#p41736 <![CDATA[striping html tags]]>
example:
text <a href="http://host.tld/">desc</a> text => text http://host.tld/ text
i know this is been discussed before but i can't seem to find anything like this in the forum..

i tryed several querys but none outputted the result i was looking for

i checked regsub but can't put my finger on it ..

Statistics: Posted by Ofloo — Sun Oct 10, 2004 4:42 pm

]]>