egghelp/eggheads community

.tcl search in .txt file with -nocase help

2017-01-09T15:16:50-04:00

Thank you, SpiKe^^.

Statistics: Posted by Guest — Mon Jan 09, 2017 3:16 pm

.tcl search in .txt file with -nocase help

2017-01-09T14:52:46-04:00

Let's try this and see what we don't like about it:)

Code:

#################################################################################################### putlog "TextSearcher v0.2 - 1st Offcial Release by IsP (q_lander@hotmail.com)" # # This script simply searches a txt file (or text files) for search criteria specified via pub # or msg commands. It Lets you search within a text file for key words using case insensitive # trigger commands. # # Test on eggdrop v1.6.X.....use at own risk ;) # # This script was originally made from another script for 1Real by y0manda, #    rewritten from ground up by IsP@Underent.org # # TODO: # - You tell me? # # v0.1 - 1st scripted # v0.2 - Fixed the counter to display the correct count! #      - Minor bug fix with proc $args - opps, was a mistake, honest ;P # #################################################################################################### #Where are the data files? (Use "{file location1} {file location2} {file location 3} {etc...}") set cd_release "scripts/MCC/search_file" #Which channels do I check for the command? set rlschans "#BotZone" #Max number of outputs? set rlsmaxsearch 9 #What's the public trigger? set cmdsearch "!search" #What Users are allowed to use this trigger/command? (Leave blank for anyone) set rlsflag "" #Set your inital tag info here set rlsinfo "" ########## DO NOT EDIT BELOW ########## if {$rlsflag == ""} {set rlsflag "-"} bind pub $rlsflag $cmdsearch rlssearchpub proc rlssearchpub {nick uhost handle chan arg} {    global rlschans    set valch 0    foreach ch [split $rlschans] {if {$chan == $ch} {set valch 1}}    if {$valch == 0} {return}    rlslocate $chan $uhost $handle "PRIVMSG" "$arg" } bind msg $rlsflag $cmdsearch rlssearchmsg proc rlssearchmsg {nick uhost handle arg} {    global rlschans    set valch 0    foreach ch [split $rlschans] {if {[botonchan $ch]} {if {[onchan $nick $ch]} {set valch 1}}}    if {$valch == 0} {return}    rlslocate $nick $uhost $handle "PRIVMSG" "$arg" } proc rlslocate {nick uhost handle type arg} {     global rlsmaxsearch cd_release rlsinfo     if {$arg == ""} {puthelp "$type $nick :Syntax: $cmdsearch " ;return 0}     regsub -all -- " " ${arg} "*" rlsarg     puthelp "$type $nick : $rlsinfo ...Searching for '$rlsarg'"     set totrlsfound 0     set alltext ""     foreach database $cd_release {         set line 0        set rlsfile [open $database r]         while {![eof $rlsfile]} {          incr line         set rlsline [gets $rlsfile]          if {[string match -nocase "*$rlsarg*" $rlsline]} {             incr totrlsfound 1               lappend alltext "\[$line\] $rlsline"         }         }         close $rlsfile     }     if {$alltext != ""} {       set cnt 0       foreach allline [lreverse $alltext] {          incr cnt          if {$cnt > $rlsmaxsearch} {  break  }          puthelp "$type $nick : \002Found:\002 $allline"       }     }     if {$totrlsfound > $rlsmaxsearch} {puthelp "$type $nick :There are over $rlsmaxsearch matches. Please be more specific"}     puthelp "$type $nick :There was a total of $totrlsfound entries matching your query." }

Statistics: Posted by SpiKe^^ — Mon Jan 09, 2017 2:52 pm

.tcl search in .txt file with -nocase help

2017-01-09T14:22:44-04:00

Which version of the script are you using? (sort from top or bottom)

This: http://forum.egghelp.org/viewtopic.php?p=101084#101084

Statistics: Posted by Guest — Mon Jan 09, 2017 2:22 pm

.tcl search in .txt file with -nocase help

2017-01-09T14:01:43-04:00

Bart: in tcl everything is possible...

