Dabar yra 2020-09-23, 09:14




Naujos temos kūrimas Atsakyti į temą  [ 8 pranešimai(ų) ] 
TCL error 
Autorius Žinutė
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-04-04, 15:02
Pranešimai: 815
Forumo litai: 716
Pinigų pervedimas
Miestas: Heaven
Standartinė TCL error
Sveiki, meta man tokius zenklus po zodziu kurie yra irasyti tvarkingai txt faile, taciau manau problema scripte, jei galim pataisykit:
Kodas:
bind pub -|- !setfilmas filmas
proc filmas {nick host hand chan arg} {
file delete dienos.txt
set failas [open "dienos.txt" a]
set filmas1 [lindex $arg 0]
set filmas2 [lindex $arg 1]
set filmas3 [lindex $arg 2]
puts $failas $filmas1
puts $failas $filmas2
puts $failas $filmas3
close $failas


Kai skaitau fila ismeta: blabla blabla blabla {}

_________________
Paveikslėlis


2012-11-29, 16:21
Aprašymas ICQ WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2006-02-05, 16:05
Pranešimai: 1556
Forumo litai: 939
Pinigų pervedimas
Miestas: Klaipeda
Standartinė Re: TCL error
Tu cia neskaitai, tik irasyneji info i faila. :]

_________________
Niekas nezino ka savyje slepia, kol neparagauja valdzios.


2012-11-30, 17:17
Aprašymas WWW
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-04-04, 15:02
Pranešimai: 815
Forumo litai: 716
Pinigų pervedimas
Miestas: Heaven
Standartinė Re: TCL error
Esme, kad dadeda sitas scriptas eilute pvz enter paspaudus
nauja linija pradeda rasyt o ten tuscia bet ji padaryta ir meta {}

_________________
Paveikslėlis


2012-11-30, 23:13
Aprašymas ICQ WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2006-02-05, 16:05
Pranešimai: 1556
Forumo litai: 939
Pinigų pervedimas
Miestas: Klaipeda
Standartinė Re: TCL error
nieko nesupratau, tie { } turi but, kai nuskaitysi faila, tau ju nerodys jei ka..

_________________
Niekas nezino ka savyje slepia, kol neparagauja valdzios.


2012-12-01, 00:27
Aprašymas WWW
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-04-04, 15:02
Pranešimai: 815
Forumo litai: 716
Pinigų pervedimas
Miestas: Heaven
Standartinė Re: TCL error
Kodas:
bind pub -|- !filmas rodom
proc rodom {nick host hand chan arg} {
set var [open "dienos.txt" r]
set var2 [split [read $var] \n]
putserv "PRIVMSG #kinomanai :Dienos filmas: $var2"
close $var
}

Taip skaitau

_________________
Paveikslėlis


2012-12-02, 01:15
Aprašymas ICQ WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2006-02-05, 16:05
Pranešimai: 1556
Forumo litai: 939
Pinigų pervedimas
Miestas: Klaipeda
Standartinė Re: TCL error
Va persidaryk kaip reikia tau, cia kazkosk senas skriptas :D


Kodas:
set pkanalas "#lauzas"
bind pub - !papai papai
bind pub - !dydis setpapai
proc setpapai {nick host hand chan text} {
        global pkanalas
        if {$chan == "$pkanalas"} { set pnik [open "[lindex [split $text] 0]" w]
                puts $pnik [lindex [split $text] 1]
                close $pnik
        }
}

proc papai {nick host hand chan text} {
        global pnik line1 pkanalas;
        if {$chan == "$pkanalas"} {
                set paziurim [open "$text" r]
                set line1 [lindex [split [read $paziurim] \n] 0]
                close $paziurim
                if {[lindex [split $text] 0] != ""} {
                putserv "privmsg $pkanalas $nick $text papu dydis: $line1"
        } else {
                puthelp "privmsg $pkanalas $nick deja $text papu dar nieks neciupinejo"

        }
}
}

_________________
Niekas nezino ka savyje slepia, kol neparagauja valdzios.


2012-12-02, 13:36
Aprašymas WWW
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-04-04, 15:02
Pranešimai: 815
Forumo litai: 716
Pinigų pervedimas
Miestas: Heaven
Standartinė Re: TCL error
o kaip irasyt i faila .txt i viena eilute viska ?

_________________
Paveikslėlis


2012-12-02, 16:34
Aprašymas ICQ WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2006-02-05, 16:05
Pranešimai: 1556
Forumo litai: 939
Pinigų pervedimas
Miestas: Klaipeda
Standartinė Re: TCL error
Tai nesplitink texto ir imk visa text, pvz

Kodas:
proc irasom {nick host hand chan text} {
        if {$chan == "#kanalas"} { set failas [open "filmai.txt" w]
                puts $failas $text
                close $failas
        }
}

_________________
Niekas nezino ka savyje slepia, kol neparagauja valdzios.


2012-12-02, 19:16
Aprašymas WWW
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 8 pranešimai(ų) ] 


Dabar prisijungę

Vartotojai naršantys šį forumą: Registruotų vartotojų nėra ir 3 svečių


Jūs negalite kurti naujų temų šiame forume
Jūs negalite atsakinėti į temas šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite trinti savo pranešimų šiame forume
Jūs negalite prikabinti failų šiame forume

Ieškoti:
Pereiti į:  
cron
© phpBB Group. Veikia phpBB pagrindu.
Dizaino autorius Vjacheslav Trushkin, adaptavo Igor „MucTuK“ Gubaidulin
Vertė Vilius Šumskas © 2003, 2005, 2007