ບໍລິການ ScriptForge.Platform

ບໍລິການ Platform ໃຫ້ຂໍ້ມູນກ່ຽວກັບສະພາບແວດລ້ອມ ແລະ ບໍລິບົດການເຮັດວຽກໃນປັດຈຸບັນ ເຊັ່ນ:

ແພລັດຟອມຮາດແວ (ສະຖາປັດຕະຍະກຳ, ຈຳນວນ CPU, ປະເພດເຄື່ອງ, ແລະອື່ນໆ)
ຂໍ້ມູນລະບົບປະຕິບັດການ (ປະເພດ OS, ລຸ້ນ, ເວີຊັນ, ແລະອື່ນໆ)
ເວີຊັນຂອງ LibreOffice
ຊື່ຜູ້ໃຊ້ປັດຈຸບັນ

ຄຸນສົມບັດທັງໝົດຂອງບໍລິການ Platform ແມ່ນເປັນແບບອ່ານຢ່າງດຽວ.

ການເອີ້ນໃຊ້ບໍລິການ

ກ່ອນທີ່ຈະໃຊ້ບໍລິການ Platform, ຕ້ອງໂຫລດ ຫຼື ນຳເຂົ້າໄລບຣາຣີ ScriptForge ກ່ອນ:

• ມາໂຄຣ Basic ຕ້ອງມີການໂຫຼດຄັງສຳນວນ ScriptForge ໂດຍໃຊ້ຄຳສັ່ງດັ່ງນີ້:
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")

• ສະຄຣິບ Python ຕ້ອງມີການນຳເຂົ້າຈາກໂມດູນ scriptforge:
from scriptforge import CreateScriptService

ຕົວຢ່າງດ້ານລຸ່ມນີ້ໃນ Basic ແລະ Python ສະແດງການສ້າງອິນສະແຕນຊ໌ບໍລິການ Platform ແລະ ເຂົ້າເຖິງຄຸນສົມບັດ Architecture.

ໃນ Basic


      GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")
      Dim platform As Variant
      platform = CreateScriptService("Platform")
      MsgBox platform.Architecture

ໃນ Python


      from scriptforge import CreateScriptService
      svc = CreateScriptService("Platform")
      bas = CreateScriptService("Basic")
      bas.MsgBox(svc.Architecture)

ຄຸນສົມບັດ

ຊື່	ອ່ານຢ່າງດຽວ	ປະເພດ	ຄຳອະທິບາຍ
Architecture	ແມ່ນ	String	ສະຖາປັດຕະຍະກຳບິດຂອງຮາດແວ. ຕົວຢ່າງ: '32bit' ຫຼື '64bit'
ComputerName	ແມ່ນ	String	ຊື່ເຄືອຂ່າຍຂອງຄອມພິວເຕີ.
CPUCount	ແມ່ນ	Integer	ຈຳນວນຂອງໜ່ວຍປະມວນຜົນກາງ (CPU).
CurrentUser	ແມ່ນ	String	ຊື່ຂອງຜູ້ໃຊ້ທີ່ກຳລັງເຂົ້າສູ່ລະບົບໃນປັດຈຸບັນ.
Extensions	ແມ່ນ	ອາເຣຂໍ້ຄວາມ	ສົ່ງຄືນອາເຣຂໍ້ຄວາມທີ່ລະບຸ ID ພາຍໃນຂອງສ່ວນຂະຫຍາຍທີ່ຕິດຕັ້ງທັງໝົດ.
FilterNames	ແມ່ນ	ອາເຣຂໍ້ຄວາມ	ສົ່ງຄືນອາເຣຂໍ້ຄວາມທີ່ລະບຸຊື່ຕົວກອງການນຳເຂົ້າ ແລະ ສົ່ງອອກເອກະສານທີ່ມີຢູ່.
Fonts	ແມ່ນ	ອາເຣຂໍ້ຄວາມ	ສົ່ງຄືນອາເຣຂໍ້ຄວາມທີ່ລະບຸຊື່ຂອງຟອນທັງໝົດທີ່ມີຢູ່.
FormatLocale	ແມ່ນ	String	ສົ່ງຄືນທ້ອງຖິ່ນທີ່ໃຊ້ສຳລັບຕົວເລກ ແລະ ວັນທີໃນຮູບແບບ "la-CO".
Locale	ແມ່ນ	String	ສົ່ງຄືນທ້ອງຖິ່ນຂອງລະບົບປະຕິບັດການ. ຄຸນສົມບັດນີ້ທຽບເທົ່າກັບ SystemLocale.
Machine	ແມ່ນ	String	ປະເພດເຄື່ອງ. ຕົວຢ່າງ: 'i386' ຫຼື 'x86_64'.
OfficeLocale	ແມ່ນ	String	ສົ່ງຄືນທ້ອງຖິ່ນຂອງສ່ວນຕິດຕໍ່ຜູ້ໃຊ້ໃນຮູບແບບ "la-CO".
OfficeVersion	ແມ່ນ	String	ເວີຊັນຂອງ LibreOffice. ຕົວຢ່າງ: 'LibreOffice 7.4.1.2 (The Document Foundation, Debian and Ubuntu)'
OSName	ແມ່ນ	String	ປະເພດຂອງລະບົບປະຕິບັດການ. ຕົວຢ່າງ: 'Darwin, Linux' ຫຼື 'Windows'.
OSPlatform	ແມ່ນ	String	ຂໍ້ຄວາມທີ່ລະບຸແພລັດຟອມພ້ອມຂໍ້ມູນທີ່ມະນຸດສາມາດອ່ານໄດ້. ຕົວຢ່າງ: 'Linux-5.8.0-44-generic-x86_64-with-glibc2.32'
OSRelease	ແມ່ນ	String	ລຸ້ນຂອງລະບົບປະຕິບັດການ.
OSVersion	ແມ່ນ	String	ເວີຊັນ ຫຼື ເລກບິວດ໌ຂອງລະບົບປະຕິບັດການ. ຕົວຢ່າງ: '#50-Ubuntu SMP Tue Feb 9 06:29:41 UTC 2021'
Printers	ແມ່ນ	String array	ລາຍຊື່ຂອງເຄື່ອງພິມທີ່ມີຢູ່. ເຄື່ອງພິມເລີ່ມຕົ້ນຈະຢູ່ໃນຕຳແໜ່ງທຳອິດ (index = 0).
Processor	ແມ່ນ	String	ຊື່ຂອງໂປຣເຊດເຊີແທ້. ຄຸນສົມບັດນີ້ອາດຈະສົ່ງຄືນຄ່າດຽວກັນກັບຄຸນສົມບັດ Machine.
PythonVersion	ແມ່ນ	String	ສົ່ງຄືນເວີຊັນຂອງຕົວແປພາສາ Python ທີ່ກຳລັງໃຊ້ງານຢູ່.
SystemLocale	ແມ່ນ	String	ສົ່ງຄືນທ້ອງຖິ່ນຂອງລະບົບປະຕິບັດການ.
UntitledPrefix	ແມ່ນ	String	ສົ່ງຄືນຄຳນຳໜ້າທີ່ໃຊ້ສຳລັບຕັ້ງຊື່ເອກະສານໃໝ່ ("Untitled " ໃນພາສາອັງກິດ).
UserData	ແມ່ນ	Dictionary	ສົ່ງຄືນອິນສະແຕນຊ໌ ScriptForge.Dictionary ທີ່ບັນຈຸຂໍ້ມູນຈາກໄດອາລັອກ Tools - Options - User Data.

