$gettok

Jag · Post by **Jag** » Fri Sep 19, 2003 10:10 am

how can i use $gettok in TCL?

stdragon · Post by **stdragon** » Fri Sep 19, 2003 1:12 pm

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

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

Ofloo · Post by **Ofloo** » Fri Sep 19, 2003 1:39 pm

what's gettok supposed to do ?

cerberus_gr · Post by **cerberus_gr** » Tue Dec 09, 2003 4:06 am

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

Post by **CrazyCat** » Tue Dec 09, 2003 4:22 am

seems to be [string] and

commands

Post by **user** » Tue Dec 09, 2003 8:08 am

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

Or you could try this proc

Code: Select all

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"

cerberus_gr · Post by **cerberus_gr** » Tue Dec 09, 2003 1:25 pm

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

Thx

Post by **CrazyCat** » Tue Dec 09, 2003 1:58 pm

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

cerberus_gr · Post by **cerberus_gr** » Tue Dec 09, 2003 3:28 pm

He is the best.

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

arcane · Post by **arcane** » Tue Dec 09, 2003 3:32 pm

CrazyCat wrote:he's a good scripter, isn't he?

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

Post by **user** » Tue Dec 09, 2003 4:51 pm

cerberus_gr wrote: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: Select all

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)

arcane wrote: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

)

arcane · Post by **arcane** » Wed Dec 10, 2003 11:44 am

user wrote:
arcane wrote: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?

stdragon · Post by **stdragon** » Fri Dec 12, 2003 4:50 pm

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

arcane · Post by **arcane** » Sat Dec 13, 2003 10:19 am

hehe... it's voting script, operating system and you can hack microsoft with it

give me your email and ill send it to you.