Code:

set somestring "FIR\nrandom1\nrandom2\nrandom3\nFIRST\nrandom4\nrandom5\nrandom6\nLAST\nrandom7\netc"bind pub n .s pub:sproc pub:s { n u h c t } {  if {[llength [split $t]] != 2} { puthelp "PRIVMSG $c :usage: .s <first> <last>" ; return }  if {[set result [s [lindex [split $t] 0] [lindex [split $t] 1]]] != "ERROR" } {    foreach l $result { puthelp "PRIVMSG $c :$l" }    return  }  puthelp "PRIVMSG $c :$result"  return}proc s { f l } {  set d [split $::somestring \n] ;# set d $::somestring (if it's a list)  if {[set f [lsearch $d $f]] != -1 && [set l [lsearch $d $l]] != -1} {    set r [lrange $d [expr {$f+1}] [expr {$l-1}]]  } { return ERROR }}

<you> .s FIRST LAST
<bot> random4
<bot> random5
<bot> random6

can also use wildcards
<you> .s *IRS* *AST
<bot> random4
<bot> random5
<bot> random6

Statistics: Posted by spock — Mon Jan 24, 2005 1:31 pm

Code:

FIR random text1 random text2 random text3 FIRST random text4 random text5 random text6 LAST random text7 random text8 random text9 NEXT [...] 

Statistics: Posted by micky — Mon Jan 24, 2005 12:41 pm

Code:

proc s { w f l } {  set fp [open $w r] ; set d [split [read $fp] \n] ; close $fp  set r [lrange $d [expr {[lsearch $d $f]+1}] [expr {[lsearch $d $l]-1}]]}

% s <file> FIRST LAST
text4 text5 text6

Statistics: Posted by spock — Mon Jan 24, 2005 9:32 am

FIRtext1text2text3FIRSTtext4text5text6LASTtext7text8text9NEXT[...]

Statistics: Posted by micky — Mon Jan 24, 2005 8:27 am