[FBSL] FARR's Calc tool updated!

Hello,

I've improved my FARR's calculator!

Here's the link : http://gedd123.free.fr/Fbsl/DC/FBSLCalc_16-09.zip

How to install Fbslcalc.fbs into FARR ?
-1- Copy FBSLCalc.exe into \FindAndRunRobot\Scripts\
-2- Open FARR and edit Option, select the 'calc'item,and replace its regex config with this one :
calc $$1 | Scripts/FBSLCalc.exe "$$1"
-3- Save

That'all folks!
Now you can play with the newest calc smiley

Usage : FBSLCalc.exe expression

Examples :
basic sample :
Calc 2+2
It'll return '4'

graphical sample :
calc /code=FBSL_Control("Button", Me, "Hello", 1000, 10, 10, 75, 23, 0, 0):show(me):begin events:If CBMsg = WM_COMMAND And CBCTL =1000 then msgbox(0, "Button clicked!", "yoo", 0):end events
it'll afx a form with a button, then just click onto the button... smiley

sample sample :
calc /code=ExecLine(FileLoad("./PMem.fbs"))

Enjoy!

Here is the source of the newest FARR's calc :

Formatted for UNKNOWN with the GeSHI Syntax Highlighter [copy or print]
#Option Explicit
'#AppType Console
 
If Not STANDALONE Then
    Fbsl2Exe( Command(1) ): ExitProgram(0)
End If
 
'// -----------------------------------------------------------------
'// GEG 26 September 2006
'// FBSLCALC.EXE 2.5/56*PI
'// FBSLCALC.EXE /code=msgbox(Null,"Hello","Test",MB_ICONINFORMATION)
'// -----------------------------------------------------------------
Static $code, $resulttext, $result, $cmd = Command(-1), ch34 = Chr(34), ch92 = Chr(92)
If cmd = "" Then
    MsgBox(NULL, "You need to specify an expression to evaluate, like 2+2." & crlf & _
                "If you encounter any problems, tell'em there : " & crlf & _
                "http://www.fbsl.net/phpbb2/index.php", _
                "Freestyle Basic Script Langage (FBSL) Calculator:", MB_OK +MB_ICONINFORMATION)
    ExitProgram(1)
End If
 
cmd = Replace(cmd, ch34 & ch34, "")
If Left(cmd, 1) = ch34 AndAlso Right(cmd, 1) = ch34 Then
    cmd = Mid(cmd, 2, StrLen(cmd) - 2)
End If
 
If Instr(cmd,"/code=") Then
    cmd = Remove(Trim(cmd), "/code=")
    code = "result = " & cmd & " : Return result"
    resulttext = cmd & " = " & ExecLine(code)
Else
    cmd = Replace(Trim(cmd), ",", ".")
    code = "result = " & cmd & " : Return result"
    ExecLine(code)
    result = Replace(result, ".", GetLocalSeparator())
    resulttext = cmd & " = " & result
End If
 
If StrLen(cmd) = 0 Then ExitProgram(-1)
 
ClipboardSetText(result)'resulttext)
MsgBox(NULL, resulttext, "Freestyle Basic Script Langage (FBSL) Calculator / Executor:", _
       MB_OK+MB_ICONINFORMATION)
 
Function GetLocalSeparator()
    Dim $Buffer * 4
    ApiCall( "GetNumberFormat", "kernel32", 0, 0, "1.1", 0, @Buffer, Len(Buffer) )
    Return Mid(Buffer,2,1)
End Function