OpenOffice.info

Service "MasterScriptProviderFactory"
Interface "XScriptInvocationContext"

Hallo,
das Probelm ist aus meiner Sicht gelöst.
Ich fand endlich den passenden Suchbegriff und siehe da, es funktioniert.

Dazu lade ich im anderen Thread meine geänderte Beispieldatei hoch.
https://de.openoffice.info/viewtopic.php?p=292629#p292629

Die entscheidenden Zauberwörter lauten:
[code]
Service "MasterScriptProviderFactory"
Interface "XScriptInvocationContext"[/code]

Auf vielen Umwegen im englischen Forum gefunden.
Siehe Antwort von Hanya:
https://forum.openoffice.org/en/forum/viewtopic.php?t=79489&p=365392

[quote]Vielleicht gibt es noch eine Möglichkeit den String mit einer andere Programmiersprache zu verarbeiten.[/quote]

Wie bereits geschrieben ginge eine Batch-Datei oder ein Script, welche man zur Laufzeit erzeugt.

Beides würde unter Windows funktionieren, dürfte aber unter Linux, wegen der Ausführungsrechte, auf Probleme stossen.


Gruß
Stephan

		Sub Start2(par)
			  Select Case par
    



   Case "Test"
      '... tue etwas



   Case '....
      '...





			  End Select
			End Sub

[quote]Nun dies war der Ausgangspunkt für meine Anfrage:[/quote]

Weswegen ich es ausdrücklich gekennzeichnet hatte (="was ich bevorzugen würde") das es keine Antwort auf Deine Frage ist, sondern nur eine Erläuterung meiner Aussage.

[quote]Die Case-Anweisung sollte nach Pit’s Wunsch ggf. wegfallen oder einfacher strukturiert werden.[/quote]

WENN Letzteres so wäre, wäre das von mir Gesagte zufällig doch eine Antwort, denn mein Beispiel geht davon aus sich die ganzen Einzelmakros zu sparen, was ja, zumindest nach Pit's Logik, als Vereinfachung gilt, da es jeweils 2 Code-Zeilen einspart.

Nebenbeigesagt könnte man es auch optisch anders schreiben, das es ähnlich aussieht als wären es doch einzelne Makros, sofern das jemand besser fände:

[code] Sub Start2(par)
Select Case par




Case "Test"
'... tue etwas



Case '....
'...





End Select
End Sub[/code]


Wnnn Du hierbei Sub .... Select und End .... End soweit nach rechts rückst das sie 'außerhalb' der Sichtbarkeit in der Basic-IDE sind, sieht es (nach meinem Empfinden) so aus als wäre die Case-Abschnitte einzelne Makros.


[quote]ist dies im Prinzip auch ein String.[/quote]

Nö, denn es ist nicht per Anführungszeichen als String gekennzeichnet.


[quote]Welche Mechanismen des Interpreters greifen hier, damit er dies als Anweisung und nicht als String verarbeitet?[/quote]

Der Interpreter muss im gesamten 'Gültigkeitsbereich' des Makros prüfen ob es keine Makros oder Funktionen gleichen Namens gibt. Da es zur Laufzeit, generell(*) aber auch abhängig von den aktuell geladenen Bibliotheken, hierbei 'Uneindeutigkeiten' geben kann ist es zweckmäßig den Modulnamen beim Aufruf eines Makros immer davor zu schreiben, also Call meinModul.meinMakro und nicht nur Call meinMakro.

(*)
denn es darf in unterschiedlichen Modulen gleichnamige Makros geben



Gruß
Stephan

CALL "Name"+Var

[quote=erikafuchs post_id=292619 time=1606432254 user_id=8352]
Ist den Python in OpenOffice implementiert oder benötigt man das extern? Mein Rechentrainer muss unabhängig von externem Zubehör laufen.
Ich kann mir aber nicht so recht vorstellen, was Python mehr zurückliefern könnte als eine Variable - ...
[/quote]

Hallo,

Ein eindeutiges sowohl als auch. Unter Windows wird eine Python-Umgebung "unterhalb" von AOO/LO mitgeliefert. Unter Linux gibt es eine solche schon extern und so wird daher teilweise das externe Python bei LO eingebunden. LO ist auch schon komplett bei Python3, ob AOO noch bei Python2 hängt, weiss ich nicht.
Egal wie: Es ist immer vorhanden.

Was die eigentliche Frage angeht, kommen wir hier in Bereiche, wo ich sagen würde, dass man das heute nicht mehr so macht. Wenn Eingabetext quasi direkt den Quelltext modifiziert/beeinflusst kommen wir direkt zu Bobby Tables [url]https://xkcd.com/327/[/url]

Ich habe zu DOS-Zeiten auch Batch-Files geschrieben, die den Folgebefehl modifizierten, aber aber bei den damaligen eingeschränkten Möglichkeiten musste man halt kreativ werden. Ohne echte Notwendigkeit und Sicherheitsprüfungen ist ein [code]CALL "Name"+Var
[/code] heute nicht zeitgemäß, sondern Basis für SQL- Injection und ähnliches.

