TCL Script ...

Hier findest du jede Art von Hilfestellung zum Thema Installation, Konfiguration und Betrieb von Eggdrop-Bots
Antworten
p_B
TCL Script ...

Beitrag von p_B » 26. Jul 2006, 09:04

Hi erstmal,

ich arbeite gerade an meinem ersten tcl script für meinen eggdrop nur leider funzt der spass nicht so richtig. hier erstmal der code:

Code: Alles auswählen

set fname "scripts/test.txt" 
if {![file exists $fname]} { 
   catch {close [open $fname w]} 
} 


bind pub - !show show:text 
proc show:text {nick uhost hand chan arg} { 
  set fd [open $::fname r] 
   while {![eof $fd]} { 
    lappend list [gets $fd]    
    set lines [split [read $fd] \n] 
   } 
   close $fd 
 set le [llength $lines] 
 set line [lrange 0 $le] 
 putquick "PRIVMSG $chan :$line" 
} 

durch den befehl !show, sollen alle werte, die jeweils zeile für zeile, in der datei stehen in einer variable gespeichert werden und endlich alle in einer zeile ausgegeben werden.
mein zweites problem, wie krieg ich die datei wieder leer? dazu hab ich auch schon was geschrieben, was aber auch nicht funzt :/

Code: Alles auswählen

bind pub - !new new 
proc new {nick host hand chan} { 
 set fd [open $::fname r+] 
 seek $fd 0 
 puts -nonewline $fd "" 
 close $fd 
 putserv "notice $nick  : geleert!" 
} 
Viel leicht hat ja jemand ein wenig ahnung von tcl und kann mir weiter helfen! danke im vorraus!

Antworten