egghelp/eggheads community

two problems

2006-07-20T01:18:53-04:00

don't forget to close the file.

Code:

set openfile [open "path/to/your/file" r]set data [read $openfile]close $openfileforeach line [split $data \n] {  if {$line == nick1} {    #perform whatever commands  } elseif {$line == nick2} {    #perform other commands  } else {    #another set of commands  }}

Statistics: Posted by metroid — Thu Jul 20, 2006 1:18 am

two problems

2006-07-19T11:21:57-04:00

you can use something like this

Code:

set openfile [open "path/to/your/file" r]set data [read $openfile]foreach line [split $data \n] {  if {$line == nick1} {     #perform whatever commands  } elseif {$line == nick2} {    #perform other commands  } else {    #another set of commands  }}

Statistics: Posted by krimson — Wed Jul 19, 2006 11:21 am

two problems

2006-07-19T10:35:25-04:00

1. use [split "This-is-a-test" -]
2. http://tclhelp.net/#faqfile

Thanks, but when I have the whole Textfile in data how to search for a specified string?

Statistics: Posted by keeper2 — Wed Jul 19, 2006 10:35 am

two problems

2006-07-19T10:30:50-04:00

1. use [split "This-is-a-test" -]
2. http://tclhelp.net/#faqfile

Statistics: Posted by krimson — Wed Jul 19, 2006 10:30 am

two problems

2006-07-19T10:25:59-04:00

OK I am new to TCL scripting, I come from the mirc scripting camp .

I already read some articles about scripting in TCL, but don't find a answer to these two questions.

1. Is there a command like gettok in TCL so you can cut a string lets say:
This-is-a-test

into

This
is
a
test

and access all of these strings seperatly

2. I have a Textfile in which in each line a nickname is. Now I want to search the Textfile for a nick and if it is found that the TCL script do sth.

Statistics: Posted by keeper2 — Wed Jul 19, 2006 10:25 am