egghelp/eggheads community

listing files in a directory

2003-04-04T13:05:25-04:00

A tip to all of you: glob -nocomplain
(look that up in the manual ;P)

Statistics: Posted by user — Fri Apr 04, 2003 1:05 pm

listing files in a directory

2003-04-04T12:58:02-04:00

Hehe, I was kidding. I'm glad to hear I've helped you, somehow. Your welcome.

Statistics: Posted by caesar — Fri Apr 04, 2003 12:58 pm

listing files in a directory

2003-04-04T12:53:40-04:00

i did thank you and i am grateful for your patience and knowledge

to answer your question the script in its "basic version" works well
it is juste the part where i`d try to have it display one item per lines that i am unable to make it work and i know it is because of my lack of experience in tcl, i`m working on it

thanks again and dont let people like me down there are many more good people like me who want to learn and needs good teachers

Pitchat

Statistics: Posted by Pitchat — Fri Apr 04, 2003 12:53 pm

listing files in a directory

2003-04-04T06:12:46-04:00

So it working or not? Your welcome anyway..

Statistics: Posted by caesar — Fri Apr 04, 2003 6:12 am

listing files in a directory

2003-04-04T05:58:26-04:00

thanks for everything

Statistics: Posted by Pitchat — Fri Apr 04, 2003 5:58 am

listing files in a directory

2003-04-04T05:50:02-04:00

What the heck are you doing there? Here is the final and working smoothly version of the code I've did:

Code:

