egghelp/eggheads community

Help with script

2020-08-17T15:24:35-04:00

Maybe check this forum thread for some procs to work with text files...
http://forum.egghelp.org/viewtopic.php?t=19168

Statistics: Posted by SpiKe^^ — Mon Aug 17, 2020 3:24 pm

Help with script

2020-08-17T11:39:54-04:00

Now i have something else

I have a file called money.txt and there is a line called Fujin|50 and i want to remove that line with a tcl script. How do i do this ?

Statistics: Posted by l.kleijn — Mon Aug 17, 2020 11:39 am

Help with script

2020-08-17T11:38:33-04:00

Now it's working thanks

Statistics: Posted by l.kleijn — Mon Aug 17, 2020 11:38 am

Help with script

2020-08-17T09:19:53-04:00

In fact, you have a trouble with the following line:

Code:

putserv "NOTICE $nick :You have €[lindex [split [join $searchresult] "|"] 1]"} {

The right script might be:

Code:

bind pub - !money pub:moneyproc pub:money {nick host hand chan arg} {global botnickset searchstring $argset fname "money.txt"set fp [open $fname "r"]set data [read -nonewline $fp]close $fpset lines [split $data "\n"]set searchresult ""foreach line $lines {if {[string match * $nick* [join $line]]} {lappend searchresult $line}if {[$nick == "[lindex [split [join $searchresult] "|"] 0]"} {putserv "NOTICE $nick :Je bent al een keer hier geweest."return 0}putserv "NOTICE $nick :You have €[lindex [split [join $searchresult] '|'] 1]"return 0}}

Think to indent your code and you'll see this kind of errors

Statistics: Posted by CrazyCat — Mon Aug 17, 2020 9:19 am

Help with script

2020-08-17T08:39:03-04:00

Code:

bind pub - !money pub:money proc pub:money {nick host hand chan arg} {  global botnick  set searchstring $arg  set fname "money.txt"  set fp [open $fname "r"]  set data [read -nonewline $fp]  close $fp  set lines [split $data "\n"]  set searchresult ""  foreach line $lines {     if {[string match * $nick* [join $line]]} {        lappend searchresult $line     }     if {[$nick == "[lindex [split [join $searchresult] "|"] 0]"} {        putserv "NOTICE $nick :Je bent al een keer hier geweest."        return 0     }     putserv "NOTICE $nick :You have €[lindex [split [join $searchresult] "|"] 1]"} {     return 0  }}

And i'm getting this error: [14:35:22] Tcl error [pub:money]: wrong # args: should be "foreach varList list ?varList list ...? command"

Statistics: Posted by l.kleijn — Mon Aug 17, 2020 8:39 am