Getting Session Information

Computing LibreOffice user profile and shared modules system file paths can be performed with Python or with Basic languages. BeanShell, Java, JavaScript and Python scripts locations can be derived from this information.

Contoh:

Dengan Python shell.

>>> from <the_module> import Session

>>> print(Session.SharedPythonScripts()) # static method

>>> print(Session().UserName) # object property

>>> input(Session().UserProfile) # object property

dariperkakas–makro - jalankan makro... menu


        from <the_module> import Session
            
        def demo_session():
            import screen_io as ui
            ui.MsgBox(Session.Share(),title='Installation Share')  # static method
            ui.Print(Session.SharedPythonScripts())  # static method
            s = Session()  # penciptaan instansi
            ui.MsgBox(s.UserName,title='Hello')  # object property
            ui.Print(s.UserPythonScripts)  # properti objek
            
        g_exportedScripts = (demo_session,)  # public macros

Bekerja dengan LibreOffice Basic


        Sub Session_example()
            Dim s As New Session ' instance of Session class
            Cetak "Bagikan skrip lokasi:" , s. Bagikan skrip
            MsgBox s.UserName,,"Halo"
            Print s.UserScripts, Chr(13), s.UserPythonScripts
        End Sub ' Session_example

Menggunakan COM/OLE dan Bahasa pemrograman Visual basic.


        ' Pengelola layanan adalah selalu titik entri
        'Jika tidak ada kantor yang beroperasi maka sebuah kantor dimulai
        Set sm = WScript.CreateObject("com.sun.star.ServiceManager")
        ' Layanan PathSubstitution memperlihatkan informasi untuk disimpulkan
        ' <UserProfile|Share>/Skrip/python dari
        Set obj = sm.createInstance("com.sun.star.util.PathSubstitution")
            
        MsgBox CreateObject("WScript.Network").UserName,, "Hello"
        user = obj.getSubstituteVariableValue("$(user)")
        MsgBox user & "/Scripts",, "User scripts location"
        libO = Replace(obj.getSubstituteVariableValue("$(inst)"), "program/..", "Share")
        MsgBox libO & "/Scripts",, "Shared scripts location"

Kelas Sesi Python:


        import getpass, os, os.path, uno
            
        class Session():
            @staticmethod
            def substitute(var_name):
                ctx = uno.getComponentContext()
                ps = ctx.getServiceManager().createInstanceWithContext(
                    'com.sun.star.util.PathSubstitution', ctx)
                return ps.getSubstituteVariableValue(var_name)
            @staticmethod
            def Share():
                inst = uno.fileUrlToSystemPath(Session.substitute("$(prog)"))
                return os.path.normpath(inst.replace('program', "Share"))
            @staticmethod
            def SharedScripts():
                return ''.join([Session.Share(), os.sep, "Scripts"])
            @staticmethod
            def SharedPythonScripts():
                return ''.join([Session.SharedScripts(), os.sep, 'python'])
            @property  # alternatif untuk variabel '$(username)'
            def UserName(self): return getpass.getuser()
            @property
            def UserProfile(self):
                return uno.fileUrlToSystemPath(Session.substitute("$(user)"))
            @property
            def UserScripts(self):
                return ''.join([self.UserProfile, os.sep, 'Scripts'])
            @property
            def UserPythonScripts(self):
                return ''.join([self.UserScripts, os.sep, "python"])

Tidak seperti Basic, normalisasi pathname dilakukan dengan Python di dalam kelas Session

LibreOffice ~Basic...sesi kelas:


        Option Explicit
        Option Compatible
        Option ClassModule
            
        private _ps sebagai obyek 'anggota pribadi
            
        Private Sub Class_Initialize()
            GlobalScope.BasicLibraries.LoadLibrary("Tools")
            Set _ps = CreateUnoService("com.sun.star.util.PathSubstitution")
        End Sub ' Konstruktor
            
        Private Sub Class_Terminate()
            _ps = Nothing
        Destructor Akhir Sub
            
        Public Property Get SharedScripts() As String
            Dim inst As String, shr As String
            inst = ConvertFromURL(_ps.getSubstituteVariableValue("$(prog)"))
            shr = Tools.Strings.ReplaceString(inst,"Share","program")
            SharedScripts = shr & GetPathSeparator() &"Scripts"
        End Property ' Session.sharedScripts
            
        Public Property Get SharedPythonScripts() As String
            sharedPythonScripts = sharedScripts() & GetPathSeparator() &"python"
        End Property ' Session.sharedPythonScripts
            
        Publik Properti Dapatkan NamaPengguna() sebagai String ' nama akun Pengguna
            userName = _ps.getSubstituteVariableValue("$(username)")
        End Property ' Session.userName
            
        Properti Publik mendapatkan UserProfile() Sebagai nama akun Pengguna String
            userProfile = ConvertFromURL(_ps.getSubstituteVariableValue("$(user)"))
        End Property ' Session.userProfile
            
        Properti Publik mendapatkan UserProfile() Sebagai nama akun Pengguna String
            userScripts = userProfile() & GetPathSeparator() &"Scripts"
        End Property ' Session.userScripts
            
        Properti publik mendapatkan UserPythonScripts() Sebagai String ' Pengguna script Python jalur sistem
            userPythonScripts = userScripts() & GetPathSeparator() &"python"
        End Property ' Session.userPythonScripts

Organisasi dan Lokasi Skrip Python

Importing Python Modules

Input/Output to Screen

contoh pemrograman Python