egghelp/eggheads community

need help with tcl

2003-08-27T18:38:20-04:00

If you're writing a file, just 'puts' from within the loop and everything should be fine.

eg:
Code:
set file [open output.txt w]foreach user $users {  puts $file "$user:"  foreach xtra [getuser $user XTRA] {    puts $file "[lindex $xtra 0] = [lindex $xtra 1]"  }}close $file

Ok user thanks for all the time you spent with me I greatly appreciate your help.

if this doesn't work i'm gonna backup 4 paces and chuck the code.

Statistics: Posted by Guest — Wed Aug 27, 2003 6:38 pm

need help with tcl

2003-08-27T18:31:39-04:00

If you're writing a file, just 'puts' from within the loop and everything should be fine.

eg:

Code:

set file [open output.txt w]foreach user $users {  puts $file "$user:"  foreach xtra [getuser $user XTRA] {    puts $file "[lindex $xtra 0] = [lindex $xtra 1]"  }}close $file

Statistics: Posted by user — Wed Aug 27, 2003 6:31 pm

need help with tcl

2003-08-27T17:49:24-04:00

no it sends me a file with the data. I just can't get it to send the user info on the file. not all of it anyway.

Statistics: Posted by Guest — Wed Aug 27, 2003 5:49 pm

need help with tcl

2003-08-27T17:45:54-04:00

what is your goal? are you going to display/write the data some where or just collect it in one big "pile" inside a variable?

Statistics: Posted by user — Wed Aug 27, 2003 5:45 pm

need help with tcl

2003-08-27T17:42:39-04:00

Doing it like that will overwrite the var each time and you'll end up only keeping the last value. Use 'append' or 'lappend' to add to the variable

use it where, I need another example

Statistics: Posted by Guest — Wed Aug 27, 2003 5:42 pm

need help with tcl

2003-08-27T17:36:41-04:00

Doing it like that will overwrite the var each time and you'll end up only keeping the last value. Use 'append' or 'lappend' to add to the variable

Statistics: Posted by user — Wed Aug 27, 2003 5:36 pm

need help with tcl

2003-08-27T17:40:12-04:00

foreach xtra [getuser $user XTRA] {
if {[string match info* [lindex $xtra 0]]} {
set desc $xtra
}
}
I tried the code in the loop and after the loop.

both places had same result.

seems I should be able to do just
set desc [getuser $user XTRA info] this set command is already inside a foreach command.
foreach user $users {
set nikk [getuser $user XTRA nik]
set nikk [stripit $nikk]
set desc [getuser $user XTRA info]
{

Statistics: Posted by Guest — Wed Aug 27, 2003 5:29 pm

need help with tcl

2003-08-27T17:14:21-04:00

that didn't do it, what I got from it was on users that had only one note it gave me that note, but if a user had multiple notes it gave me like only note 14.

Show us some code? Did you do the output/whatever inside the loop or after it?

Statistics: Posted by user — Wed Aug 27, 2003 5:14 pm

need help with tcl

2003-08-27T17:06:24-04:00

You mean there's note1-50 in the user's XTRA info? How about this then:
Code:
foreach xtra [getuser $user XTRA] {if {[string match note* [lindex $xtra 0]]} {# insert code doing what ever you like with $xtra here}}
Why are you storing things this way? Why not use the notes module?

that didn't do it, what I got from it was on users that had only one note it gave me that note, but if a user had multiple notes it gave me like only note 14.

Statistics: Posted by Guest — Wed Aug 27, 2003 5:06 pm

need help with tcl

2003-08-27T15:11:38-04:00

its not really a note, i just used that for an example. its really info stored on a user.

Statistics: Posted by Guest — Wed Aug 27, 2003 3:11 pm

need help with tcl

2003-08-27T15:06:43-04:00

You mean there's note1-50 in the user's XTRA info? How about this then:

Code:

foreach xtra [getuser $user XTRA] {if {[string match note* [lindex $xtra 0]]} {# insert code doing what ever you like with $xtra here}}

Why are you storing things this way? Why not use the notes module?

Statistics: Posted by user — Wed Aug 27, 2003 3:06 pm

need help with tcl

2003-08-27T15:09:44-04:00

it has 1 to 50 items in note, i get the first note using set desc [getuser $user XTRA note1] but i don't get all the notes doing that. what i want to do is get all the notes. this is in my send tcl that sends me stored info on a user. the data is stored in a file that stores all users, in the file each user is listed labeled user and then under user are entries note1, note2 and so on. hope I explained this so it can be understood how the file is structured.

userfile.tx

joh doe

note1
note2
note3

Statistics: Posted by Guest — Wed Aug 27, 2003 2:48 pm

need help with tcl

2003-08-27T14:38:40-04:00

Thanks, but I'm not sure how to use list either, its not in the tcl-commands.doc. My knowledge of tcl is very limited. I needan example.

tcl-commands.doc only has the extra commands provided by eggdrop. Here's the core tcl commands: http://tcl.tk/man/tcl8.4/TclCmd/contents.htm

Example:

Code:

list "string one" "string two"

would return a list with two elements. If you stored this list some where you could later retrieve the first element by using

Code:

lindex  0

...Damn, I suck at explaining. You better tell me some more about what you want to do

Statistics: Posted by user — Wed Aug 27, 2003 2:38 pm

need help with tcl

2003-08-27T14:32:44-04:00

Thanks, but I'm not sure how to use list either, its not in the tcl-commands.doc. My knowledge of tcl is very limited. I needan example.

Statistics: Posted by Guest — Wed Aug 27, 2003 2:32 pm

Re: need help with tcl

2003-08-27T12:57:05-04:00

I have a file that has multiple data for a subject and i need to get all instances of the data.

I'm not sure if I got you right, but here's my solution for what I think your problem is: Use a list to store the "instances" and 'lindex' to retrieve a single one.

Keep in mind that the XTRA field is pretty limited in length (500-length of field name), so depending on what your data is you might want to store it in a separate file.

Statistics: Posted by user — Wed Aug 27, 2003 12:57 pm