Mfg, Jörn

Ist den Python in OpenOffice implementiert oder benötigt man das extern? Mein Rechentrainer muss unabhängig von externem Zubehör laufen.
Ich kann mir aber nicht so recht vorstellen, was Python mehr zurückliefern könnte als eine Variable - der Code muss ja nun mal in Basic aufgerufen werden.
Ein Handbuch von Python habe ich, bin aber noch kaum über die ersten Seiten rausgekommen.
Aber ansonsten finde ich das ausergewöhnlich wie du dich hier reinkniest - wie gesagt, es geht auch ohne.

Vielleicht gibt es noch eine Möglichkeit den String mit einer andere Programmiersprache zu verarbeiten.
Python oder Java, diese sind ewas "schlauer" als Basic.
Ganz simpel gedacht:
[list]
[*]Basic übergibt Python den String
[*]Python konvertiert String in eine Anweisung
[*]Python ruft per Anweisung die passende Routine auf.
[*]weiter geht es in Basic
[/list]

Habe hierzu aber auch noch nichts finden können. :(

call Aufgabe

call Aufgabe&Variable

Meine Idee war ja eigentlich, dass ich dem [code]call Aufgabe[/code] anstelle eines Parameters ein Art Anhängsel hinzufüge also [code]call Aufgabe&Variable[/code] und dieses variiere.
Ich habe vor 40 Jahren mal dBaselllPlus programmiert und hatte wage in Erinnerung dass das dort ging.
Aber das scheint nun mal hier nicht zu funktionieren. Dies ist ja auch kein Beinbruch, mein Code funktioniert ja, es sind jetzt halt etwa 100 Zeilen mehr.

Hallo Stephan,

[quote=Stephan]Sofern die Frage aufkommt was ich bervorzugen würde:[/quote]
Nun dies war der Ausgangspunkt für meine Anfrage:
Meine Anfrage bewegt sich in der Grauzone zu einem Crossposting.
[url=http://de.openoffice.info/viewtopic.php?f=18&t=75104]Routinenname mit Variablen starten
[/url]
Die Case-Anweisung sollte nach Pit’s Wunsch ggf. wegfallen oder einfacher strukturiert werden. Wie auch immer?

Ich habe meine Frage halt nur etwas anders gestellt, in der Hoffnung, dass es eine Konvertierungs-
möglichkeit für eine String-Variable gibt, so das der Interpreter es versteht.
[u]bisheriges Fazit:[/u]
Basic kann es nicht.

Ein letzte Frage in diesem Zusammenhang:
Wenn ich eine Call-Anweisung in einem Modulblatt schreibe,
[COLOR=#0000FF]HelloWorld[/COLOR]
ist dies im Prinzip auch ein String.

Ich weiß das der Interpreter den Code zur Laufzeit in Maschinensprache übersetzt.
Welche Mechanismen des Interpreters greifen hier, damit er dies als [u]Anweisung [/u]und nicht als [u]String [/u]verarbeitet?
Habe bereits im Netz versucht Info’s zu finden. Mir fehlen hier die richtigen Suchbegriffe.

Sub Start
  sString = "Test"
  Start2(sString )
End Sub

Sub Start2(par)
  Select Case par
    Case "Test"
      '... tue etwas
  End Select
End Sub

[quote]Aber ich halte weiterhin diese Art der Lösung für abenteuerlich und würde das nicht so verwenden wollen.[/quote]

Sofern die Frage aufkommt was ich bervorzugen würde:

[code]Sub Start
sString = "Test"
Start2(sString )
End Sub

Sub Start2(par)
Select Case par
Case "Test"
'... tue etwas
End Select
End Sub[/code]


Gruß
Stephan

'Module1

Sub Start
  sString = "Test"
  Call Module1.Start2(sString, 0)
  Call Module2.Start3
  Call Module1.Start2(sString, 1)
End Sub

Sub Start2(par, modus)
  BasicLibs = Globalscope.BasicLibraries
  Bib = BasicLibs.Getbyname("Standard")

  x = Bib.getByName("Module2")
  if modus = 0 Then
    x = Replace(x, "Call Module2.X", "Call Module2." & par)
  elseif modus = 1 Then
    x = Replace(x, "Call Module2." & par, "Call Module2.X")
  end if
  Bib.replaceByName("Module2", x)
End Sub

'Module2

Sub Start3
  Call Module2.X
End Sub

Sub Test
  print "geht"
End Sub

Ja, Du hast REcht.

Versuche es so (nicht getestet):

[code]'Module1

Sub Start
sString = "Test"
Call Module1.Start2(sString, 0)
Call Module2.Start3
Call Module1.Start2(sString, 1)
End Sub

Sub Start2(par, modus)
BasicLibs = Globalscope.BasicLibraries
Bib = BasicLibs.Getbyname("Standard")

x = Bib.getByName("Module2")
if modus = 0 Then
x = Replace(x, "Call Module2.X", "Call Module2." & par)
elseif modus = 1 Then
x = Replace(x, "Call Module2." & par, "Call Module2.X")
end if
Bib.replaceByName("Module2", x)
End Sub[/code]


[code]'Module2

Sub Start3
Call Module2.X
End Sub

Sub Test
print "geht"
End Sub[/code]

Aber ich halte weiterhin diese Art der Lösung für abenteuerlich und würde das nicht so verwenden wollen.


Gruß
Stephan

Call Module2.Test

Hallo Stephan,

wenn ich wie in Deinem Beispiel hier explizit [b].Test[/b] angeben, dann wird die Routine "Test" aufgerufen.
[code]Call Module2.Test[/code]

[b].Test[/b] ist eine feste Vorgabe, sollte aber variabel sein.

Ich lade im anderen Thread meine Beispieldatei hoch, dort wird die Problematik erkennbar sein.

x = Bib.getByName("Module2")
x = Replace(x, "Aufg_01x", "Aufg_01")

[quote]Mittels XRAY kann ich mir zwar den gesamten Inhalt als Plaintext anzeigen lassen, aber es gibt offensichtlich
keine Methode, mit der ich direkt auf die einzelnen Sub's zugreifen kann. [/quote]

ja, stimmt. Vielleicht hätte ich "bekannten" Namen mehr betonen sollen, gemeint war einen eineindeutigen Namen zu nutzen damit dieser nur einmal als Wort im ganzen Modul vorkommt, denn dann ist das Ändern per Replace leicht (was nicht heisst das es sonst nicht ginge).

Am Simpelsten wäre es die Makronamen einfach mit einem x zu ergänzen, z.B. "Aufg_01x", dann ist klar was im Replace stehen muss, nämlich als zu ersetzen der eigentlich gewünschte Name plus "x":

[code]x = Bib.getByName("Module2")
x = Replace(x, "Aufg_01x", "Aufg_01")[/code]


Gruß
Stephan

REM  *****  BASIC  *****

REM Dieses Modul soll alle Aufgaben beinhalten
Sub Aufg_01
	Msgbox sAufgabe
End Sub

Sub Aufg_02
	Msgbox sAufgabe
End Sub

Sub Aufg_03
	Msgbox sAufgabe
End Sub

Hallo,

vielen Dank für Eure Antworten.

@Stephan
Ich habe auf verschiedenste Weise mit Deiner 2. Methode experimentiert.
Dein Code funktioniert, sofern sich nur eine Sub-Routine im Modul2 befindet.
Meine Frage habe ich absichtlich in Kurzform gestellt, weil ich gehofft hatte, dass es ein Interface,
einen Service oder sonstiges gibt, mit dem ich die Stringvariable in eine Anweisung umwandeln kann.
Es scheint eine unüberwindbare Hürde für Basic zu sein.

Inhalt von Modul2, wobei in Modul1 die Variable "sAufgabe" mit Public deklariert wurde:
[code]
REM ***** BASIC *****

REM Dieses Modul soll alle Aufgaben beinhalten
Sub Aufg_01
Msgbox sAufgabe
End Sub

Sub Aufg_02
Msgbox sAufgabe
End Sub

Sub Aufg_03
Msgbox sAufgabe
End Sub
[/code]
Mittels XRAY kann ich mir zwar den gesamten Inhalt als Plaintext anzeigen lassen, aber es gibt offensichtlich
keine Methode, mit der ich direkt auf die einzelnen Sub's zugreifen kann.

Ich schließe diesen Beitrag und [url=https://de.openoffice.info/viewtopic.php?f=18&t=75104]poste hier[/url] meinen leider nicht komplett funktionierden Code.

Na ja, das war ja eigentlich mein Originalcode - den wollte ich halt "elganter" gestalten - siehe hier:
[url]https://de.openoffice.info/viewtopic.php?p=292549#p292549[/url]

Sub Start_Makro_per_String
    sMacroName = inputbox ("Bitte Namen eingeben", "Eingabe",)
    get_Macro(sMacroName)
End Sub

sub get_Macro(sMacroName)
    select case sMacroName
    case "M1"
    M1
    case "M2"
    M2
    case "M3"
    M3
    case "M4"
    M4
    case "M5"
    M5
    end select
end sub

sub M1
    msgbox "Makro1"
end sub

sub M2
    msgbox "Makro2"
end sub

sub M3
    msgbox "Makro3"
end sub

sub M4
    msgbox "Makro4"
end sub

sub M5
    msgbox "Makro5"
end sub

Moin,
ist zwar nicht das gleiche, sollte aber hinreichen, oder?
[code]Sub Start_Makro_per_String
sMacroName = inputbox ("Bitte Namen eingeben", "Eingabe",)
get_Macro(sMacroName)
End Sub

sub get_Macro(sMacroName)
select case sMacroName
case "M1"
M1
case "M2"
M2
case "M3"
M3
case "M4"
M4
case "M5"
M5
end select
end sub

sub M1
msgbox "Makro1"
end sub

sub M2
msgbox "Makro2"
end sub

sub M3
msgbox "Makro3"
end sub

sub M4
msgbox "Makro4"
end sub

sub M5
msgbox "Makro5"
end sub[/code]Gruß R