hazard79 Posted July 6, 2007 Share Posted July 6, 2007 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 Link to comment Share on other sites More sharing options...
enaiman Posted July 6, 2007 Share Posted July 6, 2007 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) SNMP_UDF ... for SNMPv1 and v2c so far, GetBulk and a new example script wannabe "Unbeatable" Tic-Tac-Toe Paper-Scissor-Rock ... try to beat it anyway :) Link to comment Share on other sites More sharing options...
MrCreatoR Posted July 6, 2007 Share Posted July 6, 2007 (edited) 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  Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1  AutoIt Russian Community My Work... Spoiler Projects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize ProgramUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF Examples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating ) * === My topics === * ================================================== ==================================================    AutoIt is simple, subtle, elegant. © AutoIt Team Link to comment Share on other sites More sharing options...
xcal Posted July 6, 2007 Share Posted July 6, 2007 (edited) $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 How To Ask Questions The Smart Way Link to comment Share on other sites More sharing options...
hazard79 Posted July 6, 2007 Author Share Posted July 6, 2007 special thanks to xcal, mscreator enaiman... It's work perfectly.. Link to comment Share on other sites More sharing options...
xcal Posted July 6, 2007 Share Posted July 6, 2007 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). How To Ask Questions The Smart Way Link to comment Share on other sites More sharing options...
hazard79 Posted July 6, 2007 Author Share Posted July 6, 2007 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? Link to comment Share on other sites More sharing options...
xcal Posted July 6, 2007 Share Posted July 6, 2007 $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. How To Ask Questions The Smart Way Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now