egghelp/eggheads community

Catching Decimal numbers in an if statement

2002-11-13T20:09:02-04:00

First thing, it's usually easier to understand if you break up the line into separate parts.

Code:

# Separate string into wordsset words [split $text]# Get first word (bantime)set bantime [lindex $words 0]# Split it by '.' in case there is oneset parts [split $bantime "."]# Get the first part and ignore the restset real_bantime [lindex $parts 0]

The comments are a bit excessive (I wouldn't put them there for myself), but it's a lot easier to read than when everything is crammed on one line.

Just a note though, regexp would be a better function to use, I think.

regexp {(\d+)\S*\s*(.*)} $text ignore bantime reason

Read out loud, it means "at least one digit", "some non-space chars or none (e.g. the .2 part)", "some space chars (or none)", and then "any chars (the reason)".

Regexp syntax is weird at first, but then it's very logical and easy to use to parse just about anything in one line.

% set text "2;2 you're banned"
2;2 you're banned
% regexp {(\d+)\S*\s*(.*)} $text ignore bantime reason
1
% puts $bantime
2
% puts $reason
you're banned
%

Statistics: Posted by stdragon — Wed Nov 13, 2002 8:09 pm

Catching Decimal numbers in an if statement

2002-11-13T19:50:58-04:00

i really dont understand these lindex things at all. Spitting it simply i can just about get, that just confuses me still

Statistics: Posted by Weirdo — Wed Nov 13, 2002 7:50 pm

Catching Decimal numbers in an if statement

2002-11-13T19:13:45-04:00

Code:

set bantime2 [lindex [split [lindex [split $text] 0] .] 1]

this is wrong.... if you trigger it with !w3rk 2 2 it will first split 2 2, then it will pick out the first element in the list.... "2", then it will try to split "2" at every . (none in this example), and now we come to where the wrong part is ... it will last take elemet number 2 from a list wich only consist of 1 element... that's why $bantime2 always will be empty.. if u replace the "1" in the script with a "0" I think you'll get what u want... like this:

Code:

set bantime2 [lindex [split [lindex [split $text] 0] .] 0]

Statistics: Posted by Papillon — Wed Nov 13, 2002 7:13 pm

Catching Decimal numbers in an if statement

2002-11-13T14:25:47-04:00

Code:

set bantime2 [lindex [split [lindex [split $text] 0] .] 1]if {$bantime2 == ""} {set bantime2 $w3rkdefbantime}

Currently the use of !w3rk 2 2 test doesnt return anything but the $w3rkdefbantime variable. For some reason it isnt picking up the "2" which is the bantime that i want to be used.

It didnt use to do this

Statistics: Posted by Weirdo — Wed Nov 13, 2002 2:25 pm

Catching Decimal numbers in an if statement

2002-10-26T13:23:50-04:00

i don't know why people will do a ban 1.1 (or other characters).
The ban command is

!afk time reason with time in minutes, means an integer !

The best way i think it's to allow only integers and u can test this with if [isnumber $time]

other solution, perhaps ?

Code:

set test "123,4" set what "" for {set loop 0} {$loop < [strlen $test] } {incr loop} {     if { [regexp \[^0-9\] [string index $test $loop]]} {          break     } else {          set what "$what[string index $test $loop]"     }} return $whatreturns 123 in my example

Statistics: Posted by Guest — Sat Oct 26, 2002 1:23 pm

Catching Decimal numbers in an if statement

2002-10-26T12:41:30-04:00

they try to break it

if they use other characters in between the digits, does the "." become a "*" ?

Statistics: Posted by Weirdo — Sat Oct 26, 2002 12:41 pm

Catching Decimal numbers in an if statement

2002-10-26T12:37:55-04:00

yep but why people will do a 1.1
why not a 1,1 or a 1;1 or ...

Statistics: Posted by Guest — Sat Oct 26, 2002 12:37 pm

Catching Decimal numbers in an if statement

2002-10-26T12:37:19-04:00

oooh, nice bit of code that, kind of confusing. So its a string inside a string. interesting indeed

Thanks as always, it works perfectly

Statistics: Posted by Weirdo — Sat Oct 26, 2002 12:37 pm

Catching Decimal numbers in an if statement

2002-10-26T12:19:41-04:00

The "[lindex [split $text] 0]" will get the 1.1 out of the text. But to get only the whole number, wihtout the decimal, use

Code:

set bantime [lindex [split [lindex [split $text] 0] .] 0]

Statistics: Posted by ppslim — Sat Oct 26, 2002 12:19 pm

Catching Decimal numbers in an if statement

2002-10-26T12:06:28-04:00

don't understand exactly

but why not using [isnumber $string], a proc on alltools.tcl

Statistics: Posted by Guest — Sat Oct 26, 2002 12:06 pm

Catching Decimal numbers in an if statement

2002-10-26T08:42:24-04:00

Ok, still havent found anything that i could use for this really. Is there a way i could split the ".*" from the number entered, so it would round it down?

Code:

set bantime [lindex [split $text] 0 ]

This is where the code fits into the script

Statistics: Posted by Weirdo — Sat Oct 26, 2002 8:42 am

Catching Decimal numbers in an if statement

2002-10-25T08:01:20-04:00

Hey again

right, i am adding some validation to my !afk scripts. Basically. when you do

!afk 1 test

It bans you for one minute, with the reason test

(There is a reason i have this on my bot, a channel full of IRC addicts and procrastinators )

But, when you do

!afk 1.1 test

It bans you instantly, and for permanent. What i want to know, is how can i use an if statement to catch out these errors in the bantime? Namely the decimal points. what i ultimately want to do is to include this in the existing validation i have for this script, Which checks the number range, if that is wrong, then the script will not execute. I want to do the exact same thing with the Decimal Checker.

Any help?

Statistics: Posted by Weirdo — Fri Oct 25, 2002 8:01 am