OpenOffice Basic (ранее известный как StarOffice Basic или StarBasic или OOoBasic ) - это диалект языка программирования BASIC, который возник из офисного пакета StarOffice и распространился через OpenOffice.org и производные, такие как Apache OpenOffice и LibreOffice (где он известен как LibreOffice Basic ). Этот язык является предметно-ориентированным языком программирования, который специально обслуживает набор приложений OpenOffice.
Пример
Хотя OpenOffice Basic похож на другие диалекты BASIC, такие как Microsoft «ы Visual Basic для приложений (VBA), то интерфейс прикладного программирования (API) , очень отличается, в качестве примера ниже в А макро иллюстрирует. Хотя существует гораздо более простой способ получить свойство документа «количество абзацев», в примере показаны основные методы последовательного доступа к каждому абзацу в текстовом документе.
Sub ParaCount ' ' Подсчитать количество абзацев в текстовом документе ' Dim Doc As Object , Enum As Object , TextEl As Object , Count As Long Doc = ThisComponent ' Это текстовый документ? Если не док . SupportsService ( "com.sun.star.text.TextDocument" ) Затем MsgBox "Этот макрос должен запускаться из текстового документа" , 64 , "Ошибка" Выход Sub End If Count = 0 'Изучить каждый компонент - абзац или таблицу? Enum = Док . Текст . CreateEnumeration пока Enum . HasMoreElements TextEl = Enum . NextElement 'Является ли компонент абзацем? Если TextEl . SupportsService ( "com.sun.star.text.Paragraph" ) Then Count = Count + 1 End If Wend 'Показать результат MsgBox Count , 0 , "Paragraph Count" End Sub
Смотрите также
дальнейшее чтение
- Стейнберг, Джеймс. Open Office Basic: введение . Независимая издательская платформа CreateSpace. ISBN 978-1481270939.
Внешние ссылки
- Руководство по программированию OpenOffice.org BASIC вики
- Базовая справка LibreOffice