Yeah that would be nice .. i tryed to test the code ... yet i have for three lines proc lineindex filename { set res 0 set fp [open $filename] while {[gets $fp line]>=0} {lappend res [tell $fp]} close $fp set res } [14:26:55] 0 10 20 28 And why set rest at the end of this proc ? But i dont know how ...
Im trying to make a text file to play on a channel with commands like !start !stop !resume and !pause !start and !stop no problem ... but !pause and !resume i cant really figure it out :) i messed the code so far that i didnt know what ive done good or wrong.. This is the code i managed to save upon...
I rewrote the script ... and used closed at the end .. here is an example .. proc sql:category {number} { global my set handle [::mysql::connect -host $my(host) -user $my(user) -password $my(pass) -db $my(db) -port $my(port)] set go [::mysql::sel $handle "SELECT `fk_i_category_id`,`s_name`,`s_d...
I am reading a mysql database in the following way set num [catch {::mysql::connect -host $my(host) -user $my(user) -password $my(pass) -db $my(db) -port $my(port)} mysocket] if {$num eq "0" && [string match mysql* $mysocket]} { set num [catch {mysqlsel $mysocket "SELECT `pk_i...