Hi all,
I'm busy modifying a quotescript for eggdrop - and I need a way of being able to record multiple-line quotes.
I figured that splitting it with a "|" character will suffice - but now I need a way of getting my Tcl script to split the line by the | and print out a new line for each "line" in the quote. An example of a code that could do this would be much appreciated.
Thanks!
This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.
Splitting into lines
Code: Select all
set fs [open QUOTES.txt]
set data [read $fs]
close $fs
foreach Quote [split $data \n] {
foreach Line [split $Quote "|"] {
puthelp "PRIVMSG #CHANNEL :$Line"
}
}