StarOffice Temel | |
Paradigma | Etkinlik programlama |
---|---|
Yazıyor | Statik , güçlü |
Yazılmış | C ++ |
İşletim sistemi | Çapraz platform |
İnternet sitesi | oracle.com |
StarOffice Basic ( StarBasic veya OOoBasic olarak da bilinir)OpenOffice.org,LibreOfficeveStarOfficeofispaketlerindebulunanBasicprogramlama dilinin bir lehçesidir. Unicode'udestekler.
StarBasic'e kendisi gibi Basic diğer lehçelerde, benzer olmasına rağmen Microsoft'un Visual Basic for Applications (VBA) , API aşağıdaki örnekte gösterildiği gibi, oldukça farklıdır.
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 SubAşağıdaki örnek, değişken adları için Unicode karakterlerinin kullanılabileceğini gösterir. Bununla birlikte, sözdizimi vurgulamanın kusurları vardır.
Sub d'''é'''monstration dim r'''é'''sultat as string r'''é'''sultat = "essai" msgbox résultat End Sub