read all # to right side of decimal

[scriptomator]

Hi. I have attempted to make autoit read all of the number to the right of a decimal point

=================================================================

12.(54969) only these are to be read

$before = 12.54969

******read all numbers after decimal and place in variable******(the part i can't do)

$after = 54969

=================================================================

i don't know if this can be done when it is an integer.if not, can it be read this way if it is converted into a string

i hope that there is not some amazingly simple solution to this problem that will make me look stupid for not realizing it right away

thank you to all who help

Edited July 13, 2010 by scriptomator

[BugFix]

Try this:

$before = 12.54969
$after = $before - Int($before)
$after *=  10^(StringLen($after)-2)
ConsoleWrite($after & @CRLF)

; another way:

$tmp = StringSplit($before, '.', 2)
$after = $tmp[1]
ConsoleWrite($after & @CRLF)

Edited July 13, 2010 by BugFix

[scriptomator]

Try this:

$before = 12.54969
$after = $before - Int($before)
$after *=  10^(StringLen($after)-2)
ConsoleWrite($after & @CRLF)

; another way:

$tmp = StringSplit($before, '.', 2)
$after = $tmp[1]
ConsoleWrite($after & @CRLF)

thank you so much

and i also did not expect to get a response so quickly

[Malkey]

Another way.

Local $before = 12.54969

MsgBox(0,"Results",$before & " has " & StringRegExpReplace($before, "(\d*\.)", "") & " after the decimal point." & @CRLF)

[PsaltyDS]

Yet another version, for the RegExp challenged:

Local $before = 12.54969
Local $after = StringMid($before, StringInStr($before, ".", 0, -1) + 1)
MsgBox(64, "Results", $before & " has " & $after & " after the decimal point." & @CRLF)

[AndyG]

$a=123.456789
$b=number(stringtrimleft(string($a),stringinstr(string($a),".",1)))
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $b = ' & $b & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

;failed...^^....sometimes it is overtaken by the reality
$a=123.456789
$b=number(stringtrimleft(string($a-int($a)),2))
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $b = ' & $b & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

[GEOSoft]

There are just so many ways to do this you could be at it all day.

$a = 123.456789
$iOut = StringMid($a, StringInStr($a, ".") +1)