Apache OpenOffice Community Forum

Code: Select all

def IsAlpha( cChars ):
    """Return True if every char in cChars is a letter."""
    return AllCharsInSet( cChars, constLetters() )

Code: Select all

REM  *****  BASIC  *****
REM Keep a global reference to the ScriptProvider, since this stuff may be called many times:
Global g_MasterScriptProvider
REM Specify location of Python script, providing cell functions:
Const URL_Main = "vnd.sun.star.script:sheetFunction.py$"
REM &location=document for document embedded Python:
Const URL_Args = "?language=Python&location=user"

Function getMasterScriptProvider()
   if NOT isObject(g_MasterScriptProvider) then
      oMasterScriptProviderFactory = createUnoService("com.sun.star.script.provider.MasterScriptProviderFactory")
      g_MasterScriptProvider = oMasterScriptProviderFactory.createScriptProvider("")
   endif
   getMasterScriptProvider = g_MasterScriptProvider
End Function

Function PYTHON_FUNCTION(inputArgs)
REM name of the python function to call:
Const fncName = "Python_Function"
REM concatenate the full URL:
   sURL = URL_Main & fncName & URL_Args
   oMSP = getMasterScriptProvider()
   oScript = oMSP.getScript(sURL)
   x = oScript.invoke(Array(data),Array(),Array())
   getDoubleOf = x
end Function

Code: Select all

function Get_Tau_c(Trafo_L1, TW_r1)
	script = GetScript("Get_Tau_c")
	Get_Tau_c = script.invoke(Array(Trafo_L1, TW_r1), Array(), Array())
end function

Code: Select all

function M2Db(mval)
	script = GetScript("M2Db")
	M2Db = script.invoke(Array(mval), Array())
end function

Code: Select all

M2Db = script.invoke(Array(mval))
M2Db = script.invoke(mval)

Code: Select all

   M2Db = script.invoke(Array(mval), Array(), Array())