Из Википедии, бесплатной энциклопедии
Перейти к навигации Перейти к поиску

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 ,  "Ошибка"  Exit  Sub  End Если  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 , «Счетчик абзацев» End  Sub

См. Также [ править ]

Дальнейшее чтение [ править ]

  • Стейнберг, Джеймс. Open Office Basic: введение . Независимая издательская платформа CreateSpace. ISBN 978-1481270939.

Внешние ссылки [ править ]