Code:

# header and copyright......# .....#set cd_release "{./scripts/myfile.txt}"set rlsmaxsearch 10set cmdsearch "!search"set rlsflag ""if {$rlsflag == ""} {set rlsflag "-"}bind pub $rlsflag $cmdsearch pub:rlslocateproc pub:rlslocate {nick uhost handle chan arg} {global rlsmaxsearch cd_releaseif {[lindex $arg 0] == ""} {puthelp "PRIVMSG $chan :Syntax: $cmdsearch <Suchwort>" ;return 0}set totrlsfound 0foreach database $cd_release {  set rlsfile [open $database r]    while {![eof $rlsfile]} {    set rlsline [gets $rlsfile]    if {[string match "*[string tolower [lindex $arg 0]]*" [string tolower $rlsline]]} {    incr totrlsfound 1      if {$totrlsfound < $rlsmaxsearch} {       puthelp "PRIVMSG $chan :$totrlsfound. Teffer: [lindex $rlsline 0]"      }     }    }close $rlsfile}if {$totrlsfound > $rlsmaxsearch} {puthelp "$PRIVMSG $chan :$nick: Es gab mehr wie $rlsmaxsearch Treffer. Bitte etwas eingrenzen!"}if {$totrlsfound == "0" } {puthelp "PRIVMSG $chan :$nick: Es gab $totrlsfound Einträge, die deiner Suchanfrage entsprachen."}if {$totrlsfound == "1" } {puthelp "PRIVMSG $chan :$nick: Es gab $totrlsfound Eintrag, der deiner Suchanfrage entsprach."}if {$totrlsfound >= 2 } {puthelp "PRIVMSG $chan :$nick: Es gab $totrlsfound Einträge, die deiner Suchanfrage entsprachen."}}