Which version of the script are you using? (sort from top or bottom)

Statistics: Posted by SpiKe^^ — Mon Jan 09, 2017 2:01 pm

.tcl search in .txt file with -nocase help

2017-01-09T12:53:05-04:00

Is it possible to display the line number?

Statistics: Posted by Guest — Mon Jan 09, 2017 12:53 pm

.tcl search in .txt file with -nocase help

2013-02-21T13:48:07-04:00

Thanks dirty & Spike^^, much appreciated

Statistics: Posted by BigToe — Thu Feb 21, 2013 1:48 pm

.tcl search in .txt file with -nocase help

2013-02-21T13:43:32-04:00

Bleah .. good work Spike.. i forgot to modify that protection.

Statistics: Posted by dirty — Thu Feb 21, 2013 1:43 pm

.tcl search in .txt file with -nocase help

2013-02-21T12:28:43-04:00

Believe that's because the script was still counting the found lines from the top of the file.
This version doesn't count found lines until after finding all matching lines and reversing their order.
Also, added a -nocase tag to the string match code, to make the search ignore case.

Code:

#################################################################################################### putlog "TextSearcher v0.2 - 1st Offcial Release by IsP (q_lander@hotmail.com)" # # This script simply searches a txt file (or text files) for search criteria specified via pub # or msg commands. It Lets you search within a text file for key words using case insensitive # trigger commands. # # Test on eggdrop v1.6.X.....use at own risk ;) # # This script was originally made from another script for 1Real by y0manda, #    rewritten from ground up by IsP@Underent.org # # TODO: # - You tell me? # # v0.1 - 1st scripted # v0.2 - Fixed the counter to display the correct count! #      - Minor bug fix with proc $args - opps, was a mistake, honest ;P # #################################################################################################### #Where are the data files? (Use "{file location1} {file location2} {file location 3} {etc...}") set cd_release "scripts/MCC/search_file" #Which channels do I check for the command? set rlschans "#BotZone" #Max number of outputs? set rlsmaxsearch 9 #What's the public trigger? set cmdsearch "!search" #What Users are allowed to use this trigger/command? (Leave blank for anyone) set rlsflag "" #Set your inital tag info here set rlsinfo "" ########## DO NOT EDIT BELOW ########## if {$rlsflag == ""} {set rlsflag "-"} bind pub $rlsflag $cmdsearch rlssearchpub proc rlssearchpub {nick uhost handle chan arg} {    global rlschans    set valch 0    foreach ch [split $rlschans] {if {$chan == $ch} {set valch 1}}    if {$valch == 0} {return}    rlslocate $chan $uhost $handle "PRIVMSG" "$arg" } bind msg $rlsflag $cmdsearch rlssearchmsg proc rlssearchmsg {nick uhost handle arg} {    global rlschans    set valch 0    foreach ch [split $rlschans] {if {[botonchan $ch]} {if {[onchan $nick $ch]} {set valch 1}}}    if {$valch == 0} {return}    rlslocate $nick $uhost $handle "PRIVMSG" "$arg" } proc rlslocate {nick uhost handle type arg} {     global rlsmaxsearch cd_release rlsinfo     if {$arg == ""} {puthelp "$type $nick :Syntax: $cmdsearch " ;return 0}     regsub -all -- " " ${arg} "*" rlsarg     puthelp "$type $nick : $rlsinfo ...Searching for '$rlsarg'"     set totrlsfound 0     set alltext ""     foreach database $cd_release {         set rlsfile [open $database r]         while {![eof $rlsfile]} {          set rlsline [gets $rlsfile]          if {[string match -nocase "*$rlsarg*" $rlsline]} {             incr totrlsfound 1             lappend alltext $rlsline          }         }         close $rlsfile     }     if {$alltext != ""} {      set cnt 0      foreach allline [lreverse $alltext] {          incr cnt         if {$cnt > $rlsmaxsearch} {  break  }         puthelp "$type $nick : \002Found:\002 $allline"       }     }     if {$totrlsfound > $rlsmaxsearch} {puthelp "$type $nick :There are over $rlsmaxsearch matches. Please be more specific"}     puthelp "$type $nick :There was a total of $totrlsfound entries matching your query." }

