egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2001-11-06T22:22:00-04:00 https://forum.eggheads.org/app.php/feed/topic/320 2001-11-06T22:22:00-04:00 2001-11-06T22:22:00-04:00 https://forum.eggheads.org/viewtopic.php?p=1422#p1422 <![CDATA[Expl Script]]>
it would be simple enogugh to use split and lindex to get each section of text.

Code: 

proc pxexpl:get {term chan} { set fd [open $chan.define r] while {![eof $fd]} { set input [gets $fd] if {[pxexpl:term $input] == [string tolower $term]} { close $fd return [lindex [split $input ";"] 2]} } close $fd return 0 }

Statistics: Posted by ppslim — Tue Nov 06, 2001 10:22 pm

]]> 2001-11-06T21:58:00-04:00 2001-11-06T21:58:00-04:00 https://forum.eggheads.org/viewtopic.php?p=1421#p1421 <![CDATA[Expl Script]]> test1;testing 1..2..3;BoB
test2;testing 1..2..3;Fred

This code gets the test1 test2 out of that

proc pxexpl:get {term chan} {
set fd [open $chan.define r]
while {![eof $fd]} {
set input [gets $fd]
if {[pxexpl:term $input] == [string tolower $term]} {
close $fd
return "[string range $input [expr [string last ";" $input]+1] end] [string range $input [expr [string first ";" $input]+1] [expr [string last ";" $input]-1]]"
}
}
close $fd
return 0
}

proc pxexpl:term {fstring} {
set term [string range $fstring 0 [expr [string first ";" $fstring]-1]]
if {$term != ""} { return $term } else { return 0 }
}

but i want it to get the nickname out just the nickname on its own like BoB, Fred
how can i do this?, Thanks

Statistics: Posted by Guest — Tue Nov 06, 2001 9:58 pm

]]>