set poemsdir "c://precieuse//histoires"bind pub * !poems pub:poemsproc pub:poems {nick host handle channel text} {catch { glob -type f $::poemsdir/* } poemsregsub -all "//" $::poemsdir "/" reglineregsub -all "$::regline/" $poems "" poems putserv "PRIVMSG $channel :\002Poems\002: $poems"}

Statistics: Posted by caesar — Fri Apr 04, 2003 5:50 am

listing files in a directory

2003-04-04T05:43:03-04:00

still dont work
maybe i messed up with the last change

[04:38] Tcl error [pub:poems]: can't read "poems": no such variable

this is what the script look like now

Code:

set poemsdir "c://precieuse//histoires" set regline "c:/precieuse/histoires"set poemlimit 3 bind pub * !histoire pub:poems proc pub:poems {nick host handle channel text} {   if {![file exists $::poemsdir]} {     putserv "PRIVMSG $channel :\002Error\002: $::poemsdir dose not exist."     return 0   } proc pub:poems {nick host handle channel text} { catch { glob -type f $::poemsdir/* } poems regsub -all "$::regline/" $poems "" poems putserv "PRIVMSG $channel :\002Poems\002: $poems" }   set first [list]   foreach item $poems {     if {[llength $first] == $::poemlimit} {       putserv "PRIVMSG $channel :\002Histoires\002: [string trimright [join $first ", "] ", "]"       set first [list]     }     lappend fist $item   }   if {[llength $first]} {     putserv "PRIVMSG $channel :\002Histoires\002: [string trimright [join $first ", "] ", "]"   } }

Statistics: Posted by Pitchat — Fri Apr 04, 2003 5:43 am

listing files in a directory

2003-04-04T05:27:46-04:00

The 'poemsdir' should be like: set poemsdir "c://precieuse//histoires" if I'm not wrong and the regsub line needs to be changed. It should look like:

Code:

set poemsdir "c://precieuse//histoires"set regline "c:/precieuse/histoires"bind pub * !poems pub:poemsproc pub:poems {nick host handle channel text} {catch { glob -type f $::poemsdir/* } poemsregsub -all "$::regline/" $poems "" poemsputserv "PRIVMSG $channel :\002Poems\002: $poems"}

Statistics: Posted by caesar — Fri Apr 04, 2003 5:27 am

listing files in a directory

2003-04-04T05:21:31-04:00

arf just saw it after i did the last post but this time no crashes but when i type my pub command nothing append no error and no display

Statistics: Posted by Pitchat — Fri Apr 04, 2003 5:21 am

listing files in a directory

2003-04-04T05:18:54-04:00

You really could use some coffee! You forgot another character, this time the final } in the code.

Statistics: Posted by stdragon — Fri Apr 04, 2003 5:18 am

listing files in a directory

2003-04-04T05:14:29-04:00

it is worst now the bot crashes

Code:

set poemsdir "/precieuse/histoires/" set peomlimit 7 bind pub * !histoire pub:poems proc pub:poems {nick host handle channel text} {   if {![file exists $::poemsdir]} {     putserv "PRIVMSG $channel :\002Error\002: $::poemsdir dose not exist."     return 0   }   catch { glob -type f $::poemsdir/ } poems   regsub -all "$::poemsdir/*" $poems "" poems   set first [list]   foreach item $poems {     if {[llength $first] == $::peomlimit} {       putserv "PRIVMSG $channel :\002Histoires\002: [string trimright [join $first ", "] ", "]"       set first [list]     }     lappend fist $item   }   if {[llength $first]} {     putserv "PRIVMSG $channel :\002Histoires\002: [string trimright [join $first ", "] ", "]"   }

it`s the whole code including the latest change you gave me

now the error message

[04:07] Tcl error in file 'config.txt':
[04:07] wrong # args: should be "proc name args body"
[04:07] (Precieuse): while executing
[04:07] (Precieuse): "proc pub:poems {nick host handle channel text} {
[04:07] (Precieuse): if {![file exists $::poemsdir]} {
[04:07] (Precieuse): putserv "PRIVMSG $channel :\002Error\002: $::poemsdir dose ..."
[04:07] (Precieuse): (file "scripts/listing2.tcl" line 6)

thanks
P.S. i could use some of that coffee myself [/quote]

Statistics: Posted by Pitchat — Fri Apr 04, 2003 5:14 am

listing files in a directory

2003-04-04T04:55:13-04:00

Don't worry, my fault, hoenst.

I am waiting for Slennox to install the coffee machine facility here, as I need it badly

Look though the code for "[length $first]". Near the bottom of the code.

Change it to "[llength $first]". Note the extra/missing l.

Statistics: Posted by ppslim — Fri Apr 04, 2003 4:55 am

listing files in a directory

2003-04-04T04:50:03-04:00

[03:47] Tcl error [pub:poems]: invalid command name "length"

Statistics: Posted by Pitchat — Fri Apr 04, 2003 4:50 am

listing files in a directory

2003-04-04T04:42:24-04:00

Bordome will prevail

Code:

set poemsdir "/precieuse/histoires/" set peomlimit 7bind pub * !poems pub:poems proc pub:poems {nick host handle channel text} {   if {![file exists $::poemsdir]} {     putserv "PRIVMSG $channel :\002Error\002: $::poemsdir dose not exist."     return 0   }   catch { glob -type f $::poemsdir/ } poems   regsub -all "$::poemsdir/*" $poems "" poems   set first [list]  foreach item $poems {    if {[llength $first] == $::peomlimit} {      putserv "PRIVMSG $channel :\002Histoires\002: [string trimright [join $first ", "] ", "]"      set first [list]    }    lappend fist $item  }  if {[length $first]} {    putserv "PRIVMSG $channel :\002Histoires\002: [string trimright [join $first ", "] ", "]"  }}

Change the "set peomlimit" line, to the amount of peoms you wish to display on a single line.

Statistics: Posted by ppslim — Fri Apr 04, 2003 4:42 am

listing files in a directory

2003-04-04T04:11:16-04:00

U are right now it works
my mistake....

now is there a way to make the list more "esthetic" it display all filenames one after another on the same line and i`d like to have it one fileneme by line

i know i`m pulling my luck a lot
thank you very much for your patience and for sharing your knowledge

Pitchat

Statistics: Posted by Pitchat — Fri Apr 04, 2003 4:11 am