Statistics: Posted by SpiKe^^ — Thu Feb 21, 2013 12:28 pm

.tcl search in .txt file with -nocase help

2013-02-21T09:55:49-04:00

Ok I must have pasted it incorrectly - it works.
Thanks dirty!

I have another question though..

I have the following a line in the text file (it is the last line in the file)

Only Brazilian citizens can request a passport

When I typed !search Brazilian

It did not retrieve that line.

why?

Statistics: Posted by BigToe — Thu Feb 21, 2013 9:55 am

.tcl search in .txt file with -nocase help

2013-02-21T09:22:28-04:00

Can you please paste the script as you have it right now because I just tested it and it works fine.. I have it like this:

search_file.tcl

Code:

#################################################################################################### putlog "TextSearcher v0.2 - 1st Offcial Release by IsP (q_lander@hotmail.com)" # # This script simply searches a txt file (or text files) for search criteria specified via pub # or msg commands. It Lets you search within a text file for key words using case insensitive # trigger commands. # # Test on eggdrop v1.6.X.....use at own risk ;) # # This script was originally made from another script for 1Real by y0manda, #    rewritten from ground up by IsP@Underent.org # # TODO: # - You tell me? # # v0.1 - 1st scripted # v0.2 - Fixed the counter to display the correct count! #      - Minor bug fix with proc $args - opps, was a mistake, honest ;P # #################################################################################################### #Where are the data files? (Use "{file location1} {file location2} {file location 3} {etc...}") set cd_release "scripts/MCC/search_file" #Which channels do I check for the command? set rlschans "#BotZone" #Max number of outputs? set rlsmaxsearch 9 #What's the public trigger? set cmdsearch "!search" #What Users are allowed to use this trigger/command? (Leave blank for anyone) set rlsflag "" #Set your inital tag info here set rlsinfo "" ########## DO NOT EDIT BELOW ########## if {$rlsflag == ""} {set rlsflag "-"} bind pub $rlsflag $cmdsearch rlssearchpub proc rlssearchpub {nick uhost handle chan arg} {    global rlschans    set valch 0    foreach ch [split $rlschans] {if {$chan == $ch} {set valch 1}}    if {$valch == 0} {return}    rlslocate $chan $uhost $handle "PRIVMSG" "$arg" } bind msg $rlsflag $cmdsearch rlssearchmsg proc rlssearchmsg {nick uhost handle arg} {    global rlschans    set valch 0    foreach ch [split $rlschans] {if {[botonchan $ch]} {if {[onchan $nick $ch]} {set valch 1}}}    if {$valch == 0} {return}    rlslocate $nick $uhost $handle "PRIVMSG" "$arg" } proc rlslocate {nick uhost handle type arg} {     global rlsmaxsearch cd_release rlsinfo     if {$arg == ""} {puthelp "$type $nick :Syntax: $cmdsearch " ;return 0}     regsub -all -- " " ${arg} "*" rlsarg     puthelp "$type $nick : $rlsinfo ...Searching for '$rlsarg'"     set totrlsfound 0    set alltext ""     foreach database $cd_release {         set rlsfile [open $database r]         while {![eof $rlsfile]} {          set rlsline [gets $rlsfile]          if {[string match "*$rlsarg*" $rlsline]} {             incr totrlsfound 1             if {$totrlsfound < $rlsmaxsearch} {                lappend alltext $rlsline             }          }       }       close $rlsfile     }    if {$alltext != ""} {       foreach allline [lreverse $alltext] {          puthelp "$type $nick : \002Found:\002 $allline"       }    }    if {$totrlsfound > $rlsmaxsearch} {puthelp "$type $nick :There are over $rlsmaxsearch matches. Please be more specific"}    puthelp "$type $nick :There was a total of $totrlsfound entries matching your query." }

search_file

Code:

a b cd e f gh i j bk l b mn t b

IRC test:

Code:

