egghelp/eggheads community

readfile problem

2004-02-21T09:26:24-04:00

thanks - I think we're off track here...

I should have explained more - there are lots of lines with /04 in it but I only want it to set the first line of /04 as the variable and send it to the channel...

Statistics: Posted by NewzUK — Sat Feb 21, 2004 9:26 am

readfile problem

2004-02-21T09:17:54-04:00

well hmm

Code:

# usage !test /04 or something else of course only checks arg 0, # if you want it to check more then you have to combine stuff or if u# wana use spaces well then u got to use lrange ..bind n !test test:pubproc test:pub {nick uhost hand chan arg} {  if {[linematch "[lindex $arg 0]"] && ![string match {} [lindex $arg 0]]} {    putserv "PRIVMSG $chan :Found [lindex $arg 0]."   } else {    putserv "PRIVMSG $chan :Nothing Found."  }}

Statistics: Posted by Ofloo — Sat Feb 21, 2004 9:17 am

readfile problem

2004-02-21T08:24:05-04:00

thanks - I think I get it - how do I test it by using a pub command? Sorry for all the questions...!

Statistics: Posted by NewzUK — Sat Feb 21, 2004 8:24 am

readfile problem

2004-02-21T08:10:49-04:00

hmm i edited the result cause there where some errors in it .. just wokeup sorry hehe

well u can use it now like this [linematch "/04"]

and if it finds something it will return 1 if it doesn't it will return 0

Statistics: Posted by Ofloo — Sat Feb 21, 2004 8:10 am

readfile problem

2004-02-21T08:09:09-04:00

thanks but eventually this will be on a timer and not a bindpub so I just need it to read the first line with /04 in it and that's it...thanks!

Statistics: Posted by NewzUK — Sat Feb 21, 2004 8:09 am

readfile problem

2004-02-21T08:10:01-04:00

Code:

proc linematch {var} {  set rfile [open "file" "r"]  while {![$rfile]} {    gets $rfile line    if {[string match -nocase "*$var*" $line]} {      # your script here....      close $rfile      return 1 ;# This will verrify that the while matched a string    }  }  close $rfile  return 0}

hehe sorry misread first time ..

Statistics: Posted by Ofloo — Sat Feb 21, 2004 8:06 am

readfile problem

2004-02-21T08:02:02-04:00

Code:

# like this u can use it to read any line# usage: readfile proc readfile {number} {  set count "0"  set rfile [open "file" "r"]  while {![$rfile]} {    gets $rfile line    set count [expr $count + 1]    if {"$count" == "$number"} {      putlog "This is line $number of ur script: $line" ;#change this line to what u want to do with line      close $rfile       return 1 ;#Or change it to return $line if u want the proc to return the line instead then remove the return 0 and putlog line    }  }  close $rfile  return 0}

Statistics: Posted by Ofloo — Sat Feb 21, 2004 8:02 am

readfile problem

2004-02-21T07:52:48-04:00

thanks - it works with this but:

bind pub - .cbsnews pub:readmkw
proc pub:readmkw { nick uhost handle channel arg } {
set mkwf [open /home/citinews/Bots/Undernet/news/mkw.txt r]
set data [read $mkwf]
foreach line [split $data \n] {
if {[string match */04* $line]} {
putserv "PRIVMSG #Newsroom2 :4,4 1,15 [gettime -18]ET $line "
}
}
}

it reads the whole file - can I get it to just read the first /04 line then stop?

Statistics: Posted by NewzUK — Sat Feb 21, 2004 7:52 am

readfile problem

2004-02-21T07:39:12-04:00

use

Code:

set data [read $mkwf] ;#reads entire file at once and sets it to the variable data

i think gets only reads one line

if u use gets use it in a while

Code:

while {![eof $mkwf]} {  gets $mkwf line  .... then line is ur varable reads line by line}

if u do read $mkwf then it will read the entire file

then u split it line by line and output it line by line using foreach

Statistics: Posted by Ofloo — Sat Feb 21, 2004 7:39 am

readfile problem

2004-02-21T07:13:12-04:00

thanks - still no luck - am I doing something else wrong?

bind pub - .cbsnews pub:readmkw
proc pub:readmkw { nick uhost handle channel arg } {
set mkwf [open /home/citinews/Bots/Undernet/news/mkw.txt r]
set data [gets $mkwf]
foreach line [split $data \n] {
if {[string match "/04*" $line]} {
putserv "PRIVMSG #Newsroom2 :$line"
}
}
}

Statistics: Posted by NewzUK — Sat Feb 21, 2004 7:13 am

readfile problem

2004-02-21T06:53:53-04:00

Code:

set data [gets $mkwf]foreach line [split $data \n] { if {[string match "/04*" $line]} {   break}

btw, you might what to close your file too

Statistics: Posted by GodOfSuicide — Sat Feb 21, 2004 6:53 am

readfile problem

2004-02-21T06:46:35-04:00

Hi - I'm working on a script to read a text file but don't seem to be able to get past this...I'm not getting any errors:

bind pub - .cbsnews pub:readmkw
proc pub:readmkw { nick uhost handle channel arg } {
set mkwf [open /home/citinews/Bots/Undernet/news/mkw.txt r]
set mkw [lsearch -glob $mkwf "/04"]
if {$mkw != -1} {
putserv "PRIVMSG #Newsroom2 :$mkw"
} else {
return
}
}

The line of the file I want is the first one with /04 in it...
Thanks.

Statistics: Posted by NewzUK — Sat Feb 21, 2004 6:46 am