egghelp/eggheads community

Sintax error in proc

2016-09-02T14:19:18-04:00

It worked perfect.
Thanks SpiKe^^.

Statistics: Posted by juanamores — Fri Sep 02, 2016 2:19 pm

Sintax error in proc

2016-09-02T08:45:05-04:00

Change this...

Code:

 set fp [open $fname0 "r"]  close $fp  set data [read -nonewline $fp]

to...

Code:

 set fp [open $fname0 "r"]  set data [read -nonewline $fp]  close $fp

Statistics: Posted by SpiKe^^ — Fri Sep 02, 2016 8:45 am

Sintax error in proc

2016-09-02T08:18:15-04:00

Try changing this line...
Code:
puts $fp $addjs $tempo $fechaa
to something more like...
Code:
puts $fp "$addjs $tempo $fechaa"

Not work.
For debugging purposes I have added messages ( blue color code).
It shows: Exist file djnick!

proc addjss { } {
global canal_admin
if {![file exists djnick]} { putmsg $canal_admin "Does not exist file djnick!";return }
putmsg $canal_admin "Exist file djnick!"
set fname0 "djnick"
set fp [open $fname0 "r"]
close $fp
set data [read -nonewline $fp]
set lines [split $data " "]
set addjs [lindex $lines 0]
set tempo [lindex $lines 1]
set fechaa [lindex $lines 2]

if {![file exists listaDJS.txt]} {
putmsg $canal_admin "Does not exist file listaDJS!"
set fs [open listaDJS.txt "w"]
puts $fs ""
close $fs
} else {
putmsg $canal_admin "Exist file listaDJs!"
set fname "listaDJS.txt"
set fp [open $fname "a"]
puts $fp "$addjs $tempo $fechaa"
close $fp
}
}

Now the error is:

can not find channel named "file416"

Statistics: Posted by juanamores — Fri Sep 02, 2016 8:18 am

Sintax error in proc

2016-09-02T08:01:34-04:00

Try changing this line...

Code:

puts $fp $addjs $tempo $fechaa

to something more like...

Code:

puts $fp "$addjs $tempo $fechaa"

Statistics: Posted by SpiKe^^ — Fri Sep 02, 2016 8:01 am

Sintax error in proc

2016-09-02T04:51:09-04:00

How I can invoke this process from another process ?
I have invoked the process in another code with name (addjss) , but I get the following error:

Code:

proc addjss { } {if {![file exists djnick]} { return }set fname0 "djnick"set fp [open $fname0 "r"]close $fpset data [read -nonewline $fp]set lines [split $data " "]  set addjs [lindex $lines 0]set tempo [lindex $lines 1]set fechaa [lindex $lines 2] if {![file exists listaDJS.txt]} {set fs [open listaDJS.txt "w"]puts $fs ""close $fs}  else {set fname "listaDJS.txt"set fp [open $fname "a"]puts $fp $addjs $tempo $fechaaclose $fp }}

wrong # args: should be "puts ?-nonewline? ?channelId? string"

Do not copy the other process because it is very long.
But I think that I'm invoking wrong, I do not think that problem long process.

Statistics: Posted by juanamores — Fri Sep 02, 2016 4:51 am