[15:20] <+dirty> !search a[15:20] <@BotZone>   ...Searching for 'a'[15:20] <@BotZone>  Found: a b c[15:20] <@BotZone> There was a total of 1 entries matching your query.[15:20] <+dirty> !search b[15:20] <@BotZone>   ...Searching for 'b'[15:20] <@BotZone>  Found: n t b[15:20] <@BotZone>  Found: k l b m[15:20] <@BotZone>  Found: h i j b[15:20] <@BotZone>  Found: a b c[15:20] <@BotZone> There was a total of 4 entries matching your query.

Statistics: Posted by dirty — Thu Feb 21, 2013 9:22 am

.tcl search in .txt file with -nocase help

2013-02-21T09:03:53-04:00

I restarted and it did not work

Statistics: Posted by BigToe — Thu Feb 21, 2013 9:03 am

.tcl search in .txt file with -nocase help

2013-02-21T08:48:38-04:00

BigToe did you rehash/restart your eggdrop? Aldo I did not test that I`m pretty sure it should of worked.

Statistics: Posted by dirty — Thu Feb 21, 2013 8:48 am

.tcl search in .txt file with -nocase help

2013-02-21T08:36:28-04:00

hey dirty, thanks for the reply - no, that did not work, it still searches from top to bottom

Statistics: Posted by BigToe — Thu Feb 21, 2013 8:36 am

.tcl search in .txt file with -nocase help

2013-02-21T07:51:00-04:00

For BOTTOM to UP results try this one.. I haven`t tested it but should work..

Replace this:

Code:

proc rlslocate {nick uhost handle type arg} {    global rlsmaxsearch cd_release rlsinfo    if {$arg == ""} {puthelp "$type $nick :Syntax: $cmdsearch " ;return 0}    regsub -all -- " " ${arg} "*" rlsarg    puthelp "$type $nick : $rlsinfo ...Searching for '$rlsarg'"    set totrlsfound 0    foreach database $cd_release {       set rlsfile [open $database r]       while {![eof $rlsfile]} {          set rlsline [gets $rlsfile]          if {[string match "*$rlsarg*" $rlsline]} {             incr totrlsfound 1             if {$totrlsfound < $rlsmaxsearch} {                puthelp "$type $nick : \002Found:\002 $rlsline"             }          }       }       close $rlsfile    }    if {$totrlsfound > $rlsmaxsearch} {puthelp "$type $nick :There are over $rlsmaxsearch matches. Please be more specific"}    puthelp "$type $nick :There was a total of $totrlsfound entries matching your query." }

With this:

Code:

proc rlslocate {nick uhost handle type arg} {     global rlsmaxsearch cd_release rlsinfo     if {$arg == ""} {puthelp "$type $nick :Syntax: $cmdsearch " ;return 0}     regsub -all -- " " ${arg} "*" rlsarg     puthelp "$type $nick : $rlsinfo ...Searching for '$rlsarg'"     set totrlsfound 0 set alltext ""    foreach database $cd_release {         set rlsfile [open $database r]         while {![eof $rlsfile]} { set rlsline [gets $rlsfile] if {[string match "*$rlsarg*" $rlsline]} { incr totrlsfound 1 if {$totrlsfound < $rlsmaxsearch} { lappend alltext $rlsline } } } close $rlsfile     }if {$alltext != ""} {foreach allline [lreverse $alltext] {puthelp "$type $nick : \002Found:\002 $allline"}}   if {$totrlsfound > $rlsmaxsearch} {puthelp "$type $nick :There are over $rlsmaxsearch matches. Please be more specific"}    puthelp "$type $nick :There was a total of $totrlsfound entries matching your query." }

Statistics: Posted by dirty — Thu Feb 21, 2013 7:51 am

.tcl search in .txt file with -nocase help

2013-02-21T05:06:43-04:00

Can anyone please modify this script to search the file from BOTTOM to TOP instead of top to bottom? ie, return the top results starting from the last line to the first

Statistics: Posted by BigToe — Thu Feb 21, 2013 5:06 am