counting stored lines in db

[pipo]

Im looking for a little script that will count how many lines there are stored in my txt database . My db is called db.txt

someting like: !count
outputs: found ## lines in db

Thanks in advance

[rosc2112]

Code: Select all

bind pub - !count proc:count
proc proc:count {nick host hand chan text} {
    set linecount 0
    set input [open /my/path/to/db.txt r]
    set lines [split [read $input] \n]
    catch {close $input}
    foreach line $lines {
         incr linecount
    }
    puthelp "PRIVMSG $chan :Lines: $linecount"
}

That's one way to do it.. Could probably use a "while ![eof]" as well..

[nml375]

Or you replace this:

Code: Select all

foreach line $lines {
  incr linecount
}

with

Code: Select all

set linecount [llength $lines]

in the above example

[rosc2112]

Code: Select all

set linecount [llength $lines]

Ohh yeah
I forget these simple things

[pipo]

thanks


My bot is running in two channels, is it possible to let the trigger work only in one channel?

[Sir_Fz]

add

Code: Select all

if {![string equal -nocase #chan $chan]} {return 0}

inside the proc, before 'set linecount 0'. (#chan is the channel where you want to script to work)