Read Integer from string

[hazard79]

Hi.. I'm new here.. i would be very happy if someone could show me how to read 7,695 in the string shows below as an integer. I have write some code below which is not successful because it returns only the first character of the string (7). My goals here is to get the number in the sentence, divide it by 2 and send it somewhere...

This is the string/sentence..

" Ampun tuanku, kita mempunyai 7,695 rakyat yang masih belum mempunyai sebarang pekerjaan... patik berharap agar tuanku dapat mengagihkan pekerjaan kepada mereka dengan seimbang tanpa mengabaikan keselamatan negara... "

$bak = ClipGet()

$var = StringMid($bak, 31)

$var = StringTrimRight($var, 183)

$var = StringReplace($var, " ", "")

$var = IsNumber($var)

MsgBox(0,"Ceiling",$var)

If $var <> 0 Then

If mod($var,2) = 0 Then

MsgBox(0,"",$var)

$var = $var/2

Else

MsgBox(0,"var - 1",$var - 1)

MsgBox(0,"var / 2",$var / 2)

$var = (Ceiling($var/2)-1)

MsgBox(0,"Ceiling",$var)

EndIf

EndIf

[enaiman]

Here is a small example which is returning the number no matter where it is in the string and if it contains a comma (,) or not - the only one condition is the number must be between 2 white spaces and to not have other characters.

$string="asdf 4,654 dfgg"
$split = StringSplit($string, " ")
for $i=1 to UBound($split)-1
    If StringIsInt($split[$i]) Then $result = $split[$i]
    If StringInStr($split[$i], ",") Then
        $number = StringSplit($split[$i], ",")
        If StringIsInt($number[1]) And StringIsInt($number[2]) Then
            $result = $number[1]&$number[2]
        EndIf
    EndIf
Next
MsgBox(0, "Result", $result)

[MrCreatoR]

Hi,

Try this:

$String = " Ampun tuanku, kita mempunyai 7,695 rakyat yang masih belum mempunyai sebarang pekerjaan... patik berharap agar tuanku dapat mengagihkan pekerjaan kepada mereka dengan seimbang tanpa mengabaikan keselamatan negara... "

MsgBox(0, "", StringGetIntegr($String))

Func StringGetIntegr($String)
    $String = StringRegExpReplace($String, '[^0-9|^,]', '')
    While StringRight($String, 1) = ","
        $String = StringTrimRight($String, 1)
    WEnd
    
    While StringLeft($String, 1) = ","
        $String = StringTrimLeft($String, 1)
    WEnd
    Return $String
EndFunc

Edited July 6, 2007 by MsCreatoR

[xcal]

$string = " Ampun tuanku, kita mempunyai 7,695 rakyat yang masih belum mempunyai sebarang pekerjaan... patik berharap agar tuanku dapat mengagihkan pekerjaan kepada mereka dengan seimbang tanpa mengabaikan keselamatan negara... "

$ret = StringRegExp($string, '([0-9](?i)[^a-z]{1,})', 1)

MsgBox(0, '', $ret[0])

edit - little tweaking going on

Edited July 6, 2007 by xcal

[hazard79]

special thanks to xcal, mscreator enaiman... It's work perfectly..

[xcal]

No problem. Btw, you can change StringRegExp to mode 3 if you have a string with multiple number sets that you want to return (just run the $ret array through a loop).

[hazard79]

No problem. Btw, you can change StringRegExp to mode 3 if you have a string with multiple number sets that you want to return (just run the $ret array through a loop).

what if the string contain multiple number? which number will be choose?

[xcal]

$string = " Ampun tuanku, kita mempunyai 7,695 rakyat yang 123,456 masih belum mempunyai 7890 sebarang pekerjaan... patik berharap agar tuanku dapat mengagihkan pekerjaan kepada mereka dengan seimbang tanpa mengabaikan keselamatan negara... "

$ret = StringRegExp($string, '([0-9](?i)[^a-z]{1,})', 3)

For $i = 0 To UBound($ret) - 1
    MsgBox(0, '', $ret[$i])
Next

Run this, and you'll see what I mean.