1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Sub testInterConsole()
Dim masterSPF As Object, scriptP As Object, monScript As Object
Dim Operations, Resultat(10)
Dim i as Integer, message As string
Operations = Array("a=10","b=15","c=a+b","c","a*b","2+")
masterSPF = createUnoService("com.sun.star.script.provider.MasterScriptProviderFactory")
scriptP = masterSPF.createScriptProvider("")
monScript = scriptP.getScript("vnd.sun.star.script:interConsole.py$com?language=Python&location=user")
message=""
For i = Lbound(Operations) to Ubound(Operations)
resultat(i) = monScript.invoke(Array(Operations(i)), Array(), Array())
message = message + Operations(i) + " --> " + resultat(i)(0) + " " + resultat(i)(1) + chr(13) + chr(10)
Next i
msgbox message
end Sub
sub testInterConsoleSF()
Dim session As Variant
Dim Operations, Resultat(10)
Dim i as Integer, message as String
Operations = Array("a=10","b=15","c=a+b","c","a*b","2+")
With GlobalScope.BasicLibraries
If Not .IsLibraryLoaded("ScriptForge") Then .LoadLibrary("ScriptForge")
End With
session = CreateScriptService("Session")
message=""
For i = Lbound(Operations) to Ubound(Operations)
resultat(i) = session.ExecutePythonScript(session.SCRIPTISPERSONAL, "interConsole.py$com", Operations(i))
message = message + Operations(i) + " --> " + resultat(i)(0) + " " + resultat(i)(1) + chr(13) + chr(10)
Next i
msgbox message
end sub |
Partager