egghelp/eggheads community

$gettok

2003-12-13T10:19:22-04:00

hehe... it's voting script, operating system and you can hack microsoft with it
give me your email and ill send it to you.

Statistics: Posted by arcane — Sat Dec 13, 2003 10:19 am

$gettok

2003-12-12T16:50:06-04:00

Whew 93k! What is it, a voting script plus an operating system? Where is the link?

Statistics: Posted by stdragon — Fri Dec 12, 2003 4:50 pm

$gettok

2003-12-10T11:44:46-04:00

wanna take a look at a 93kb voting script?
Compress it to about 20k first and I'll have a look (and use extremely short variable names or english words or I will hate reading your code )

hehe... its 16kb zipped and i used english variable names
please?

Statistics: Posted by arcane — Wed Dec 10, 2003 11:44 am

$gettok

2003-12-09T16:51:42-04:00

I wanted to paste my code here, but now I'll feel bad, after your post user Thx

Don't be shy I didn't mean to make you feel bad. Sorry for that. Here's a proc to make it up to you.
A somewhat compressed version that does almost the same as the above proc, only twice as slow (due to uncompiled if statements) and more like mirc (i misunderstood the "A negative value" part of the mirc manual it seems):

Code:

proc gettok {txt n c} {set c [format %c $c]set txt [split $txt $c]set i [llength $txt]if {[scan $n %i-%i a b]==2 ||\    [scan $n[expr {$i-1}] %i-%i a b]==2 ||\   ([scan $n %i a]&&[set b $a]!="")} {join [lrange $txt [expr {$a%$i}] [expr {$b%$i}]] $c}}

...seriously though, posting your code would probably do you more good than harm. Very few of the people here bite coders that try their best. You might get some useful tips

I don't recommend using any of my two procs. Doing a little list/calculation/other text formatting work wouldn't hurt your coding skills, and it'd be alot faster. (depending on how you code, of course)

wanna take a look at a 93kb voting script?

Compress it to about 20k first and I'll have a look (and use extremely short variable names or english words or I will hate reading your code )

Statistics: Posted by user — Tue Dec 09, 2003 4:51 pm

$gettok

2003-12-09T15:32:01-04:00

he's a good scripter, isn't he?

indeed. user, wanna take a look at a 93kb voting script?

Statistics: Posted by arcane — Tue Dec 09, 2003 3:32 pm

$gettok

2003-12-09T15:36:13-04:00

He is the best.

CrazyCat thx for your help too. I wrote a code in this format, but it had some bugs

Statistics: Posted by cerberus_gr — Tue Dec 09, 2003 3:28 pm

$gettok

2003-12-09T13:58:26-04:00

he's a good scripter, isn't he?

Statistics: Posted by CrazyCat — Tue Dec 09, 2003 1:58 pm

$gettok

2003-12-09T13:25:50-04:00

I wanted to paste my code here, but now I'll feel bad, after your post user Thx

Statistics: Posted by cerberus_gr — Tue Dec 09, 2003 1:25 pm

$gettok

2003-12-09T08:08:28-04:00

Use 'split' first, then 'lindex' or 'lrange' and 'join'.

Or you could try this proc

Code:

proc gettok {txt n c} {set c [format %c $c]set txt [split $txt $c]if {[string match *- $n]} {scan $n[llength $txt] %i-%i a b} elseif {[string match -* $n]} {set b [llength $txt]set a [expr $b$n]} elseif {[string match *-* $n]} {scan $n %i-%i a b} {set a [set b $n]}join [lrange $txt $a $b] $c}

A couple of things that are different from the mirc version:
n is zero-based (the first token is 0)
the proc returns an empty string when the mirc thing would return "$null"

Statistics: Posted by user — Tue Dec 09, 2003 8:08 am

$gettok

2003-12-09T04:22:10-04:00

seems to be [string] and

commands

Statistics: Posted by CrazyCat — Tue Dec 09, 2003 4:22 am

$gettok

2003-12-09T04:06:43-04:00

From the help file of the mIRC:

$gettok(text,N,C)
Returns the Nth token in text.

$gettok(a.b.c.d.e,3,46) returns c
$gettok(a.b.c.d.e,9,46) returns $null

You can also specify a range of tokens:

$gettok(a.b.c.d.e,2-,46) returns 2nd token onwards b.c.d.e
$gettok(a.b.c.d.e,2-4,46)returns tokens 2 through 4 b.c.d

You can specify a negative value for N.

Any help?
(I want both for 8.0 and 8.4 versions of tcl if anyone could help)
Thx

Statistics: Posted by cerberus_gr — Tue Dec 09, 2003 4:06 am

$gettok

2003-09-19T13:39:04-04:00

what's gettok supposed to do ?

Statistics: Posted by Ofloo — Fri Sep 19, 2003 1:39 pm

$gettok

2003-09-19T13:12:14-04:00

You can't, that's a mirc command.

http://www.tcl.tk/man/tcl8.3/TclCmd/contents.htm

Statistics: Posted by stdragon — Fri Sep 19, 2003 1:12 pm

$gettok

2003-09-19T10:10:07-04:00

how can i use $gettok in TCL?

Statistics: Posted by Jag — Fri Sep 19, 2003 10:10 am