ສາມາດເບິ່ງຊື່ລະບົບປະຕິບັດການແບບລະອຽດໄດ້ຈາກສູດ Calc INFO("system").

ຕົວຢ່າງ:

ໃນ Basic

ຕົວຢ່າງຕໍ່ໄປນີ້ສະແດງວິທີໃຊ້ຄຸນສົມບັດ Fonts ເພື່ອຂຽນຊື່ຟອນທັງໝົດລົງໃນແຜ່ນງານ Calc:


    Dim oDoc as Object
    Dim allFonts as Object
    Dim svcPlatform as Object
    Set oDoc = CreateScriptService("Calc")
    Set svcPlatform = CreateScriptService("Platform")
    allFonts = svcPlatform.Fonts
    oDoc.setArray("~.A1", allFonts)

ຕົວຢ່າງດ້ານລຸ່ມນີ້ສະແດງວິທີສ້າງຕາຕະລາງ Calc ດ້ວຍຄ່າທັງໝົດທີ່ເກັບໃນຄຸນສົມບັດ UserData:


    Dim svcPlatform as Object, oUserData as Object, oDoc as Object
    Dim arrUserData As Object, currCell As String
    Set svcPlatform = CreateScriptService("Platform")
    oUserData = svcPlatform.UserData
    arrUserData = oUserData.ConvertToArray()
    Set oDoc = CreateScriptService("Calc", ThisComponent)
    oDoc.SetArray("~.A1", Array(Array("Key", "Value")))
    oDoc.SetArray("~.A2", arrUserData)

ໃນ Python

ຕົວຢ່າງຂ້າງເທິງສາມາດຂຽນເປັນ Python ໄດ້ດັ່ງນີ້:


    from scriptforge import CreateScriptService
    bas = CreateScriptService("Basic")
    doc = CreateScriptService("Calc", bas.ThisComponent)
    svc_platform = CreateScriptService("Platform")
    all_fonts = svc_platform.Fonts
    doc.setArray("~.A1", all_fonts)


    from scriptforge import CreateScriptService
    bas = CreateScriptService("Basic")
    doc = CreateScriptService("Calc", bas.ThisComponent)
    svc_platform = CreateScriptService("Platform")
    user_data = svc_platform.UserData
    arr_user_data = [[key, user_data[key]] for key in user_data]
    doc.SetArray("~.A1", (("Key", "Value"),))
    doc.SetArray("~.A2", arr_user_data)

ຣູທີນ ຫຼື ຕົວລະບຸ Basic ຂອງ ScriptForge ທັງໝົດທີ່ຂຶ້ນຕົ້ນດ້ວຍເຄື່ອງໝາຍຂີດກ້ອງ "_" ແມ່ນສະຫງວນໄວ້ສຳລັບໃຊ້ພາຍໃນ. ພວກມັນບໍ່ໄດ້ມີໄວ້ໃຫ້ໃຊ້ໃນມາໂຄຣ Basic ຫຼື ສະຄຣິບ Python.

ການລະບຸລະບົບປະຕິບັດການ

ຂໍ້ມູນແພລັດຟອມດ້ວຍສູດ Calc INFO("system")

ຟັງຊັນ GetGuiType

ຄັງສຳນວນ Tools