split text

[mdnkia]

hello i have this code

Code: Select all

set f [open $file] 
seek $f $pos 
if {[gets $f line]>-1} { 
putserv "privmsg $chan :$line" 

it will read line by line from the file.txt the problem is i have long sentence in 1 line is there any way to split it? when the script read . [dot] it will do new privmsg and continue the story.
anyone know it please i really stuck on it
thx

[^DooM^]

if you want it to output to a newline you can use

Code: Select all

\n

ie

Code: Select all

this is the line i want to display on the first line.\nThis will be displayed on the secondline.\nAnd this the third etc etc etc

[mdnkia]

hmmm... thx for the reply but i know this code already i got much lines on file.txt and it will be so hard to edit all the text...

[^DooM^]

ok if you want to split up the text via a full stop you could use something like this.

Code: Select all

proc output { nick channel msg } {

    # Build string
    set strPrepend "PRIVMSG $channel :"
        
    # Send it out
    set line_array [split $msg "."]
    foreach line $line_array { putserv "$strPrepend$line" }

}

[caesar]

Tip: You need to open the file in a way, so check this out.

[user]

Code: Select all

set f [open $file]