Mengidentifikasi Sistem Operasi

Identifikasi sistem operasi dapat dilakukan dengan bahasa python atau basic.

ComputerName property is solely available for Windows. Basic calls to Python macros help overcome Collabora Office Basic limitations.

Menggunakan Python class:

""" the_module """
import os, platform
class Platform():
    @property
    def ComputerName(self): return platform.node()
    @property
    def DirSeparator(self): return os.sep
    @property
    def isLinux(self): return (self.OSName=='Linux')
    @property
    def isMacOSX(self): return (self.OSName=='Darwin')
    @property
    def isWindows(self): return (self.OSName=='Windows')
    @property
    def OSName(self): return platform.system()
    @property
    def PathDelimiter(self): return os.pathsep

Menggunakan Basic classmodule:

Collabora Office Basic lacks MacOS X native recognition. Platform identification is possible using Collabora Office Application Programming Interface (API).

Option Compatible
Option ClassModule
Option Explicit

Public Property Get ComputerName As String
    If isWindows Then ComputerName = Environ("ComputerName")
End Property ' Platform.ComputerName

Public Property Get DirSeparator As String
    DirSeparator = GetPathSeparator()
End Property ' Platform.DirSeparator

Public Property Get IsLinux As Boolean
    isLinux = ( GetGUIType()=4 ) ' Applies to macOS as well
End Property ' Platform.isLinux

Public Property Get IsMacOSX As Boolean
    isMacOSX = ( OSName="MAC" )
End Property ' Platform.isMacOSX

Public Property Get IsWindows As Boolean
    isWindows = ( GetGUIType()=1 )
End Property ' Platform.isWindows

Public Property Get OSName As String
    ' Return platform name as "MAC", "UNIX", "WIN"
    ' Inferred from "Tools.UCB.ShowHelperDialog" function
    With GlobalScope.Basiclibraries
        If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    Dim keyNode As Object ' com.sun.star.configuration.ConfigurationAccess
    keyNode = Tools.Misc.GetRegistryKeyContent("org.openoffice.Office.Common/Help")
    OSName = keyNode.GetByName("System")
End Property ' Platform.OSName

Public Property Get PathDelimiter As String
    Select Case OSName
        Case "MAC", "UNIX" : PathDelimiter = ":"
        Case "WIN" : PathDelimiter = ";"
     End Select
End Property ' Platform.PathDelimiter

Contoh:

dengan Python

>>> from < the_module > import Platform

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

True

>>> input(Platform().OSName) # properti obyek

Darwin

dari alat – makro - jalankan makro... menu.

from < the_module > import Platform
import screen_io as ui
p = Platform()
ui.MsgBox(''.join(['isMacOS: ',str(p.isMacOSX)]),0,p.OSName)

Bekerja dengan Collabora Office Basic

Sub Platform_example()
    Dim p sebagai platfrom baru ' contoh dari kelas Platfrom
    MsgBox p.isLinux ' properti objek
    cetak objek p.isWindows, p.OSName
End Sub ' Platform_example

Input/Output to Screen

GetGuiType Function

GetPathSeparator Function

Memanggil Skrip Python dari Basic

contoh pemrograman Python

Bantuan Skrip Python Collabora Office