Forum IRC

Nie jestem pewien czy skrypt TeKaDy dziala poprawnie, nie chce mi sie go
sprawdzac, ale linia:
set plik [split [read $if] " "]
chyba nie zadziala tak jak on to przewidzial. Przeciez wtedy wszystkie
wyrazy przeczytane z pliku beda w osobnych liniach. Ten skrypt nie usunie 6
linii, a 6 wyraz. Ja sugeruje inne rozwiazanie, a przy okazji dostosuje je
do drugiego pytania:

bind pub - !del del:chan

proc del:chan {nick uhost handle channel arg} {

# Najpierw zmienimy nazwe temu plikowi, aby pozniej zapisac do pierwotnej
# nazwy wlasciwe dane.
file rename -force plik.txt plik.txt.bak
set fd [open plik.txt.bak r]
set fd2 [open plik.txt w]

# Teraz trzeba czytac caly plik, dopoki nie osiagniemy konca.
# Przy okazji bedziemy sprawdzac kazda linie, czy zawiera podany kanal,
# jesli tak, to nie bedziemy jej zapisywac do nowego pliku.
while {![eof $fd]} {
gets $fd data
if {![string match *$arg* $data]} {
puts $fd2 $data
}
}
close $fd
close $fd2
file delete -force plik.txt.bak
}

Gdybys mial jeszcze jakies pytania to pytaj na #tcl, powinienes mnie tam
zlapac, a jak nie to moze kogos innego. Tak sie sklada ze na razie tylko ja
tam po polsku mowie, wiec zacznij moze od pytan po angielsku.

[cut]