- StarOffice Basic
-
StarOffice Basic (aussi connu sous le nom de StarBasic) est un dialecte du langage de programmation Basic qui est inclus dans les suites bureautiques OpenOffice.org et StarOffice. Il supporte l'Unicode.
Sommaire
Exemple
Bien que StarBasic lui-même est 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) this est un document texte? If Not Doc.SupportsService("com.sun.star.text.TextDocument") Then MsgBox "Cette macro doit être lancée 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ère 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
- (en) StarOffice 7 Basic programmer's guide
- (en) StarOffice 8 Programming Guide for BASIC
- (en) OpenOffice.org VBA emulation model project (still in heavy development)
- (en) Andrew Pitonyak's macro information
StarOffice/OpenOffice.org API
Wikimedia Foundation. 2010.
