How can I translate the VBA function evaluate() to BASIC

[SandroV]

I'm translating many macros from VBA to openoffice basic: the only my
problem is to translate the VBA function evaluate(....), for example

x="3*8+4^2".
y=Evaluate(x)

I need this function since I have to show the details of my calculations.
I've solved the problem as follow:

Function cal(testo As String) As Double
oObjFactory = createUnoService( "com.sun.star.bridge.OleObjectFactory" )
RInterface = oObjFactory.createInstance(
"StatConnectorSrv.StatConnector" )
call RInterface.Init("R")
cal = RInterface.Evaluate(testo)
End Function

BUT IN THIS WAY MY CALC SHEETS ARE VERY SLOW !!!!!
Is there a easy way to do it????
Thank you in advance

Sandro

[TerryE]

OOo Basic doesn't include a an evaluate function, which is a real shame, but see
http://www.oooforum.org/forum/viewtopic.phtml?t=18781
for a way of using library insertion to do this, and if you are really desperate you can always call vbscript from inside your code *if* you are running under windows of course; see
http://www.oooforum.org/forum/viewtopic.phtml?p=19121
_________________
Terry
WinXPSP3, OOo 2.4.1, Ubunto 8.04 for development
Also try the Official OOo Community Forum where I mainly post now.

[ms777]

an alternative solution would be to use the javascript eval function. For an example how to call javascript from OOBasic see http://www.oooforum.org/forum/viewtopic.phtml?t=21564

BTW, what is the "StatConnectorSrv.StatConnector" ? I did not find that in my (Windows XP) registry ?

ms777