two problems

[keeper2]

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.

[krimson]

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

[keeper2]

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?

[krimson]

you can use something like this

Code: Select all

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
  }
}

[metroid]

don't forget to close the file.

Code: Select all

set openfile [open "path/to/your/file" r]
set data [read $openfile]
close $openfile

foreach line [split $data \n] {
  if {$line == nick1} {
    #perform whatever commands
  } elseif {$line == nick2} {
    #perform other commands
  } else {
    #another set of commands
  }
}