StarOffice Basic
StarOffice Basic (aussi connu sous le nom de StarBasic ou OOoBasic) est un dialecte du langage de programmation Basic qui est inclus dans les suites bureautiques OpenOffice.org, LibreOffice et StarOffice. Il supporte l'Unicode.
| StarOffice Basic | ||
 | ||
 | ||
| Paradigme | Programmation événementielle | |
|---|---|---|
| Typage | Statique, fort | |
| Système d'exploitation | Multiplate-forme | |
| Site web | oracle.com | |
Exemple
Bien que StarBasic lui-même soit similaire à d'autres dialectes du Basic, tels que le Visual Basic for Applications (VBA) de Microsoft, l'API est très différente, comme l'exemple ci-après le montre.
Sub DĂ©compteParagraphes
'
' Compte le nombre de paragraphes dans le document texte
'
Dim Doc As Object, Enum As Object, DĂ©compte As Long
Doc = ThisComponent
' Est-ce que cet objet est un document texte ?
If Not Doc.SupportsService("com.sun.star.text.TextDocument") Then
MsgBox "Cette macro ne doit être lancée que depuis un document texte", 64, "Error"
Exit Sub
End If
DĂ©compte=0
' Examine chaque composant - paragraphe ou table ?
Enum=Doc.Text.CreateEnumeration
While Enum.HasMoreElements
TextEl=Enum.NextElement
' Est-ce que le composant est un paragraphe ?
If TextEl.SupportsService("com.sun.star.text.Paragraph") Then
DĂ©compte=DĂ©compte+1
End If
Wend
'Affiche le résultat
MsgBox DĂ©compte, 0, "DĂ©compte des paragraphes"
End Sub
L'exemple suivant montre qu'il est possible d'utiliser des caractères Unicode, pour les noms de variables. Toutefois la coloration syntaxique présente alors des défauts.
Sub d'''Ă©'''monstration
dim r'''Ă©'''sultat as string
r'''Ă©'''sultat = "essai"
msgbox résultat
End Sub
Liens externes
BASIC Macros
StarOffice/OpenOffice.org API
Cet article est issu de wikipedia. Text licence: CC BY-SA 4.0, Des conditions supplémentaires peuvent s’appliquer aux fichiers multimédias.