Statistics: Posted by Sir_Fz — Tue Dec 30, 2003 5:23 pm

Statistics: Posted by Papillon — Tue Dec 30, 2003 3:44 pm

Statistics: Posted by caesar — Tue Dec 30, 2003 3:30 pm

Code:

foreach line [split $tosave \n] {     if {[llength $line] == 0 || [lindex $line 0] == {-}} {       continue     }     regsub {(\d){2,}[']} [string trim $line] {} line     if {[regexp {^(\d){2}:(\d){2}$} $line]} {       set nline $line       continue    } else {      append nline " $line"      putlog $nline       unset nline    }    incr i   }

Statistics: Posted by Papillon — Tue Dec 30, 2003 11:57 am

Date: Marti, 30-12-2003
07:00 Dennis, pericol public (SUA desene animate, rel.)
08:00 Minute de milioane
etc.

Statistics: Posted by caesar — Tue Dec 30, 2003 10:39 am

Statistics: Posted by Sir_Fz — Tue Dec 30, 2003 10:18 am

bind dcc * bla my:bla proc my:bla {idx hand arg} {   set content [read [set f [open "tv.txt" r]]][close $f]  putlog "searching..."   set tosave [string range $content [set f [string first "<!-- programul canalului ales -->" $content]] [string first "<!-- template 2000 jos-->" $content $f]]  regsub -all -- {</b>|<br>|</font>} $tosave {  }  tosave  regsub -all -- {<[^>]*>} $tosave {}  tosave  regsub -all -- { } $tosave { }  tosave  set i 0 ;set o {}  foreach line [split $tosave \n] {     if {[llength $line] == 0 || [lindex $line 0] == {-}} {       continue     }     regsub {(\d){2,}[']} [string trim $line] {} line    putlog $line    incr i   }   putlog "finished... $i line[expr {$i==1?"":"s"}].." } 

Statistics: Posted by Papillon — Tue Dec 30, 2003 8:40 am

Statistics: Posted by caesar — Tue Dec 30, 2003 7:54 am

Statistics: Posted by Papillon — Tue Dec 30, 2003 7:43 am

Statistics: Posted by caesar — Mon Dec 29, 2003 7:22 pm

Code:

foreach line $tosave {     if {[llength $line] == 0} {       continue     }     regsub {(href=http:).*(id__)(\d){6}} $line {} line     regsub {(\d){2,}$} $line {} line    putlog $line     incr i   }   putlog "finished... $i line[expr {$i==1?"":"s"}].." 

% set line "href=http://tv.kappa.ro/loc__detalii/id__469556Roseanne (SUA serial de comedie, 1988) 30"
href=http://tv.kappa.ro/loc__detalii/id__469556 Roseanne (SUA serial de comedie, 1988) 30
% regsub {(href=http:).*(id__)(\d){6}} $line {} line ;puts $line
Roseanne (SUA serial de comedie, 1988) 30
% regsub {(\d){2,}$} $line {} line ;puts $line
Roseanne (SUA serial de comedie, 1988)
%

Statistics: Posted by Papillon — Mon Dec 29, 2003 6:01 pm

Code:

bind dcc * bla my:blaproc my:bla {idx hand arg} {  set content [split [read [set f [open "tv.txt" r]]][close $f] \n]   putlog "searching..."  regsub -all -- {<td|colspan="3"|bgcolor="#EFEFEF"><div align="center"><strong>|</strong></div></td>} $content "" content  regsub -all -- {<table width="440"|cellpadding="0"|cellspacing="0"|align="center"|border=0>|<tr>|</tr>} $content "" content  regsub -all -- {valign="top"|width="40"|><font size=1>|</font></td>|width="20"|>-</td>|<B>|</B>} $content "" content  regsub -all -- {<a||bgColor='#fafafa'|bgColor='#A6A6FF'|style='text-decoration:none} $content "" content  regsub -all -- {'</font> <img|src='http://tv.kappa.ro/images/detalii.gif'|border=0 alt='detalii'></a>|</font> <img|'} $content "" content  set up [expr [lsearch $content "<!-- programul canalului ales -->"] + 2]  set down [expr [lsearch $content "*<!-- template 2000 jos-->*"] - 2]  set tosave [lrange $content $up $down]  set i 0  foreach line $tosave {    if {[llength $line] == 0} {      continue    }    putlog $line    incr i  }  putlog "finished... $i line[expr {$i==1?"":"s"}].."}

Statistics: Posted by caesar — Mon Dec 29, 2003 9:13 am

Code:

#to remove the http-part (as long as the number is always 6 digits long)regsub { (href=http:).*(id__)(\d){6}} $line {} newline#to remove the numbers and the 'regsub { (\d){3}\'} $line {} newline

Statistics: Posted by Papillon — Mon Dec 29, 2003 8:17 am

Statistics: Posted by caesar — Mon Dec 29, 2003 7:03 am