LO Basic verhält sich merkwürdig

[Theophilus61]

Moin, moin,
nach einem Festplattencrash musste ich das System neu aufsetzen. Nun läuft hier Xubuntu 26.04 mit LO 26.2.2.2
Ich habe die Makros aus einer bestehenden Installation übernommen, wo sie problemlos laufen.
Im Modul sind ca 10 Subs - aber erkannt werden nur 3.
Es werden Fehler gemeldet, die keine sind. Syntayfehler, fehlende "end subs" etc.
Hat jemand eine Idee dazu?

[karolus]

…
Hat jemand eine Idee dazu?

Du beherscht copy & paste nicht?!

[Theophilus61]

Wie meinst du das?

[Theophilus61]

Habe jetzt auf 26.2.6.3 aktualisiert.
Gleicher Effekt.

Code: Alles auswählen

Dim mNoArgs() 

wird als Syntax-Fehler markiert. Subs werden nicht erkannt.
Was ist da los?

[karolus]

Habe jetzt auf 26.2.6.3 aktualisiert.
Gleicher Effekt.

Code: Alles auswählen

Dim mNoArgs() 

wird als Syntax-Fehler markiert. Subs werden nicht erkannt.
Was ist da los?

Die Kristallkugel ist müde

Ich habe die Makros aus einer bestehenden Installation übernommen,

Vermutlich hast du bei der Übernahme etwas falsch gemacht.
Machs nochmal aber diesmal richtig.

[Theophilus61]

Ich habe jetzt mal in einer VM eine Fedora-Installation angelegt. Dort das gleiche Spiel.
Ein Beispiel:

Code: Alles auswählen

sub LPG_Lieder 
Dim mNoArgs() 
Dim oDesktop, oDocument As Object 
Dim sUrl As String oDesktop = createUnoService("com.sun.star.frame.Desktop") 
sUrl = "file:///home/jwarndt/Nextcloud/Dokumente/PASTORAL/Gottesdienst/LPG/LPG Liederübersicht.ods" oDocument = oDesktop.loadComponentFromURL(sUrl,"_blank",0,mNoArgs())
end sub

Gleich die erste Zeile (also sub LPG_Lieder ) wird als Syntaxfehler markiert.
Ich verwende diese Makros seit Jahren. Hatte noch nie solche Probleme.

[karolus]

Ich habe jetzt mal in einer VM eine Fedora-Installation angelegt. Dort das gleiche Spiel.
Ein Beispiel:

Code: Alles auswählen

sub LPG_Lieder 
Dim mNoArgs() 
Dim oDesktop, oDocument As Object 
Dim sUrl As String oDesktop = createUnoService("com.sun.star.frame.Desktop") 
sUrl = "file:///home/jwarndt/Nextcloud/Dokumente/PASTORAL/Gottesdienst/LPG/LPG Liederübersicht.ods" oDocument = oDesktop.loadComponentFromURL(sUrl,"_blank",0,mNoArgs())
end sub

Gleich die erste Zeile (also sub LPG_Lieder ) wird als Syntaxfehler markiert.
Ich verwende diese Makros seit Jahren. Hatte noch nie solche Probleme.

Wie ich bereits schrieb, du kannst nicht mal copy&paste

Code: Alles auswählen

sub LPG_Lieder 
Dim mNoArgs() 
Dim oDesktop, oDocument As Object 
Dim sUrl As String oDesktop = createUnoService("com.sun.star.frame.Desktop") 
sUrl = "file:///home/jwarndt/Nextcloud/Dokumente/PASTORAL/Gottesdienst/LPG/LPG Liederübersicht.ods"
oDocument = oDesktop.loadComponentFromURL(sUrl,"_blank",0,mNoArgs())
end sub

Ich hoffe du siehst den Unterschied!

[Theophilus61]

Ich sehe nur einen weiteren Zeilenumbruch. Der macht aber keinen Unterschied.
Oder habe ich was übersehen?

[karolus]

Ich sehe nur einen weiteren Zeilenumbruch. Der macht aber keinen Unterschied.
Oder habe ich was übersehen?

oha … da ist ja noch ein Klops:

Code: Alles auswählen

sub LPG_Lieder 
Dim mNoArgs() 
Dim oDesktop, oDocument As Object 
Dim sUrl As String
oDesktop = createUnoService("com.sun.star.frame.Desktop") 
sUrl = "file:///home/jwarndt/Nextcloud/Dokumente/PASTORAL/Gottesdienst/LPG/LPG Liederübersicht.ods"
oDocument = oDesktop.loadComponentFromURL(sUrl,"_blank",0,mNoArgs())
end sub

aber wieso benutzt du nicht gleich »StarDesktop« :

Code: Alles auswählen

sub LPG_Lieder 
Dim mNoArgs() 
Dim oDocument As Object 
Dim sUrl As String  
sUrl = "file:///home/jwarndt/Nextcloud/Dokumente/PASTORAL/Gottesdienst/LPG/LPG Liederübersicht.ods"
oDocument = StarDesktop.loadComponentFromURL(sUrl,"_blank",0,mNoArgs())
end sub

Falls du jetzt glaubst ich repariere jetzt nach und nach dutzende kaputte BASIC-Code-Brocken … NEIN!