help me whit a litle question

blarre · Post by **blarre** » Wed Jun 12, 2002 4:51 pm

hi, i have a script that read from a text file... now its reading allt the text in the file but i whant it to only read the last line...
::: Here is the script :::
set bfile "/usr/local/eggdrop/asobiba/lan.txt"

set cmd "!nextlan"

set bwhere 1

bind pub -|- $cmd dumpfile
proc dumpfile {nick handle host chan text } {
global bfile bwhere
set foo [open $bfile r]
while { ! [eof $foo] } {
set line [gets $foo]
if {!$bwhere} {
puthelp "NOTICE $nick :$line"
} else {
puthelp "NOTICE $chan :$line"
}
}
}

thanks
//Patrik

blarre · Post by **blarre** » Thu Jun 13, 2002 7:43 am

please!! only need to now how i do soo the bot only read the last line in the file...

Petersen · Post by **Petersen** » Thu Jun 13, 2002 2:55 pm

you read through the whole file, store it in a list, and extract the last line from that list.

blarre · Post by **blarre** » Thu Jun 13, 2002 3:31 pm

ahh, its soo hard

...
the script line for that??

<font size=-1>[ This Message was edited by: blarre on 2002-06-13 13:31 ]</font>

ppslim · Post by **ppslim** » Fri Jun 14, 2002 9:16 am

It's called laziness to not even try.

Code: Select all

set bfile "/usr/local/eggdrop/asobiba/lan.txt"

set cmd "!nextlan"

set bwhere 1

bind pub -|- $cmd dumpfile 
proc dumpfile {nick handle host chan text } {
  global bfile bwhere
  set foo [open $bfile r]
  set line [read $foo]
  if {!$bwhere} {
    puthelp "NOTICE $nick :[lindex $line [expr [llength $line] - 1]]"
  } else {
    puthelp "NOTICE $chan :[lindex $line [expr [llength $line] - 1]]"
  }
  catch {close $foo}
}