egghelp/eggheads community

Grabbing a certain line on a file?

2003-01-20T19:01:15-04:00

[quote="Pyr0"]

Code:

     set file [open "|lynx -source http://64.246.38.123:9061/admin.cgi?pass=pass&mode=viewxml" r]      set html $file     set html "[string trimleft html ""]"     set html "[string trimright html ""]"     putserv "PRIVMSG $chan : 9,1\[\ \0030Your current DJ:\002 $html \002\0039\]"\

[quote]

There are many issues here.

1: You are using "html" instead of "$html" in the "strign trim*" commands.

2: You have made the putserv line over complicated, with a mixture of real CTRL characters, excape codes and unrequired escape codes

3: You are using the return value from the "open" command, to set a variable. You then set "$html" to the same value as returned from "open". The "open" command returns a channel number/file pointer, which is used in command such as read, gets, puts, fconfigure and other socket and file commands.

Statistics: Posted by ppslim — Mon Jan 20, 2003 7:01 pm

Grabbing a certain line on a file?

2003-01-20T17:14:39-04:00

hehe I think it would help if you put $ infront of html

Statistics: Posted by Papillon — Mon Jan 20, 2003 5:14 pm

Grabbing a certain line on a file?

2003-01-20T16:53:44-04:00

Code:

     set file [open "|lynx -source http://64.246.38.123:9061/admin.cgi?pass=pass&mode=viewxml" r]      set html $file     set html "[string trimleft html ""]"     set html "[string trimright html ""]"     putserv "PRIVMSG $chan : 9,1\[\ \0030Your current DJ:\002 $html \002\0039\]"\

It returns "html" =/.

Statistics: Posted by Pyr0 — Mon Jan 20, 2003 4:53 pm

Grabbing a certain line on a file?

2003-01-20T05:35:00-04:00

As noted in the reply, use "string trimleft" and "string trimright", and not regsub.

Regsub uses regular expressions, which can be used for this, but would need escaping.

Statistics: Posted by ppslim — Mon Jan 20, 2003 5:35 am

Grabbing a certain line on a file?

2003-01-20T00:05:22-04:00

if {[string match "*" $line]} {
regsub -all "" $line "" line
regsub -all "" $line "" line
putserv "PRIVMSG $chan : $line"
}

I tried that but it didn't work. Outputted blank if I remember.

Statistics: Posted by Pyr0 — Mon Jan 20, 2003 12:05 am

Grabbing a certain line on a file?

2003-01-19T20:37:46-04:00

there is several ways of doing this...
one is to use lsearch or string match on it,, the pull out the elements...etc
another is to use string trim left/right , then you will be left with just the chars between and .... hopefully

Statistics: Posted by Papillon — Sun Jan 19, 2003 8:37 pm

Grabbing a certain line on a file?

2003-01-19T16:30:57-04:00

Code:

proc dj {nick host hand chan arg} {     global radio_url listener kbps song mlister     set file [open "|lynx http://64.246.38.123:9061/admin.cgi?pass=passgoeshere&mode=viewxml" r]      set html "[gets $file]"

But I have no clue what to do next. I want it to grab the 16th line on the xml file which is like name and use regsub to remove the <> tags. But I have no clue on how to grab the 16th line.
Any ideas?[/code]

Statistics: Posted by Pyr0 — Sun Jan 19, 2003 4:30 pm